5800P编程计算器坐标正反算程序

5800P编程计算器坐标正反算程序

一，主程序文件名（TYQXJS）

LbI 4:“1.SZ=> XY’’:’’2.XY=>SZ’’︰?N:?S:Prog“SUB0”

1÷P→C：(P－R) ÷(2HPR) →D：180÷π→E：N=1=> Goto1:Goto2

LbI 1: ？Z:Abs(s－O)→W︰Prog“SUB1”︰“XS=”:X◀“YS=”:Y◀

F－90→F:”FS=”:F▶DMS◀

Goto 4

LbI 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O＋W→S﹕“S=”S◀“Z=”：Z◀

Goto 4

二:子程序（文件名SUB1）

0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1－L→F:1－K→M:U＋W(Acos(G＋QEKW(C＋KWD))＋Bcos(G＋QELW(C＋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＋QEMW(C＋QEMW(C＋MWD)))→Y:G＋QEW(C＋WD)＋90→F:X＋Zcos(F)→X:Y＋Zsin(F)→Y 三:反算子程序(文件名SUB2)

G－90→T:Abs((Y－V)Cos(T)－(X－U)Sin(T)→W:0→Z:LbI 0:Prog“SUB1”:T＋QEW(C＋WD)→L:(J－Y)cos(L)－(I－X)sin(L)→Z:IfAbs(Z)＜0.000001:ThenGoto1:Else W＋Z→W:Goto0

LbI 1:0→Z:Prog“SUB1”:(J－Y)÷sin(F)→Z:

四:数据库(文件名)

LbI 1:If S＜止点里程:Then起点方位角→G:起点里程→O:起点X坐标→X:起点Y坐标→Y:起点半径→P:止点半径→R:曲线长→H:左转(-1)右转(1)直线(0)→Q:Return:IfEnd

数据库说明:

每增加一段曲线就增加以上一句上面的语句，当半径为无穷大时以10的45次方代替，左转输入负1，右转输入正1

五:程序输入及显示说明

1:输入部分

1，SZ=>XY

2，XY=>SZ

N? 选择计算方式输入1表示由里程边距计算坐标(正算)输入2表示由坐标计算里程及边距(反算)

S? 正算时输入所求点的里程，反算时为所求点的近似里程(注意反算时的近似里程不能跨曲线，如果跨曲线需要进行两次反算，并以第一的里程结果作为近似里程，否则，反

算的里程及边距不对。

Z? 正算时输入所求点距控制平曲线的边距，左取负，右取正，控制线上取零。

X? 反算时输入所求点X坐标。

Y? 反算时输入所求点Y坐标。

2显示部分

XS=------ 正算时显示所求点X坐标。

YS=------ 正算时显示所求点Y坐标。

FS=------ 正算时显示所求点对应中线的切线方位角。S=-------- 反算时显示所求点的里程。

Z=-------- 反算时显示所求点距控制平曲线的边距。