卡西歐基本測量程序完整

1、卡西歐 5800 程序(完整版)說明：本程序適用于公路、橋梁、隧道測量。本程序簡單、方便、快捷、拓展功能寬，使用時只需按曲線要素表輸入一次就可以計算整條線路（包括高程、超高段橫坡），能正、反算，在已知坐標下可以反算出該點樁號及相對寬度，拓展功能有，放邊、仰坡、隧道斷面測量、開挖輪廓線等。主程序:MAINZH（） F（）?M (0為正算、1為反算) If M=:Then ZHUANG HAO?A：KUAN DU?W:Else?H：?W:？：IfEnd(第一個交點參數(shù))(交點樁號)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 (中間交點參數(shù))ProgZFXZIf K=:Then goto 2 :IfEnd (最后一個交點參數(shù))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