文档介绍：
5800计算器正反算程序TYQXJS
5800坐标正反程序
资料具体介绍：
本程序由4800程序改编而成，网上有5800积分通用公式，但由坐标反算里程及边距时很慢，本程序大大提高了反算速度
5800计算器正反算程序TYQXJS
5800坐标正反程序
资料具体介绍：
本程序由4800程序改编而成，网上有5800积分通用公式，但由坐标反算里程及边距时很慢，本程序大大提高了反算速度。 1. 主程序(TYQXJS)
Lbl 4：\：\：？N：？S：Prog“SUB0”↙ 1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：↙Lbl 1:? Z： Abs(S-O) →W：Prog \： \：X◢ \：Y◢F-90→F： “FS=”：F▲DMS◢Goto4↙
Lbl 2：？X： ？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙
2. 正算子程序(SUB1)
→A： →B： →K： →L： 1-L→F： 1-K→M：
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Acos(G+QEMW(C+MWD)))→X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：
G+QEW(C+WD)+90→F： X+Zcos〔F〕→X： Y+Zsin〔F〕→Y Return
2. 反算子程序(SUB2)
G-90→T： Abs((Y-V)cosT-(X-U)sinT) →W： 0(零)→Z：Lbl 0：Prog \：
T+QEW(C+WD) →L： (J-Y)cos〔L〕-(I-X)sin〔L〕→Z：If Abs〔Z〕 XY 2. XY = > SZ
N ? 选择计算方式，输入1表示进展由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。
S ？正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，假设夸线元的话，需进展其次次反算，并以第一次的结果做为近似里程，否那么反算的里程及边