FX5800计算器公路测量常用程序集23修改版本.doc

FX5800 2.3版修改版 支持原版兼容性功能，做以下修改 三维坐标正反算 高程序支持单交点 宽度放样，加宽，坐标显示 边坡放样边坡级数增加 涵洞计算放样四点输出 汇总程序名：0 C1rMat:C1rVar:22DimZ:Norm 2:Do:”XYZ1, FS2,GC3, GDJS4,BPFY5,HD-XY6,ZP7,JS8,SD9QING AN1-9”:GetkeyZ[3]:While Z[3]35:Prog “1XYZ”:WhileEnd: While Z[3]36:Prog ”2FS”: WhileEnd: While Z[3]37:Prog “3GC“：WhileEnd: WhileZ[3]21:Prog “4GDJS” : WhileEnd: While Z[3]22:Prog “5BPFY” :WhileEnd: While Z[3]23: Prog “6HD-XY” :WhileEnd: While Z[3]31:Prog “7ZP” : WhileEnd :While Z[3]32:Prog “8JS” : WhileEnd: While Z[3]33 :Prog “9SD” :WhileEnd: LpWhile Z [3]≠25: “ Thinks 座机电话号码3” : 程序名：1XYZ Prog “DX” :Prog “QX” :Do: ”KM” ?Z-1Stop: Prog “K” :?D: Porg “A” :Z[2]+90A :I+DcosAX:J+DsinAY:Prog “XY” : Prog “H”: “Z”: Locate 6,4,H: “BF”:Locate 4,4, Z[2]◢Z[8]M:”MO”?M:MZ[8]: “SCGC”: Locate 7,4, Z[8]: “T+W-”: Locate 7,4,H-Z[8]: Prog “JS”: LpWhile Z≠-1 程序名：2FS Prog “QX” :Do:”KM”?Z-1Stop:Z-2Break:Prog “K” : ”XO” ?X:”YO” ?Y: Porg ”B”: Porg ”B” Porg ”H”: Prog “ZD”: “Z”: Locate 6,4,H◢ LbWhile Z≠-1 3.主程序：任意点高程计算及横坡 程序名：3GC Prog “QX-H” :0B: “H-B” ?B: BZ[9]: Do: “KM” ?Z:Z-1Stop:Z-2Break: ?D :Prog “H”: Fix 3: ”H”: Locate 6,4, H-Z[9]: Fix 4:”ZPI” :Locate 6,4, I: LpWhile Z≠-1 程序名：QX-H 1A:”QX:X11,X22”?A:AZ[4]:IfA0:Then”JDKM”?C:”HJD”?G:”RJD”?R:Z[21]I:”I1”?I:Z[22]N:”I2”?N: IfEnd 4.主程序：标准路基宽度计算 程序名：4GDJS Prog “DX” :Prog “QX” :Do: “KM” ?Z: Prog “K” :Z-1Stop: Z-2Break:-1D:Prog “C” :LP:-PZ[20]: 1D: Prog “C” : LZ[20]:Fix 3: “LGD” :Locate 6,4, P: “LK3.5+” :Locate 8,4, P-3.5: ”RGD” :Locate 6,4,L: “RK3.5+” :Locate 8,4, L-3.5: ◢ZZ:-Z[20]D: Prog “4GD-1”: ZZ: Z[19]D:Prog “4GD-1”: LpWhile Z≠-1（3.5为路面半幅宽度，可以自己设置） 子程序4GD-1 If D0:Then “L-XY-AI-DI”◢ Else “R+XY-AI-DI”◢IfEnd: Prog “K”: Prog “A”:Z[2]+90A:I+DcosAX: J+DsinAY: Prog “XY”: Prog “JS” 5.主程序：路基开挖边线及填方坡放样程序 程序名：5BPFY Prog “DX” :Prog “QX” :0.5B: “TH-GD” ?B :BZ[7]: Do: “KM” ?Z:Z-1Stop:Z-2Break: Prog “K” : ”XO” ?X : ”YO” ?Y:Z[8]M: “MO” ?M :MZ[8] :Prog “B” :DP :Prog “C” :If D0:The -LD:Else LD:IfEnd: Prog “H”:H-Z[8]G:Prog ”W1”:If G0:Then Got