5800计算器公路坐标计算程序(全线)
原４８５０程序改编
Lb1 1
”K”?K:”W”?W:”O”?O:”I”?I
IF K<41490.879:Then 40776.825→A: 41490.879→ B: 3761346.715→ M: 505279.147→N：166°45′36.3″→F： 1/1045→D：1/1045→E ：Goto 0 :Return:Ifend
IF K<41690.879:Then 41490.879→A: 41690.879→ B: 3760651.641→ M: 505442.686→N：166°45′36.3″→F： 1/1045→D：1/1000→E ：Goto 0 :Return:Ifend
IF K<42242.154:Then 41690.879→A: 42242.154→ B: 3760455.626→ M: 505481.961→N：172°29′22.78″→F： 1000→ R：Goto 2: Return:Ifend
IF K<42442.154:Then 42242.154→A: 42442.154→ B: 3759916.982→ M: 505403.549→N：204°04′31.62″→F： 1/1000→D： 1/1045→E： Goto 0 : Return:Ifend
IF K<42673.884:Then 42442.154→A: 42673.884→ B: 3759740.299→ M: 505310.019→N ：209°48′18.1″→F： 1/1045→D： =1/1045→E ：Goto 0 : Return:Ifend
IF K<42863.884:Then 42673.884→A: 42863.884→ B:3759539.223→ M:505194.838→N：209°48′18.1″→F：-1/1045→D:-1/800→E：Goto 0 : Return:Ifend
IF K<43636.692:Then 42863.884→A: 43636.692→ B:3759370.853→ M:505107.051→N：203°00′04.15″→F：R=-800：Goto2 : Return:Ifend
IF K<43826.692:Then 43636.692→A: 43826.692→ B:3758630.216→ M: 505167.591→N：147°39′10.35″→F： -1/800→D：E=-1/1045→E :Goto 0 : Return:Ifend
IF K<44825.092:Then 43826.692→A: 44825.092→ B:3758478.338→ M: 505281.555→N：140°50′56.4″→F：-1/1045→D：-1/1045→E: Goto 0 : Return:Ifend
IF K<45025.092:Then 44825.092→A: 45025.092→ B:3757704.093→ M: 505911.911→N：140°50′56.4″→F： 1/1045→D：1/1000→E：Goto 0 : Return:Ifend
IF K<45300.109:Then 45025.092→A: 45300.109→ B:3757544.945→ M: 506032.892→N：146°34′42.88″→F：R=1000：Goto 2 : Return:Ifend
IF K<45500.109:Then 45300.109→A: 45500.109→ B:3757297.588→ M: 506151.102→N：162°20′09.32″→F： 1/1000→D： 1/1045→E ：Goto 0 : Return:Ifend
IF K<45805.835:Then 45500.109→A: 45805.835→ B:3757103.485→ M: 506198.937→N：168°03′55.8″→F： 1/1045→D：1/1045→E： Goto 0 : Return:Ifend
IF K<45980.835:Then 45805.835→A: 45980.835→ B:3756804.367→ M: 506262.160→N：168°03′55.8″→F： -1/1045→D： -1/1000→E：Goto 0 : Return:Ifend
IF K<46136.333:Then 45980.835→A: 46136.333→ B:3756634.336→ M: 506303.312→N：163°03′07.63″→F：R=-1000：Goto 2 : Return:Ifend
Lb1 0
(E-D)÷(Abs(B-A)) →P：
Abs(K-A) →Q：
F+(PQ+2D)Q×90÷∏→J
F+(PQ÷4+2D)Q×45÷(2∏) →G
F+(3PQ÷4+2D)Q×135÷(2∏) →H
F+(PQ÷2+2D)Q×45÷∏→S：
M+Q÷12×(COS F+4(COS G+COS H)+2COS S+COS J) →X▲
N+Q÷12×(SIN F+4(SIN G+SIN H)+2SIN S+SIN J) →Y▲
GOTO 3
LbI 2
F+ABS(K-A)*180/(∏R) →J
M+R(SIN J-SIN F) →X▲
N-R(COS J-COS F) →Y ▲
GOTO 3
LbI3
If W=0:Then Goto 1 :
Else Goto 4:IfEnd
Lb14
X+ O COS(J-180+W) →Z▲
Y+ O SIN(J-180+W) →Z▲
X+I COS(J+W) →Z ▲
Y+I SIN(J+W) →Z ▲
Goto 1:”OK”
说明：“YJ”为右交角，当它输入为0时，只计算中桩坐标。

“DL”指左边桩距中桩距离“JD”是在放样桥涵的时候计算该轴线上大，小里程的坐标
“DR”指右边桩距中桩距离计算小里程时用负的右交角，大里程用180－右交角。

J为待算点方位角。