卡西歐5800基本測(cè)量程序(完全版)

卡西歐5800程序（完整版）********IfK=0:Thengoto2:IfEndlIfK=0:Thengoto2:IfEndl說(shuō)明：本程序適用于公路、橋梁、隧道測(cè)量。本程序簡(jiǎn)單、方便、快捷、拓展功能寬，使用時(shí)只需按曲線(xiàn)要素表輸入一次就可以計(jì)算整條線(xiàn)路（包括高程、超高段橫坡），能正、反算，在已知坐標(biāo)下可以反算出該點(diǎn)樁號(hào)及相對(duì)寬度，拓展功能有，放邊、仰坡、隧道斷面測(cè)量、開(kāi)挖輪廓線(xiàn)等。主程序：MAIN"ZH(0)F(l)"?M1"ZH(0)F(l)"?M1（0為正算、1為反算）IfM=0:ThenDU”？W:Else"X="ZHUANGHAO"?A："KUAN"?H:IfM=0:ThenDU”？W:Else"X=（第一個(gè)交點(diǎn)參數(shù)）（交點(diǎn)樁號(hào)）???tP：聞線(xiàn)長(zhǎng)度）???一立（曲線(xiàn)總長(zhǎng)）???tS：（圓半徑）…1R二：（緩和曲線(xiàn)長(zhǎng)）???一匕（第一方位角）…一3（第二方位角）…一/（交點(diǎn)X坐標(biāo)）..LN:（交點(diǎn)Y坐標(biāo)）???一巳（第一直線(xiàn)長(zhǎng)、無(wú)為0）???-6（第一坡度）???一2〔8〕:（第二坡度）…-Z〔9〕:（緩和曲線(xiàn)超高段長(zhǎng)度）…一Z〔10〕：（曲線(xiàn)偏向,右偏為+1,左偏為-1）…-KIIfM=0:ThenIfA<P-T:Thengoto1:IfEnd:IfEndlProg"ZFXZ"IIfK=0:Thengoto2:IfEndl????(中間交點(diǎn)參數(shù))Prog"ZFXZ"I

