#最新

5800计算器全线坐标计算放样正反算程序       

子程序  数据库  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: IFEND�LIF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）�L补充直线段输入如下(单独直线段）IF K<本段直线终点里程 AND  K≥本段直线起点里程:THEN 本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E: Z[16]+ (K- Z[3])*COS E→Z[18]:Z[17]+ (K- Z[3])*SIN E→Z[19] : Return:IFEND