5800坐标正反算通用程序

',

坐标正反算通用程序(终极篇)

1. 坐标正算主程序(命名为ZBZS)

第1行:Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B

第2行:Prog “A”

第3行:”X=”:N+Zcos(F+B)◢

第4行:”Y=”:E+Zsin(F+B)◢

第5行:”F=”:F DMS◢

第6行: Goto 0

K——计算点的里程

BIAN——计算点到中桩的距离(左负右正)

α——取前右夹角为正

2. 坐标反算桩号和偏距主程序(命名为ZBFS)

第1行:”X1=”? C:”Y1=”?D: ”K1=”?K

第2行:Lbl 0:Prog “A”

第3行:Pol(C-N,D-E):Icos(F-J)→S:K+S→K

第4行:Abs(S)>0.0001=>Goto 0

第5行:”K1=”:K◢

第6行:”BIAN=”:Isin(J-F)→Z◢

X1——取样点的X坐标

Y1——取样点的Y坐标

K1——输入时为计算起始点(在线路内即可),输出时为反算点的桩号

Z——偏距(左负右正)

注:在9860或9960中需将第3行替换为 Pol(C-N,D-E): List Ans[1]→I :List Ans[2]→J:Icos(J-F)→S:K+S→K,正反算主程序所有输入赋值多加一赋值符号(→),其他所有除数据库外的程序均保持不变

3. 计算坐标子程序(命名为XYF)

为了简洁,本程序由数据库直接调用,上述中的正反算主程序不直接调用此程序

第1行:K-A→S:(Q-P)÷L→I

第2行:N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N

第3行:E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E

第4行:F+S(2P+SI)×90÷π→F

第5行:F<0=>F+360→F: F>360=>F-360→F

Word文档免费下载Word文档免费下载:5800坐标正反算通用程序 (共4页,当前第1页)

你可能喜欢

  • 卡西欧5800计算器编程
  • 坐标正反算公式
  • 卡西欧5800坐标正反算程序
  • 测量坐标计算公式
  • 卡西欧计算器
  • 坐标计算软件
  • 编程计算器
  • 线元法坐标计算程序

5800坐标正反算通用程序相关文档

最新文档

返回顶部