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

最后编辑：2019-08-01

作者：dawang

这个作者貌似有点懒，什么都没有留下。

站内专栏