卡西欧基本测量程序完整

1、卡西欧 5800 程序(完整版)说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。主程序:MAINZH（） F（）?M (0为正算、1为反算) If M=:Then ZHUANG HAO?A：KUAN DU?W:Else?H：?W:？：IfEnd(第一个交点参数)(交点桩号)P:(切线长度)T:(曲线总长)S:(圆半径)R=:(缓和曲线长)L:(第一方位角)U:(第二方位角)V:(交点X坐标

2、)N:(交点Y坐标)E:(第一直线长、无为0)D:(第一坡度)Z8:(第二坡度) Z9: (缓和曲线超高段长度)Z10:(曲线偏向,右偏为+1,左偏为-1)K If M=:Then If A<P-T:Then goto 1 :IfEnd:IfEndProgZFXZIf K=:Then goto 2 :IfEnd (中间交点参数)ProgZFXZIf K=:Then goto 2 :IfEnd (最后一个交点参数)If M=:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEndProgZFXZIf K=:Then goto 2 :IfEndLb1 1：

3、NO TASKLb1 2：If M=1:Then If A=1:Then ZHUANG HAO:ZSJ KUAN DU:BIfEnd:IfEnd-END-KUAN DU （拓展功能程序，用于反算）1:ProgMAINZA:WE:WProgGAO CHENGEWQ-FPIf P(从小至大):Then D:Goto 1:IfEnd(同上)Lb1 1:D(同上) -END-YUANK(B÷(2R)F2R Sin(K Fr)C J+FrJ ProgXZBHHHQXB-B5÷(9(RL)2)C KB2÷(6RL)F J+ FrJProgXZBHPYJSIf O=:ThenY

4、UAN:J+FrJ:IfEndIf O=1:ThenHHQX:J+2FrJ:IfEndIf O=2:ThenLINE:J+18J:IfEndWCIf A>P-T+S-L:Then J-9J:Else J+9J:IfEndProgXZBH"X=":X"Y=":YQXCS(有改)ProgQDZBIf AP-T+L:Then A-P+TB:UJ:1O: ProgHHQX: Goto 1 :IfEndIf AP-T+S-L:Then A-P+T-LB:0:L-L3÷(90R2)C:KL÷(6R)F:U+FrJ: ProgXZBH:U+3

5、FrJ: ProgYUAN: Goto 1:IfEndIf AP-T+S:Then P-T+S-AB:1O:-KK:V+180J: ProgHHQX: Goto 1 :IfEndIf AP-T+S+D:Then 2O:A-P+T-SC: ProgXZBH:IfEndLb1 1：ProgPYJSProgGA0 CHENGQDZBNX:EY:TCIf A>P-T+S-L:Then VJ: Else U+18J:IfEndProgXZBHXZ5:YZ6JDTZIf Z1< :Then Z1+ 36Z1:IfEndIf Z1 36:Then Z1- 36Z1:IfEndIf Z2<

6、:Then Z2+ 36Z2:IfEndIf Z2 36:Then Z2- 36Z2:IfEndFWJI:JPol(H-G,W-Z) J<J+36JJFDOTLINEPol(H-X,W-Y):INPol(G-H,Z-W):IE Pol(X-G,Y-Z):ID(N+E+D)÷2I(I(I-N)(I-E)(I-D)I 2I÷DI ZSPDIf AP-T+S+D:Then ProgQXCS:K:IfEnd FSPDIf K=-1:Then If Z1< Z2:Then If FZ1:Then Goto 1 :IfEnd:If FZ2:Then Goto 1 :IfEn

7、d:Else If FZ1:Then FZ2:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEndIf K=1:Then If Z1> Z2:Then If FZ1:Then Goto 1 :IfEnd :If FZ2:Then Goto 1 :IfEnd:Else If FZ1:Then If FZ2:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEndA: Goto 2Lb1 1If O=:Then ProgFSYUAN:IfEndIf O=1:Then ProgFSHHQX:IfEnd1ALb1 2FSTJU-90KZ1V-90KZ2Prog

8、JDTZP-TA-1OProgJDZBProgFSPDIf A=:Then Goto 1 :IfEnd（有改）Z1Z1: Z1+K(L÷(2R)rZ2:1OProgJDTZProgJDZBProgFSPDIf A=1:Then K: Goto 2 :IfEndZ5X:Z6Y:(KL)÷(6R)F:L-L3÷(90R2)C:U+FrJProgXZBHU+3Fr+90KJ:RCProgXZBHXG:YZProgFWJZ2Z1:Z1+K(S-2L)÷R)rZ2:0ProgJDTZProgFSPDIf A=1:Then K:Goto 2:IfEnd-KK:V+9

9、KZ1:Z1+K(L÷(2R)rZ2:1OProgJDTZP-T+SAProgJDZBProgFSPDIf A=1:Then K:Goto 2:IfEndLb1 1If D>:Then P-T+SA:ProgFSLINE:If A=1:Then K:IfEnd:IfEndLb1 2FSYUANYUAN36+K(F-Z1)F F36F-36FP-T+L+RF÷18Z:If K=1:Then R-IB: Else I-RB:IfEndFSHHQXHHQXZ5X:Z6Y Z1+18J:RCProgXZBHXG:YZZ5X:Z6Y ProgDOTLINEIf I<1:T

10、hen B:Goto 3: Else IB: ProgFSHHQX1:IZ7:B+I÷10B: ProgFSHHQX1:If I>Z7 :Then Goto 1: Else:Goto 2:IfEnd:IfEndLb1 1B-I÷2B: ProgFSHHQX1If I<1:Then -II:Goto 3: Else Goto 1:IfEndLb1 2B+I÷2B: ProgFSHHQX1If I<1:Then Goto 3: Else Goto 2:IfEnd（有改）Lb1 3If A>P-T+L:Then P-T+S-B-IZ: Else

11、P-T+B+IZ:IfEndIf K=1:Then If A<P-T+S-L:Then D-EB: Else E-DB:IfEnd:IfEndIf K=-1:Then If A<P-T+S-L:Then E-DB: Else D-EB:IfEnd:IfEndFSHHQX1Z5X:Z6Y:Z1+9KJProgHHQXXZ3:YZ4RC:J+2Fr+9KJProgXZBHXG:YZZ3X:Z4Y ProgDOTLINEJDZBProgQDZBZ5Z3:Z6Z4 If O=-1:Then P-T+SA: ProgQDZB:Z3Z5:Z4Z6: Else Z1+9K+K(L÷(6

12、R)rJ:L-L3÷(9R2)C: ProgXZBH:IfEnd (Z6-Y+Xtan(Z2)-Z5tan(Z1)÷(tan(Z2)-tan(Z1)G tanZ2(G-X)+YZProgFWJZFXZIf M=:Then ProgZSPD: Else ProgFSTJ:IfEndFSLINEProgQDZBXG:YZ:JNProgFWJNJ:F-JFIcos(F)GIf GD:Then If A>P-T+S-L:Then P-T+S+GZ:Isin(F)B:Else P-T-GZ:-Isin(F)B:IfEnd :1A:2O: Else A:IfEnd XZBHX+C

13、cos(J)XY+Csin(J)YHENG POIf AP-T+L-Z10 :Then Z8V:Goto 1:IfEndIf AP-T+L:Then (Z9-Z8)÷Z10E:Z8+(A-P+T-L+Z10)EV: Goto 1:IfEndIf AP-T+S-L:Then Z9V:Goto 1:IfEndIf AP-T+S-L+Z10:Then (Z8-Z9)÷Z10E:Z9+(A-P+T-S+L)EV: Goto 1:IfEndZ8V Lb1 1GAO CHENG(交点桩号)O:(交点高程)D:(小桩号坡度)N:(切线长度)G:(圆曲线半径)R If AO-G:Then K: Goto 1:IfEndIf AO+G:Then 1K: Goto 1:IfEnd (K=0为直线、K=1为凸圆、K=-1为凹圆)（同上）Lb1 1:ProgHENG POK（A-O+G）2÷(2R)P D+N(A-O)-P+WVF&qu