5800主程序坐标正反算
- 文档部分内容预览:
- 主程序坐标正反算 程序名称:ZBZFS Lb1 A↙ 30→Dim Z :"0=ZS,1=FS"?Z ↙ If Z=0:Then Goto B:IfEnd↙ (Z=0进入里程点坐标正算) If Z=1:Then Prog"FSLCZ "↙ (Z=1进入反算里程边桩) Lb1 B ↙ Prog”ZBZS” ↙ 子程序反算里程桩 名称:FSLCZ Lb1 1↙ "XK="?X:"YK="?Y↙(输入任意测点的X、Y坐标) “K=”?K ↙(试算里程,任意输入标段内里程点即可,也可以输入大致的估算里程加快速度) Lb1 2↙ Prog"SJK ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W))→S↙ If S<0.0001:Then Goto 4:Els....
- 路桥设计、计算
- 相关专题: