5800改编版,含数据库,全线路中边桩坐标正反算程序,含正交,斜交正反算

5800改编版,含数据库,全线路中边桩坐标正反算程序,含正交,斜交正反算

XH            主程序
LBI 4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:?H:?K:Prog“数据库名”↙
Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙
Lbl 1:?Z:Prog“正算程序”:“X=”:N◢:“Y=”:E◢:“F=”:F◢: Goto4↙
Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“主程序名”: “S=”:S◢: “Z=”:Z◢: Goto4↙

IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙
每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件。
ZBZS           正算子程序
0.5(1÷R-1÷P)÷L→D:S-O→X↙
U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙
V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙
A+(X÷P+DX2)×180÷π→F↙
N+Zcos(F+K) →N:E+Zsin(F+K) →E
SJK           数据库
H=1=>Prog“1”:H=2=>Prog“2”:每增加一个线元,数据库增加一个H和Prog“  “

ZBFS           反算子程序
Lbl 1:0→Z:1→Q:Prog“数据库名”: Prog“正算程序名”↙
Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-K-J) →W:S+W→S↙
Abs(W)>0.0001 => Goto1↙
Lbl 2: 0→Z:Prog“正算程序名”:(C-E) ÷sin(F+K) →Z

  • 发表于 2018-11-05 14:13
  • 阅读 ( 69 )
  • 分类:5800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

  1. admin 174 文章
  2. 胡亮 4 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 老Y 2 文章
  6. netbee 1 文章
  7. 秦汉 1 文章
  8. boyving 1 文章