计算器公路测量程序设计24版会员收费版.docx
- 文档编号:5048544
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:16
- 大小:30.53KB
计算器公路测量程序设计24版会员收费版.docx
《计算器公路测量程序设计24版会员收费版.docx》由会员分享,可在线阅读,更多相关《计算器公路测量程序设计24版会员收费版.docx(16页珍藏版)》请在冰豆网上搜索。
计算器公路测量程序设计24版会员收费版
FX5800计算器测量程序集2.4版
一、程序功能 主要功能:
采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化:
1、优化程序语句、2、以复数形式输入变量及做数据库,取消原矩阵数据库;3、修改隧道超欠挖程序为通用形,不受圆心个数限制、4、新增测量资料表计算
二、源程序(绿色为程序名;蓝色为输入计算器内容)紫色为新版改动处(可以根据自己标段情况用相关主程序及子程序,再在0程序中汇总)
0.汇总程序(1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1);2、坐标反算程序(2ZD、A、B、AB、HX、QX、F、ZD、X1);3、高程计算查阅程序(3GC、H、I、QX、S1、I1);4、路基半幅标准宽度查阅程序(4GD、C、QX、G1);5、路基边坡及开挖口放样程序(5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1);6、路基标准距离放样(6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1);7、桥梁锥坡计算放样程序(7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1);8、极坐标计算程序(8JS、JS、DS);9、隧道超欠挖计算程序(A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名:
0(数子0)ClrMat:
ClrVar:
12→DimZ:
Norm2:
Do:
"(XY=1,ZD=2,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9)===>QINGAN1-9":
Getkey→Z[3]:
WhileZ[3]=35:
Prog"1XY":
WhileEnd:
WhileZ[3]=36:
Prog"2ZD":
WhileEnd:
WhileZ[3]=37:
Prog"3GC":
WhileEnd:
WhileZ[3]=21:
Prog"4GD":
WhileEnd:
WhileZ[3]=22:
Prog"5BP":
WhileEnd:
WhileZ[3]=23:
Prog"6FM":
WhileEnd:
WhileZ[3]=31:
Prog"7ZP":
WhileEnd:
WhileZ[3]=32:
Prog"8JS":
WhileEnd:
WhileZ[3]=33:
Prog"9SD":
WhileEnd:
LpWhileZ[3]≠25:
”XIEXIESHIYONG”:
计算内程序排例:
0、01(测量资料专用)、1SC(水准测量用)、1XY、2XY-S(由坐标计算面积)、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6(测量表格检表6)、B7(检表7)、B8(检表8)、B9(检表9)、C、DX、DX0、F、G1、H、HX、I、I1、JS、M(度分秒转十进制)、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH(五点通线元法计算坐标)、ZD
程序内容无电子版。
。
。
全在计算中,本人出售单机卡西欧计算器5800,或者带2.4程序计算器(凡购买带程序计算器者即为会员,享有以后所有版本的使用)详情凳陆淘宝网店:
(或加QQ详谈,加QQ注明:
淘宝。
23.数据子程序(以下子程序除T程序外,其余子程序根据自己标段设计数据修改)
带有不完整缓和曲线的线元转交点数据程序(T)。
只为转交交点的辅助程序,不参入任何主程序中运行。
程序名:
T
Norm2:
"QKM"?
Z:
"XQ"?
U:
"YQ"?
V:
"LS1"?
M:
"LS2"?
O:
"A1"?
A:
"A2"?
B:
"FWJ"?
G:
"ZJ"?
P:
?
R:
P÷Abs(P→Q:
A2÷R→H:
H
H-M→S:
B2÷R→N:
N-O→C:
O>N=>O→N:
H=0=>×10-9→H:
H→X:
90S2÷(RHΠ→K:
G-QK→G:
N=0=>×10-9→N:
90C2÷(RNΠ→D:
P+QK+QD→P:
Prog"AB":
Abs(P→E:
(R+C)tan(E÷2)-(C-A)÷sin(E)+D→T:
(R+A)tan(E÷2)-(C-A)÷sin(E)+B→F:
X→H:
Z-S+T→O:
Prog"HX":
U-(A-T)cos(G)+QBsin(G→U:
V-(A-T)sin(G)-QBcos(G→V:
Fix3:
"JDKM=":
Locate6,4,O:
"JDX=":
Locate6,4,U:
"JDY=":
Locate6,4,V◢"FWJ=":
G►DMS◢"ZJ=":
P►DMS◢"LS1=":
Locate6,4,H:
"LS2=":
Locate6,4,N:
"T1=":
Locate6,4,T:
"T2=":
Locate6,4,F◢"R=":
R◢
说明:
运行后“QKM”?
输入起点桩号;“XQ”?
“YQ”?
输入起点X、Y坐标;“LS1”?
“LS2”?
输入前段缓和曲线长度,后段缓和曲线长度;“A1”?
“A2”?
输入前段缓和曲线参数,后段缓和曲线参数;“FWJ“?
输入起点切线方位角;”ZJ“?
输入转角(终点方位角减起点方位角之差,左转为负,右转为正);计算结果要素同QX子程序中要素字母。
以下全为数据子程序,根据自己标段设计数据修改黑色部分数据。
①-1程序名:
X1(线路1和线路2坐标计算要素程序,)
Z[4]=0=>Return:
Z[4]=1=>Goto1:
Z[4]=2=>Goto2:
LbI1:
IfZ≤241.086:
Then-336.478+60i→R:
2600441.639+514392.519i→U:
280。
20’28.78”+203。
08’28.32”i→G:
106.667+81.667i→H:
-270.668-283.056i→T:
Prog"F":
Return:
IfEnd
LbI2:
IfZ≤273.006:
Then171.674+180i→R:
2600784.547+514635.863i→U:
58。
49’17.2”+68。
09’26.91"i→G:
93.889+125i→H:
171.674+184.771i→T:
Prog"F":
Return:
IfEnd
IfZ≤466.227:
Then341.96+445i→R:
2600664.76+514799.865i→U:
123。
43’25.9”+15。
58’49.5”i→G:
138.211i→H:
68.954+125.273i→T:
Prog”F”:
Return:
IfEnd
Z[4]=0=>Return:
Z[4]=1=>Goto1:
Z[4]=2=>Goto2:
LbI1:
IfZ≤40.858:
Then0→O:
2600509.148→U:
5144063.566→V:
299。
43’39”→G:
40.857→H:
97.25→P:
60→R:
1→Q:
Return:
IfEnd
IfZ≤159.42:
Then40.857→O:
2600537.297→U:
514034.668→V:
331。
16’15.1”→G:
118.562→H:
60→P:
60→R:
1→Q:
Return:
IfEnd
IfZ≤241.087:
Then159.419→O:
2600625.86→U:
514081.521→V:
84。
29’22.4”→G:
81.667→H:
60→P:
1×1045→R:
1→Q:
Return:
IfEnd
LbI2:
IfZ≤93.89:
Then0→O:
2600695.67→U:
514488.986→V:
58。
49’17.2”→G:
93.889→H:
1×1045→P:
180→R:
1→Q:
Return:
IfEnd
IfZ≤198.568:
Then93.889→O:
2600736.998→U:
514572.974→V:
73。
45’51.6”→G:
104.678→H:
180→P:
180→R:
1→Q:
Return:
IfEnd
IfZ≤273.007:
Then198.567→O:
2600736.233→U:
514676.181→V:
107。
5’4.3”→G:
74.439→H:
180→P:
445→R:
1→Q:
Return:
IfEnd
程序字母说明:
O-线元起点桩号;U-起点X坐标;V-起点Y坐标;G-线元起点桩号切线方位角;H-线元长度,P-线元起点曲率半径,R-线元终点曲率半径,Q-线元判别(以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0)。
说明:
1、IfZ≤计算交点段终点桩号(或者直线段任意桩号):
Then交点桩号+圆半径i→R:
交点X坐标+交点Y坐标i→U:
起点至交点方位角+交点转角i→G:
交点前段缓和曲线长度+交点后段缓和曲线长度i→H:
交点前段切线长度+交点后段切线长度i→T:
Prog”F”:
Return:
IfEnd
(转角则为交点段终点方位角减起点方位角,分正负,左偏为负,右偏为正)如整条线无曲线,全为直线段,则交点为终点桩号,XY为终点坐标,方位角为起点方位角,转角和圆半径为1,其它全为0。
②-1程序名:
S1(线路1和线路2高程竖曲线要素子程序)
Z[4]=1=>Goto1:
Z[4]=2=>Goto2:
LbI1:
IfZ≤241.09:
Then2000→R:
95.356+40.742i→C:
-3.155+.812i→I:
Return:
IfEnd:
LbI2:
IfZ≤133.601:
Then1525→R:
106+45.12i→C:
-.64+2.98i→I:
Return:
IfEnd:
IfZ≤466.23:
Then1945→R:
298+50.841i→C:
2.98-1.968i→I:
Return:
IfEnd:
程序字母说明:
R-竖曲线半径:
C-竖曲线交点桩号+交点桩号高程i(未竖曲线调整的);I-竖曲线前纵坡+竖曲线后纵坡i
③-1程序名:
I1(线路1和线路2高程超高参数子程序)
0→K:
1→W:
Z[4]=1=>Goto1:
Z[4]=2=>Goto2:
LbI1:
IfZ≤159.419:
Then0→S:
6-6i→M:
Return:
IfEnd:
IfZ≤187.987:
Then28.568+28.568i→S:
159.419→C:
6-6i→M:
2-2i→N:
Return:
IfEnd:
IfZ≤241.086:
Then0→S:
2-2i→M:
Return:
IfEnd:
LbI2:
IfZ≤77.872:
Then0→S:
2-2i→M:
Return:
IfEnd:
IfZ≤93.889:
Then16.017+16.017i→S:
77.872→C:
2-2i→M:
5-5i→N:
Return:
IfEnd:
IfZ≤198.567:
Then0→S:
5-5i→M:
Return:
IfEnd:
IfZ≤273.006:
Then74.439→S:
198.567→C:
5-5i→M:
2-2i→N:
Return:
IfEnd:
IfZ≤335:
Then0→S:
2-2i→M:
Return:
IfEnd:
IfZ≤346.235:
Then11.235+11.235i→S:
335→C:
2-2i→M:
1.5-1.5i→N:
Return:
IfEnd
子程序中字母表示说明:
K-中央分隔带半幅宽(中桩标高至中桩中线距离,无分隔带则为0);W-超高方式参数(W=1为一般直线方式超高,W=2为三次抛物线方式超高);S-超高渐变段左距离+右距离i(不是渐变段则输入0);C-超高渐变段起点桩号(不是渐变段,无需输入);M-超高段起点左横坡+右横坡i,N-超高渐变段终点左横坡+右横坡i(不是渐变段,无需输入)。
④-1程序名:
G1(线路1和线路2路基标准半幅宽度参数子程序)
Z[4]=1=>Goto1:
Z[4]=2=>Goto2:
LbI1:
IfZ≤40.857:
Then40.857i→S:
0→C:
3.5+5i→A:
5.25i→B:
Return:
IfEnd:
IfZ≤159.419:
Then0→S:
3.5+5.25i→A:
Return:
IfEnd:
IfZ≤187.987:
Then28.568i→S:
159.419→C:
3.5+5.25i→A:
5.5i→B:
Return:
IfEnd:
IfZ≤241.086:
Then0→S:
3.5+5.5i→A:
Return:
IfEnd:
LbI2:
IfZ≤321.611:
Then0→S:
3.5+5i→A:
Return:
IfEnd:
IfZ≤346.235:
Then24.624i→S:
321.611→C:
3.5+5i→A:
5.75i→B:
Return:
IfEnd:
IfZ≤466.227:
Then0→S:
3.5+5.75i→A:
Return:
IfEnd
子程序中字母表示说明:
C-宽度渐变段起点桩号(不是渐变段不输);A-宽度渐变段起点左侧宽度+右侧宽度i;B-宽度渐变段终点左侧宽度+右侧宽度i(不是渐变段,无需输入);S-宽度渐变段左侧距离+右侧距离i(不是渐变段输0)。
⑤-1程序名:
SD1(隧道1和隧道2参数子程序)
IfZ[4]=1:
Then5→I:
1.4→V:
12+19。
16’i→Z[16]:
1.4+51。
42’18”i→Z[17]:
5.1+218。
3’i→Z[18]:
1.4+51。
42’18”i→Z[19]:
12+19。
16’i→Z[20]:
Return:
IfEnd:
IfZ[4]=2:
Then5+2.2i→I:
3.825→V:
4.355→Z[16]:
4.355-251。
18’46”i→Z[17]:
6.07+217。
22’28”i→Z[18]:
4.355-108。
41’14”→Z[19]:
4.355-180i→Z[20]:
Return:
IfEnd:
子程序中字母表示说明:
I-隧道开挖面里圆心个数和直线段共个数+隧道中线距设计路中线距离(右正左负)i;V-路中线标高至设计隧道中线底高差+底部圆心水平偏移距离(向左偏为负,向右偏为正);Z[16]-Z[16+I]-隧道中线型数据,直线段为:
长度-起点方位角;圆曲线段为:
圆半径+偏角(即圆心夹角).
⑥-1程序名:
W1(线路1和线路2路基填挖边坡参数子程序)
10→E:
10→F:
2.6→M:
2→N:
2→U:
1.5→I:
1.75→J:
8→W:
2→V:
Z[4]=1=>Goto1:
Z[4]=2=>Goto2:
LbI1:
IfD<0:
ThenGotoL:
ElseGotoR:
IfEnd:
LbIL:
1→A:
1.25→B:
1.25→C:
Return:
LbIR:
IfZ≤110:
Then1.25→A:
1.25→B:
1.5→C:
Return:
ElseGotoL:
IfEnd
LbI2:
IfD<0:
ThenGotoL:
ElseGotoR:
IfEnd:
LbIL:
0.75→A:
0.75→B:
0.75→C:
Return:
LbIR:
IfZ≤445:
ThenGotoL:
ElseIfZ≤506.9:
Then0.25×(Z-445)÷21.2→Q:
.75+Q→A:
A→B:
A→C:
Return:
IfEnd
子程序中字母表示说明:
A-挖方第一阶边坡边率;B-挖方第二阶边坡边率;C-挖方第三阶边坡边率;E-挖方第一阶高度;F-挖方第二阶高度;M-挖方路基碎落台及水沟宽度;N-挖方第二台阶平台宽度;U-挖方第三台阶平台宽度;I-填方第一阶边坡边率;J-填方第二阶边坡边率;W-填方第一阶高度;V-填方第二台阶平台宽度。
(注:
本程序只做出挖方三个台阶,填方二个台阶,如需增加,先需在程序5BP程序相应增加。
再如一标段有坡率及坡高不一样时,可以照其它参数程序一样,用判别语句。
)三、使用说明
1、规定
(1)坐标计算以交点方式计算,一般情况下一个交点计算一段线是:
直线+缓和曲线+圆曲线+缓和曲线+直线。
在匝道中先根据实际线来调整,可以单独计算一段不完整的缓和曲线+圆曲线。
也可以单独计算一段缓和曲线或一段圆曲线,需先运行T程序整理成交点数据。
无缓和曲线时,缓和长度输0。
(2)程序中:
×10-9为10的负9次方即0.000000001;×1045为10的45次方;Π为圆周率即3.1415926;√为根号;"X=":
X前有空格二个,为了显示效果,-336.478+60i中i是复数中虚数符号,在计算器从上向下第三排键,第一个。
(3)为了区别字母O及数子0,特把字母0加粗。
2、输入与显示说明
输入提示部分:
"A:
XY=1,ZD=2,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9"?
按对应数子键约半秒:
1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序
XZ?
YZ?
为置仪点坐标,第一次运行输一次,以下运行不需再输入,下次再运行此程序调上次输值,如需改,则输入,不需改,则按确认键。
(后附有导线点坐标存储子程序,有兴趣的可加上)
“QX:
X1=1,X2=2”?
选择经路,坐标计算中输入0值,变为输入线元段曲线要素。
输1为第一条线路。
输2为第二条线路,本程序暂设计实例为2条线路。
KM?
算输入大概桩号)输入-1,返回输入选择计算类型,输入-2,返回选择线路。
KM+Di?
正算时输入所求点桩号和所求点距中线的边距(左侧取负值,右侧取正值,在中线上后面不输)
X0+YOi?
反算时所求点的X+Y坐标(放样程序中实测X+Y坐标)以复数形式一次输入。
L0?
涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.(即涵洞半幅宽度)
M0?
放样程序中原地面标高输入
H-B?
计算面至路面高差(默认路面为0)
PJ1?
+PJ2?
为路线中线与边线的右夹角+边线至路前进方向夹角,默认值均为90度.,不是涵洞桥梁计算不需输PJ2,后面也不会出行L0?
TH-GH?
边坡放样中填方超放宽值,默认值为0.5m.
"LD:
Z-,Y+"?
桥梁锥坡向左右方向边长,左为负数,右为正数。
(即为锥坡高程减地面高程后乘以填方坡比)
"LR"?
锥坡向路线前进或向后退方向边长。
"Z0"?
锥坡顶边桩号
"L0:
SZ+,DZ-"?
锥坡放样中,椭圆上分段放样距离,小桩号锥坡输正数,大桩号锥坡输负数。
“CQHD”?
隧道超欠挖程序中衬砌厚度,默认值为0.65m.
QX子程序中和T程序结果中:
““JDKM”?
输入交点桩号;“JDX”?
“JDY”?
输入交点X、Y坐标;“FWJ“?
输入起点至交点方位角”ZJ“?
输入转角(终点方位角-起点方位角之差,左转为负,右转为正);“LS1”?
“LS2”?
输入交点前段缓和曲线长度,交点后段缓和曲线长度;“T1”?
“T2”?
输入交点前段切线长度,交点后段切线长度;”R”?
圆半径
输出部分
X=*** 正算时,计算得出的所求点的X坐标
Y=*** 正算时,计算得出的所求点的Y坐标
FWJ=***正算时,计算得出的所求点的至置仪点方位角
S=***正算时,计算得出的所求点的至置仪点距离
KM=*** 反算时,计算得出的所求点的里程
D=*** 反算时,计算得出的所求点的边距
H=***所求点位置设计计算面顶标高
I=***所求点位置设计路面横坡(D输0时为,本段路基纵坡)
LGD=***所求点位置设计路面顶左半幅标准宽度
LGD=***所求点位置设计路面顶右半幅标准宽度
LX=***边桩放样程序中实测点至设计边坡点距离,正向内移,负向外移。
(隧道程序中为超欠挖值,正为超挖,负为欠挖)
TW=***边桩放样程序中,实测放样边坡点至止桩号设计顶填挖高度值(负为挖方值,正为填方值)
H0=***隧道放样程序中测量点至设计面高度
四、结束语
1、本套程序实例线路给二条,如标段像匝道有多条线时,同理增加。
2、为了更好的开发计算器程序,本人特建一QQ群,欢迎各位测友加入,QQ群号是:
17507020。
3、因本人QQ加人已满,以后有问题请在群内或论坛中回复。
附后为坐标计算参数子程序X1、X2和高程计算子程序S1、S2数据来源(X1、S1为C线,X2、S2为I线)
交点数据均需先运行T程序,计算出交点数据
例如X1要素:
先运行T程序,输入表中C线参数:
QKM输0;XQ输2600509.148;YQ输514063.566;LS1输40.857;LS2输81.667;A1输80,A2输70;FWJ输299。
43‘39“;ZP输183。
45‘18.1“;R输60。
计算后各要素结果记录在本上,再对应做X1子程序就可以了。
上图为SD1程序中Z[4]=1时隧道断面参数数据的图。
上图为SD1程序中Z[4]=2时隧道断面参数数据的图。
1、附带坐标计算面积小程序程序名:
XY-S
0→Q:
Norm2:
1→I:
?
N:
"X1"?
X:
〞Y1〞?
Y:
X→A:
Y→B:
X→E:
Y→F:
Do:
“XN〞?
X:
〞YN〞?
Y:
Q+(XF-YE)÷2→Q:
X→E:
Y→F:
I+1→I:
LpwhileI≠N:
Q+(AF-BE)÷2→S:
〞MIANJI=〞:
Abs(S)◢
(运行后N?
,输入点数,然后输入第一点坐标,再着输入2点一直输入N点后就出来面积)
计算器总体运行及结果说明:
做好数据库后,运行0程序
按相应数子键,对应相应主程序(按数子键时请按住约半秒)
按1键后:
(桥梁涵洞坐标计算放样程序)
输入仪器测站点坐标:
2600535.65+514035.651iEXE
输入选择线路:
1EXE
输入偏角:
(如不是涵洞计算可直接只输一个角,默认为90度)是正交直接按EXE
输入桩号及距离:
200-20i(前面为桩号后面为距中距离,左负右正,中桩后面不需输)输后按EXE
计算结果显示:
X、Y-坐标,FWJ-测站点至计算点方位角(十进制显示:
42.4235即为42度42分35秒)S-测站点至计算点距离
按EXE输-2,返回再次输入测站坐标,选择线路
介绍另一个涵洞斜交放样的计算方法:
(见附图)
输入角度为:
75+66.888iEXE
偏角中涵洞放样中输入方法:
如图:
放样以下图中涵洞基础右侧角A点位置。
输入桩号和距离:
135+32.161iEXE
输入涵洞半幅宽度:
10.8÷2EXE
结果数据同前.EXE
再次输入桩号进入下点放样计算….
按EXE输-1,按EXE,EXE
选择按2后:
(坐标反算桩号距及设计高程)
选择线路号:
如输入1EXE
输入大概桩号(第一运行输入):
50EXE
输入测量坐标:
2600571.4+514052.68i
结果显示:
KM-桩号,D-距中距离(右正,左负),H-设计标高
EXE
再次输入测量坐标进入下点反算……
0程序中选择按3(设计标高及横坡计算)
输入选择线路号:
输入2
EXE
输入设计路面至计算面的高度:
输入1.5
EXE
输入桩号和距离:
输入100-25i(桩号100,左侧25m)
EXE
结果显示:
H-计算高程,I-横坡
EXE
再次输入桩号:
输240(中桩
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算器 公路 测量 程序设计 24 会员 收费