1、CASIO-5800 积分法线路坐标正反算雨中听风施工测量工作中较高档的计算器已很普及，施工放样的数据处理也应该采用程序化计算，以避免出错和提高测量工作的效率。下面介绍本人炎汝(炎陵至汝城湘粤界)高速公路施工测量工作中应用的 CASIO-5800 计算器线元积分法坐标正反算程序（程序应用了测量空间里李艳阳老师提供的通用积分公式，在此表示感谢）。该程序适用于任意线元的坐标、里程及偏距计算，只需更新数据库或者手工输入线元要素便可计之所需。1.积分坐标正反算主程序(JF.ZBZFS)Lb1 0: Cls1.SZ = XY2.XY =SZ :?Q灵活 LH.K=0左线 ZX.K=1右线 YX.K=2:
2、?KIF K=1:Then ProgYS1：Else IF K=2:Then ProgYS2:Else IF K=0:Then QS.FW?A: QS.LC?O: QS.X ?U: QS.Y ?V: R0?P: RN ?R: XY.CD?LIfend：Ifend：Ifend:？S ：S - （字母）O X：IF X L:Then =CUOWU=“Goto 0 ：Ifend :Q=2=Goto 2Lbl 1：？ Z：Prog ZSCls：Fix 3：N= ：Locate 3,1,N:E= ：Locate 3,2,E:FW= ：FDMS Norm 2 :Goto 0Lbl 2： CX？B：CY ？
3、C：BN：CE： ProgFS Cls: Fix 3：S=：Locate 4,1,S:Z=：Locate 4,2,Z Norm 2 :Goto 02. 正算子程序(ZS)0.5(1R-1P)LD:S-(字母) OXU+（cos(A+(XP+DX)180（圆周率）) ，（数字） 0，X）NV+（sim(A+(XP+DX)180（圆周率）)，（数字）0，X）EA+(XP+DX)180（圆周率）FN+Zcos(F+90)N:E+Zsim(F+90)E3. 反算子程序(FS)Lb1 1：( 数字)0Z: 1Q: ProgZSPol(N-B+10(-46) ,E-C+10(-46) Isim(F-90-
4、J)W:S+WSAbs(W)0.0001= Goto 1Lb1 2: (数字)0Z : ProgZS（C-E）sin(F+90)Z 数据库子程序(炎汝 11 标左线) （YS1）Goto 1 Lb1 1 IF S45871.346 And S XY2. XY = SZQ ? 选择计算方式，输入 1 表示进行由里程、偏距计算坐标 ；输入 2 表示由坐标反算里程和偏距。S ？正算时输入所求点的准确里程，反算时输入所求点的近似里程。运算时若显示=CUOWU=（错误），就再循环一次才显示正确的结果。Z ？正算时所求点距中线的偏距(左侧取负值,右侧取正值，在中线上取零)CX ？反算时所求点的实测 X 坐
5、标CY ？反算时所求点的实测 Y 坐标显示部分：N= 正算时，计算得出的所求点的 X 坐标E= 正算时，计算得出的所求点的 Y 坐标FW= 正算时，所求点对应的中线点的切线方位角S= 反算时，计算得出的所求点的里程Z= 反算时，计算得出的所求点的偏距CASIO Fx-5800P 计算器万能程序QXJS-主程序L=?L:LI CHENG=?W :Goto A:If End S+CS+CI Prog “1XY” L=2=Prog”A” If WReP(Z) And WImP(Z):Then Prog”MP”:Goto 0:If End:Next:Goto A:If End S+CS+CI ”Y=”?Y”Y0=”?GJ+360J360=J-360JReturnLocate 1,1,”S=”: Locate 7,2,U-IGoto 0
