5800计算器全线坐标计算放样正反算.docVIP

5800计算器全线坐标计算放样正反算（定稿）5800计算器全线坐标计算放样正反算程序（定稿）??????????????????????????????????????????彭赐明主程序??坐标正反算程序名称：ZBZFSLB1??ACls : Fix 4 : 30→Dim Z :0=ZS,1=FS?Z ↙If??Z=0:Then??Goto B:IfEnd↙(Z=0进入里程点坐标正算）If??Z=1:Then??ProgFSLCBZ : Goto A:IfEnd(Z=1进入反算里程边桩）Lb1 B??“K=”?K ：（计算里程） ProgSJK1 :Prog”ZBFY” :Goto A子程序??数据库??SJK1IF??K本段曲线终点里程??AND??K≥上段曲线终点里程 ：THEN??本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 半径→R : 曲线偏角→A:第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点 X→B :交点 Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Prog”XLZBJSCX”:Return: IFENDIF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）补充直线段输入如下(单独直线段）I