r
r
Z20Z14si
MWZ15cosMDsi
ZH→Gr
r
M90WL2÷BRπ→Zr
r
Goto5r
r
LbI2IfP＞Z4The
Goto3IfE
dr
r
PZ1→L902LB÷R÷π→Z11r
r
Rsi
Z11Z8→Z14R1cosZ11Z6→Z15r
r
Z19Z14cosMWZ15si
MDcosZH→Fr
r
Z20Z14si
MWZ15cosMDsi
ZH→Gr
r
MWZ11→Zr
r
Goto5r
r
LbI3IfP＞Z5The
Goto4IfE
dr
r
Z5P→LL→Z12C→Z13Prog＂JDC＂r
r
Z21Z14cosNWZ15si
NDcosZH→Fr
r
Z22Z14si
NWZ15cosNDsi
ZH→Gr
r
N90WL2÷CRπ→Zr
r
Goto5r
r
LbI4PZ5→Lr
r
XTLcosNDcosZH→Fr
r
YTLsi
NDsi
ZH→Gr
r
N→Zr
r
Goto5r
r
LbI5360FracZ360÷360→Zr
r
子程序3名：JDCr
r
IfZ120The
0→Z140→Z15Elser
r
Z12Z125÷40÷RZ132Z129÷3456÷RZ134→Z14r
r
Z123÷6÷RZ13Z127÷336÷RZ133Z1211÷42240÷RZ135→Z15r
r
IfE
dr
r
r
r
程序说明：r
r
已知数据输入：r
r
XC测站X坐标r
r
YC测站Y坐标r
r
K（JD）交点桩号r
r
X（JD）交点X坐标r
r
Y（JD）交点Y坐标r
r
LS1第一缓和曲线长度r
r
LS2第二缓和曲线长度r
r
R圆曲线半径r
r
（ZH）FWJ°交点前（即前交点至本交点也即ZH点）的正切线方位角r
r
α（ZY）本交点处线路转角（左转为负，右转为正，度分秒输入）r
r
K××××待求桩号r
r
Z待求桩号距中距离（左负值，右正值，中为0）r
r
RJ斜交右角（线路切线前进方向与边桩右侧夹角）r
r
计算结果显示：r
r
T1第一切线长r
r
T2第二切线长r
r
L曲线总长r
r
LY圆曲线长r
r
E曲线外距r
r
KZH直缓点桩号r
r
KHY缓圆点桩号r
r
KQZ曲中点桩号r
r
KYH圆缓点桩号r
r
KHZ缓直点桩号r
r
XY待求点的坐标（其中：L左Z中R右）r
r
QXFWJZ待求点的中桩切线方位角（当求中桩坐标时显示）r
r
SF测站至待求点的水平距离、方位角（其中L左Z中R右）r
r
（歪哥哥郑重声明：代码无误，输入注意！使用者使用不当所造成的一切损失概不负责！！）r
首先声明这个程序我不是原创只不过我做了一下修改以后，以后就一直用这个程序呢，发出来大家分享一下！r
r
符号为回车键r
r
Fx5800计算机程序r
QXJS000主程序r
Lbl4“1SZNE”“2NESZ”QSGProg“QXJSSUB0”r
Lbl0Q1Goto1Q2Goto2r
Lbl1ZProg“QXJSSUB1”“N”Nr
“E”Er
“F”Fr
Goto4r
Lbl2“N”B“E”CB→NC→EProg“QXJSSUB2”“S”Sr
“Z”Zr
Goto4r
r
QXJSSUB0数据库子程序r
Goto1同时保存多个曲线时的指针r
Lbl1r
IFS（线元终点里程）The
→A（线元起点方位角）→O（线元起点里程）r