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

FX5800 2.3版修改版 支持原版兼容性功能，做以下修改 三维坐标正反算 高程序支持单交点 宽度放样，加宽，坐标显示 边坡放样边坡级数增加 涵洞计算放样四点输出 汇总程序名：0 C1rMat:C1rVar:22?DimZ:Norm 2:Do:”(XYZ=1, FS=2,GC=3, GDJS=4,BPFY=5,HD-XY=6,ZP=7,JS=8,SD=9)=?QING AN1-9”:Getkey?Z[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 865603453” : 程序名：1XYZ Prog “DX” :Prog “QX” :Do: ”KM” ?Z=-1=Stop: Prog “K” :?D: Porg “A” :Z[2]+90?A :I+Dcos(A?X:J+Dsin(A?Y:Prog “XY” : Prog “H”: “Z=”: Locate 6,4,H: “BF=”:Locate 4,4, Z[2]◢Z[8]?M:”MO”?M:M?Z[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=-1=Stop:Z=-2=Break: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” :0?B: “H-B” ?B: B?Z[9]: Do: “KM” ?Z:Z=-1=Stop:Z=-2=Break: ?D :Prog “H”: Fix 3: ”H=”: Locate 6,4, H-Z[9]: Fix 4:”ZPI=” :Locate 6,4, I: LpWhile Z≠-1 程序名：QX-H 1?A:”QX:X1=1,X2=2”?A:A?Z[4]:IfA=0: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=-1=Stop: Z=-2=Break:-1?D:Prog “C” :L?P:-P?Z[20]: 1?D: Prog “C” : L?Z[20]:Fix 3: “LGD=” :Locate 6,4, P: “LK=3.5+” :Locate 8,4, P-3.5: ”RGD=” :Locate 6,4,L: “RK=3.5+” :Locate 8,4, L-3.5: ◢Z?Z:-Z[20]?D: Prog “4GD-1”: Z?Z: 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]+90?A:I+Dcos(A?X: J+Dsin(A?Y: Prog “XY”: Prog “JS” 5.主程序：路基开挖边线及填方坡放样程序 程序名：5BPFY Prog “DX” :Prog “QX” :0.5?B: “TH-GD” ?B :B?Z[7]: Do: “KM” ?Z:Z=-1=Stop:Z=-2=Break: Prog “K” : ”XO” ?X : ”YO” ?Y:Z[8]?M: “MO” ?M :M?Z[8] :Prog “B” :D?P :Prog