NX
EY
0
530225372
0
530215916
0
530206503
0
530197175
0
530187975
0
530178947
0
530170133
f0
530161578
0
530153326
0
530145425
0
530137920
0
530130841
0
530124194
0
530117982
0
530112209
0
530106878
0
530101991
0
530097551
0
530093561
0
530090022
0
530086937
0
530084306
ff曲线坐标5800计算器编辑程序内容
程？序P：名？：ZQ：X”ZZBH（X曲”线？坐G标：”Z）HY”？H：？R：”LS1”？T：”ZHJD”？K：”ZH”？N：”Ly”？L：”HZX”？E：”HZY”？F：”LS2”？V：”HZJD”？Q：”Z1Y1”？B
LblA？M：？SIfM＜NThe
M＝＞GotoAIfe
dIfM＞（NTLV）The
M＝＞GotoAIfe
dIfM＞（NTL）The
M＝＞GotoDIfe
dIfM＞（NT）The
M＝＞GotoCIfe
dLblB第一缓和曲线
fAbs（MN）→WW－W5÷（40R2T2）W9÷（3456R4T4）→C支距X坐标W3÷（6RT）－W7÷（336R3T3）W11÷（42240R5T5）→D支距Y坐标90W2÷（πRT）→O缓和曲线角G＋CcosK＋BDsi
KScos（K－BO－90）→X
H＋Csi
K－BDcosK＋Ssi
（K－BO－90）→YPol（（XP），（YZ））：Cls方位角和距离程序IfJ＜0：The
J360→J：ElseJ→J：Ife
d：IJDMS
GotoALblC圆曲线T－T3÷（40R2）T5÷（3456R4）→CZH点到HY点支距X坐标T2÷（6R）－T4÷（336R3）T6÷（42240R5）→DZH点到HY点支距Y坐标K90BT÷（πR）→UHY点到JD点方位角AbsMNT×180÷（πR）→O待求点圆心角G＋CcosK＋BDsi
K2Rsi
05OCosU05BOSCosUBO90→XH＋Csi
K－BDcosK2Rsi
05OSi
U05BOSSi
UBO90→YPol（（XP），（YZ））：Cls方位角和距离程序IfJ＜0：The
J360→J：ElseJ→J：Ife
d：IJDMS
GotoALblD第二缓和曲线Abs（MNTLV）→WW－W5÷（40R2V2）W9÷（3456R4V4）→C支距X坐标W3÷（6RV）－W7÷（336R3V3）W11÷（42240R5V5）→D支距Y坐标90W2÷（πRV）→O缓和曲线角E＋CcosQBDsi
Q＋Scos（QBO90）→XF＋Csi
QBDcosQ＋Ssi
（QBO90）→YPol（（XP），（YZ））：Cls方位角和距离程序IfJ＜0：The
J360→J：ElseJ→J：Ife
d：IJDMS
GotoA
P、Z架站点X、Y坐标NZH点里程r