（最后一個(gè)交點(diǎn)參數(shù)）IfM=0:ThenIfA>P-T+S+D:ThenGoto1:IfEnd:IfEndIProg"ZFXZ"IIfK=0:Thengoto2:IfEndlLb11:"NOTASK"ILb12:IfM=1:ThenIfA=1:Then"ZHUANGHAO":Z，"SJKUANDU":B，IfEnd:IfEndlIIENDIIIIENDIIKUANDU（拓展功能程序，用于反算）1-M:Prog"MAIN"IZTA:WTE：e—WIProg"GAOCHENG"IE—WIQ-F—PlIfP<??????（從小至大）:Then??????-D:Goto1:IfEndl（同上）Lb11l■■":D，■■（同上），IIENDIIIIENDIIYUANK(BX2R))1FI2RSin(KFr)1CIJ+FfIProg"XZBH"HHQXB-Ba5v(96(RL)2)^CIKB2X6RLLFIJ+Fr—JIProg"XZBH"PYJSIfO=6:Then"YUAN":J+Fr—J：IfEndIIfO=1:Then"HHQX":J+2Fr—J：IfEndIIfO=2:Then"LINE":J+186—J:IfEndlW—CIIfA>P-T+S-L:ThenJ-96—J:ElseJ+96—J:IfEndIProg"XZBH"I"X=":X，"Y=":Y，****IfZIfZ〔1〕<6:ThenZ〔1〕+366-Z[1]:IfEndlQXCS(有改)Prog"QDZB"IIfA<P-T+L:ThenA-P+T^B:U^J:1^O:Prog"HHQX":Goto1:IfEndlIfA<P-T+S-L:ThenA-P+T-L^B:6^0:L-LA3v(90R2)^C:KLv(6R)-F:U+FrTJ:Prog"XZBH":U+3Fr—J:Prog"YUAN":Goto1:IfEndlIfA<P-T+S:ThenP-T+S-AtB:1-O:-K—K:V+180tJ:Prog"HHQX":Goto1:IfEndlIfA<P-T+S+D:Then2tO:A-P+T-S—C:Prog"XZBH":IfEndILb11:lProg"PYJS"IProg"GA0CHENG"QDZBNtX:EtY:T—CIIfA>P-T+S-L:ThenV—J:ElseU+186^J:IfEndlProg"XZBH"IX—Z⑸:Y-Z〔6〕JDTZ****IfZ⑴2366:ThenZ⑴-366^Z[1]:IfEndlIfZ⑵<6:ThenZ⑵+366^Z[2]:IfEndlIfZ⑵2366:ThenZ⑵-366^Z[2]:IfEndlFWJeTe—jiPol(H-G,W-Z)IJ<e=J+360—J1J—FDOTLINEPol(H-X,W-Y):I—NIPol(G-H,Z-W):I—EIPol(X-G,Y-Z):I—DI(N+E+D)v2—HV(I(I-N)(I-E)(I-D))—II2I+D—IIZSPDIfA<P-T+S+D:ThenProg"QXCS”:e—K:IfEndIFSPDIfK=-1:ThenIfZ〔1〕<Z〔2〕:ThenIfF<Z〔1〕:ThenGoto1:IfEnd:IfF>Z〔2〕:ThenGoto1:IfEnd:ElseIfF<Z〔1〕:ThenF>Z〔2〕：ThenGoto1:IfEnd:IfEnd:IfEnd:IfEndIIfK=1:ThenIfZ〔1〕>Z〔2〕：ThenIfF>Z〔1〕：ThenGoto1:IfEnd:IfF<Z〔2〕：ThenGoto1:IfEnd:ElseIfF>Z〔1〕：ThenIfF<Z[2]:ThenGoto1:IfEnd:IfEnd:IfEnd:IfEndle-A:Goto21Lb111IfO=e：ThenProg"FSYUANFfEndlIfO=1:ThenProg"FSHHQX":IfEndl1-AlLb12FSTJU-90K-Z[1]lV-90K-Z[2]lProg"JDTZ"lP-T-Al-1-OlProg"JDZB"lProg"FSPD"lIfA=e：ThenGoto1:IfEndl(有改)Z[1]-Z[1]:Z[1]+K(L+(2R))r—Z[2]:2—OlProg"JDTZ"lProg"JDZB"lProg"FSPD"IIfA=1:Thene—K:Goto2:IfEndlZ[5]—X:Z[6]—Y:(KL)v(6R)—F:L-LA3v(90R2)—C:U+Fr―JlProg"XZBH"IU+3Fr+90K—J:R—ClProg"XZBH"IX―G:Y—ZlProg"FWJ"IZ[2]—Z[1]:Z[1]+K((S-2L)vR)r—Z[2]:0—0lProg"JDTZ"IProg"FSPD"IIfA=1:Then0—K:Goto2:IfEndl-K—K:V+9eK—Z[1]:Z[1]+K(Lv(2R))r—Z[2]:1—OlProg"JDTZ"IP-T+S—AlProg"JDZB"lProg"FSPD"lIfA=1:Thene—K:Goto2:IfEndlLb11lIfD>e:ThenP-T+S—A:Prog"FSLINE":IfA=1:Thene—K:IfEnd:IfEndlLb12FSYUAN"YUAN"I36e+K(F-Z[1])1FIF>366^F-369TF/IP-T+L+nRFv186^Z:IfK=1:ThenR-I—B:ElseI-R-B:IfEndIFSHHQX"HHQX"!Z[5]—X:Z[6]—YIZ[1]+186—J:R—ClProg"XZBH"IX―G:Y—ZlZ[5]—X:Z[6]—YIProg"DOTLINE"IIfI<1:Then6—B:Goto3:ElseI—B:Prog"FSHHQX1":I―Z[7]:B+Iv10—B:Prog"FSHHQX1":IfI>Z[7]:ThenGoto1:Else:Goto2:IfEnd:IfEndlLb1HB-I+2-B:Prog"FSHHQX1"IIfI<1:Then-I—I:Goto3:ElseGoto1:IfEndlLb121B+I+21B:Prog"FSHHQX1"IIfI<1:ThenGoto3:ElseGoto2:IfEndI(有改)Lb131IfA>P-T+L:ThenP-T+S-B-I—Z:ElseP-T+B+I—Z:IfEndIIfK=1:ThenIfA<P-T+S-L:ThenD-E—B:ElseE-D―B:IfEnd:IfEndlIfK=-1:ThenIfA<P-T+S-L:ThenE-D—B:ElseD-E―B:IfEnd:IfEndFSHHQX1Z[5]—X:Z[6]—Y:Z[1]+96K—JlProg"HHQX"IX—Z[3]:Y—Z[4]lR—C:J+2Fr+96K—JlProg"XZBH"IX—G:Y—ZlZ[3]—X:Z[4]—YIProg"DOTLINE"JDZBProg"QDZB"IZ[5]—Z[3]:Z[6]—Z[4]IIfO=-1:ThenP-T+S—A:Prog"QDZB":Z[3]—Z[5]:Z[4]—Z[6]:ElseZ[1]+96K+K(Lv(6R))r—J:L-LA3v(96R2)—C:Prog"XZBH":IfEndI****1fA<P-T+L:Then(Z[9]-Z[8]) 1fA<P-T+L:Then(Z[9]-Z[8]) + Z[10] 一(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[1]))Xtan(Z[2])-tan(Z[1]))TGItanZ⑵(G-X)+Y—ZIProg＂FWJ＂ZFXZIfM=6:ThenProg"ZSPD":ElseProg"FSTJ":IfEndFSLINEProg"QDZB"IX—GV—ZJ—NIProg"FWJ"IN—J:F-J—FIIcos(F)—GIIfG<D:ThenIfA>P-T+S-L:ThenP-T+S+G—Z:Isin(F)—B:ElseP-T-G-Z:-Isin(F)—B:IfEnd:1-A:2—O:Else6—A:IfEndXZBHX+Ccos(J)—XIY+Csin(J)—YHENGPOIfA<P-T+L-Z[10]:ThenZ[8]—V:Goto1:IfEndI****E:Z[8]+(A-P+T-L+Z[10])E—V:Goto1:IfEndlIfA<P-T+S-L:ThenZ[9]1V:Goto1:IfEndIIfA<P-T+S-L+Z[10]:Then(Z[8]-Z[9])+Z[10]tE:Z[9]+(A-P+T-S+L)E—V:Goto1:IfEndlZ[8]—VILb11GAOCHENG……（交點(diǎn)樁號(hào)）TO；……（交點(diǎn)高程）16……（小樁號(hào)坡度）一^（切線(xiàn)長(zhǎng)度）16:……（圓曲線(xiàn)半徑）tRIIfA<O-G:Thene—K:Goto1:IfEndlIfA<O+G:Then1—K:Goto1:IfEndl（K=0為直線(xiàn)、K=1為凸圓、K=-1為凹圓）（同上）Lb11:Prog"HENGPO"IK(A-O+G)2v(2R)—PID+N(A-O)-P+WV—FIFWJJS（測(cè)回