《路桥施工测量常用计算资料大全：CASIO5800计算器测量计算程序.doc》由会员分享，可在线阅读，更多相关《路桥施工测量常用计算资料大全：CASIO5800计算器测量计算程序.doc（7页珍藏版）》请在三一文库上搜索。
1、CASIO 5800计算器测量计算程序CASIO 5800计算器测量计算程序 上上月做这个东西的时候没仔细检查，有好几处输错了的地方，今天把它修改过来。简要介绍： 1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据
2、按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。 3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。 4 相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z10，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。 4. 程序利用Z2变量值来判断是采用交点法还是线元法模型计算，Z20为线元法，否则为交点法。 一、PQX程序：计算中边桩坐标及近似的桩号反
3、算，在运行模式直接调用。 Z10S:”XO”?S:SZ10:”YO”?N:Prog “AU” Lbl 2:?L:Prog “Z”:Prog “E”:1nO:90S Lbl 4:”JJ”?S:”YC”?O:SO=0 =Goto 2原来lbl 后没有标号的。 O=-1 =Goto 6 “X,Y”:R+OCos(Z+S)XU+OSin(Z+S)YProg “D”:Goto 4 Lbl 6:Z7X:Z8Y:”XF”?X:”YF”?Y:XY=0 =Goto 4 XZ7:YZ8:Pol(X-R,Y-U+1p):Z+S-JJ:”YC,DL,L”:ICos(J)OISin(J)IL+IGoto 6 二、P程序
4、：在程序中提供一个自由运算的模式。 Lbl 1:”TMP”?I:If I0:Then “RST”:IGoto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。 Prog “AU” Lbl 1:Z7X: Z8Y: Z6S: ”XF”?X :XZ7:”YF”?Y:YZ8: ”ZF”?S: SZ6 Lbl 2:Prog “Z”:Y=U =Y+1pY Pol(X-R,Y-U):J-ZJ:Isin(J)O:Icos(J)I If Abs(I)0.1:Then Prog “E”:”L,YC”:L+ILOGoto 3:IfEnd If Z90:Then Pol(Z9-SO,I):
5、JZ9180I:IfEnd ”DL”:IL+IL:Goto 2 Lbl 3: Z6S:If S=0:Then Goto 1:IfEnd MZ Lbl 4:”SG”?Z:ZM:If Abs(Z)=1: Then Prog “GG”:YZ:If X=1:Then XZ:IfEnd:ZM:IfEnd If Z=0:Then Z11C:Z12D: Z13E: Z14F:”LA”?C:CZ11: ”HA”?D:DZ12: ”LB”?E:EZ13: ”HB”?F:FZ14:D+(E-C)-1(F-D)(L-C)Z:ZM:IfEnd Lbl 5:”SG”:Z:”TW”:Z-SC:Z3P: Z4Q: :Z5T
6、:”YC0”?P:PZ3: :”HC0”?Q:QZ4 :”M”?T:TZ5:OAbs(O)I:”BL”:I(P+TC(C+Q)Abs(C)U”DB”:IU-IOJ AnsI:Prog “P”:Goto 1 四、I程序：通过手工方式输要素 Z2=0 =Goto 2 Z1R:Z2U:”JL”?K:”JX”?G:”JY”?H:”JA”?V:”JJ”?W:”R”?A:”LS”?B:”L1”?R:”L2”?U:RZ1:UZ2:ReTurn Lbl 2:”L0”?K:”X0”?G:”Y0”?H:”A0”?V”:”L1”?F:”L-0 Z=-1 Y=1”?W:W=0 =ReTurn ”R0”?A:”R1”?
7、B 五、D程序：根据测站点的坐标及放样点的坐标计算水平距离及方位角 Y=N =Y+1nY Pol(X-Z10,Y-N):JJ+360J ”A,D”:JDMSI 六、E程序：桩号出界判断 Z2=0 =Goto 2 If LZ2: Then “L2”:LIfEnd If LZ1: Then “L1”:LIfEnd Goto 3 Lbl 2:If LK:Then “F:Then “L1”:L-FIfEnd Lbl 3 七、GG程序：用统计数据中桩号，左右高程数据进行内插计算。 FreqOff : nC:FreqOn:If LminX: Then “LmaxX: Then “LmaxX”:C-1I:G
8、oto 8:IfEnd For 1I To C-1 If LList XI+1: Then Break:IfEnd:Next Lbl 8 : (L-List X)(List XI+1- List X)J : List Y+J(List YI+1-List Y)X : List Freq +J(List Freq I+1-List Freq )Y 八、S程序:对统计数据列表中数据按桩号进行排序。 FreqOff : nC:FreqOn“WAITn=”:Locate 10,1,C If C2 Then Return:IfEnd For 1D To C: DI: For D+1E To C: If
9、List XEReturn Prog “GG”:”X,Y”:XYGoto 1 十一、GZW程序：构造物坐标放样计算，在运行模式直接调用。 Z10S:”XO”?S:SZ10:”YO”?N：0T Lbl 1;”X0”?R:”Y0”?U:”A0”?Z:IF Z=-1 :Then “A0,DD”:JZIIfEnd If Z=0:Then RX:UY:Prog “D”:Goto 1:IfEnd 在后增加一句，解决了程序再次运行时，交角的初值被置为测站点的坐标的BUG.O-ZS:”J0”?S:Z+SO:”0-XX,YYX,Y”:”1-X,YXX,YY”?T:If T0: Then Goto 3:IfEnd
10、 Lbl 2:”XX”?P:”YY”?Q:If PQ=0:Then Goto 1:IfEnd ”X,Y”:R+Pcos(Z)+Qcos(O)XU+Psin(Z)+Qsin(O)YProg “D”:Goto 2 Lbl 3:”XF”?X:”YF”?Y:If XY=0: Then Goto 1:IfEnd ”XX,YY”:(X-R)sin(O)-(Y-U)cos(O)sin(S)P(Y-U)cos(Z)-(X-R)sin(Z)sin(S)Q Goto 3 十二、Y程序：线元法计算匝道坐标 L-KC:If LF:Then F-KC:IfEnd If W=0 or CF:Then R+Rec(L-F,
11、Z) R:U+JU:0Z9:IfEnd 十三、Z程序：交点法计算中桩坐标 If Z2=0:Then Prog “Y”:Return:IfEnd B2A24P:0.1B(5-PA) Q:Q+(A+P)tan(0.5Abs(W) T:K-TC:C+BD:D+AAbs(W) 180F:F-BE WAbs(W)S:0Z9:If LC:Then L-KO:VZ:Goto 2:IfEnd If LF:Then L-F+TO:V+WZ:Goto 2:IfEnd If LE:Then F-LO:Prog ”X”:V+WO:O-SRZ:G+(T-I)cos(O)-SJsin(O)R:H+(T-I)sin(O)+
12、Sjcos(O) U:Goto 3:IfEnd If LD:Then (L-D+0.5B)A)rO:Q+Asin(O)I:P+A(1-cos(O) J:AZ9:V+SOZ:Goto 4:IfEnd L-CO:Prog “X”:V+SRZ Lbl 4:G+(I-T)cos(V)-Sjsin(V)R:H+(I-T)sin(V)+Sjcos(V)U:Goto 3 Lbl 2:G+Ocos(Z)R:H+Osin(Z)U Lbl 3 十四、AU程序: 注：L0-输测段桩号近似值，”AU”子程序根据桩号近似值自动调用曲线要素（包括线元法和交点法要素），Z2=0则调用线元法数据，否则为交点法数据 （L0=0
13、-默认为原曲线要素 L0=-1-手工输入曲线要素） Cls:” L0= 0-Conti.”:” L0=-1-Input”:If Z2=0:Then Locate 13,2,”(XY)”:Else Locate 13,2,”(JD)”:IfEnd Z2S:”0XY E.JD”?S:SZ2:”L0”?L:If L=0:Then ReTurn:IfEnd If L=-1:Then Prog “I”:ReTurn:IfEnd If Z2=0:Then Prog “ZA”:Else Prog “JD”:IfEnd Mat F1,1K: Mat F1,2G: Mat F1,3H: Mat F1,4V: M
14、at F1,5W: Mat F1,6A: Mat F1,7B: If Z2=0:Then Mat F1,8F:Else Mat F1,8Z11: Mat F1,9Z12:IfEnd 十五、JD程序：交点法矩阵每一行数据依次为交点桩号，交点X坐标,交点Y坐标,起始边方位角，偏角，圆曲线半径,缓和曲线长度,计算单元起点，计算单元终点 If L24900: Then “LminX”:LStop:IfEnd If L30801.27: Then “LmaxX”:LStop:IfEnd IF L26227.359:Then 25676.236, 142225.377,504270.949,62459.6
15、,-705010.6,770,300.007,24900,26227.359Mat F:Return:IfEnd IF L27318.276:Then 27026.458, 142873.016,502918.028,2953449.,-153118.5,1500,180.003,26227.359,27318.276Mat F: Return:IfEnd IF L28522.182:Then 28148.818, 143069.516,501810.234,2800330.5,414502.1,780,206.532,27318.276,28522.182Mat F: Return:IfEn
16、d IF L29246.112:Then 28895.742, 143666,501341,3214832.6,-223308.8,1250,215.74,28538.355,29246.112Mat F: Return:IfEnd IF L30801.27:Then 30431.525, 144420,499995,2991523.8,492952.7,720,160.598,29246.112,30801.27Mat F: Return:IfEnd 十六、ZA程序 注2：线元法矩阵每一行数据依次为起点桩号，起点X坐标，起点Y坐标，起点方位角，左右转标志，起点曲率半径，终点曲率半径，终点桩号
17、 If L0: Then “LminX”:LStop:IfEnd If L1479.85: Then “LmaxX”:LStop:IfEnd If L1000: Then Goto 2:IfEnd If L553.49: Then “LmaxX”:LStop:IfEnd IF L82.699:Then 0,142872.513,502902.111,2900300,-1,1509.5,1509.5,82.699Mat F:Return:IfEnd IF L111.519:Then 82.699,142898.724,502823.687,2865440,-1,1509.5,1T,111.519
18、Mat F:Return:IfEnd IF L155.022:Then 111.519,142906.932,502796.061,2862151,-1,1T,1000,155.022Mat F:Return:IfEnd IF L269.54:Then 155.022,142918.885,502754.233,2850704,-1,1000,1000,269.54Mat F:Return:IfEnd IF L359.475:Then 269.54,142942.363,502642.211,2783323,-1,1000,1T,359.475Mat F:Return:IfEnd IF L43
19、4.421:Then 359.475,142953.072,502552.924,2755848,1,1T,1200,434.421Mat F:Return:IfEnd IF L463.597:Then 434.421,142961.655,502478.474,2774609,1,1200,1200,463.597Mat F:Return:IfEnd IF L501.14:Then 463.597,142965.95,502449.617,2790944,1,1200,1T,501.14Mat F:Return:IfEnd IF L553.488:Then 501.14,142972.314
20、,502412.618,2800331,0,1T,1T,553.488Mat F:Return:IfEnd Lbl 2:IF L1169.959:Then 1000,142957.323,502388.342,1025507,0,1T,1T,1169.959Mat F:Return:IfEnd IF L1215.026:Then 1169.959,142919.325,502554,1025507,-1,1T,1500,1215.026Mat F:Return:IfEnd IF L1261.836:Then 1215.026,142909.471,502597.975,1020328,-1,1
21、500,1500,1261.836Mat F:Return:IfEnd IF L1283.436:Then 1261.836,142900.408,502643.898,1001611,-1,1500,1T,1283.436Mat F:Return:IfEnd IF L1307.44:Then 1283.436,142896.66,502665.17,995126,-1,1T,700,1307.44Mat F:Return:IfEnd IF L1346.219:Then 1307.44,142892.686,502688.842,985230,-1,700,700,1346.219Mat F:
22、Return:IfEnd IF L1363.61:Then 1346.219,142887.767,502727.303,954203,-1,700,1T,1363.61Mat F:Return:IfEnd (21)IF L1387.958:Then 1363.61,142886.183,502744.622,945920,1,1T,500,1387.958Mat F:Return:IfEnd (22)IF L1451.374:Then 1387.958,142883.869,502768.858,962302,1,500,500,1451.374Mat F:Return:IfEnd (23)IF L1477.462:Then 1451.374,142872.845,502831.266,1033903,1,500,1490.5,1477.462Mat F:Return:IfEnd (24)IF L1479.848:Then 1477.462,142866.175,502856.486,1053850,1,1490.5,1490.5,1479.848Mat F:Return:IfEnd