卡西欧5800路基测量程序VIP专享

卡西欧 5800路基测量程序(3 页)Good is good, but better carries it.精益求精，善益求善。晋-测量-斐斐(532901847) 21:20:03一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量 16→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"： N≥2=>Goto 2： Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"： "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1: Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"： "S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 →Z[1]： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： (1-L) →F： (1-K)→M： U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X： V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y： G+QEW(C+WD)+90→F： X+ZcosF→X： Y+ZsinF→Y 3. 反算子程序(SUB2) G-90 →Z[2]： Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W： 0→Z：Lbl 0：Prog "SUB1"： Z[2]+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL→Z： If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEnd Lbl 1： 0→Z：Prog "SUB1"： (J-Y)÷sinF→Z 4. 数据库(SUB3) If S<226100:Then Cls:Stop: IfEnd If S<226255.833:Then 226100→O： 99037.9736→U： 4282.3590→V： 201.3266304→G： 1045→P： 1045→R： 253.543→H： 0→Q: Goto 1:IfEnd …… …… If S>236005.651:Then Cls:Stop: IfEnd Lbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E： 5. 算方位角程序(FA) LbI0：“XC=”? A...