本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！r
r
本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！r
r
r
r
主程序名：5JDr
r
24→Dimzr
r
Cls＂XC＂U＂YC＂V＂K（JD）＂K＂X（JD）＂Xr
r
＂Y（JD）＂Y＂LS1＂B＂LS2＂CRr
r
＂（ZH）FWJ°＂M＂α（ZY）°＂OMO→Nr
r
Prog＂JDA＂r
r
Cls＂T1＂＂T2＂＂L＂＂LY＂Locate41SLocate42TLocate43LLocate44Qr
r
Cls＂E＂＂K（ZH）＂Locate71ELocate72Z1r
r
Cls＂K（HY）＂＂K（QZ）＂＂K（YH）＂＂K（HZ）＂Locate71Z2Locate72Z3Locate73Z4Locate74Z5r
r
LbI0＂K××××＂P＂Z＂DIfD≠0The
＂RJ＂HIfE
dProg＂JDB＂r
r
IfD＜0The
Cls＂XL＂＂YL＂Locate61FLocate62Gr
r
PolFUGVCls＂SL＂Locate61I＂FL＂r
r
360FracJ360÷360DMSr
r
Goto0IfE
dr
r
IfD0The
Cls＂XZ＂＂YZ＂Locate61FLocate62G＂QXFWJZ＂ZDMSr
r
PolFUGVCls＂SZ＂Locate61I＂FZ＂r
r
360FracJ360÷360DMSr
r
Goto0IfE
dr
r
IfD＞0The
Cls＂XR＂＂YR＂Locate61FLocate62Gr
r
PolFUGVCls＂SR＂Locate61I＂FR＂r
r
360FracJ360÷360DMSr
r
Goto0IfE
dr
r
子程序1名：JDAr
r
IfO＜0The
1→WElse1→WIfE
dWO→Ar
r
B2÷24÷RB4÷2688÷R3→Z6r
r
C2÷24÷RC4÷2688÷R3→Z7r
r
B÷2B3÷240÷R2→Z8r
r
C÷2C3÷240÷R2→Z9r
r
Z8RZ7RZ6cosA÷si
A→Sr
r
Z9RZ6RZ7cosA÷si
A→Tr
r
RAπ÷180BC÷2→Lr
r
RAπ÷180BC÷2→Qr
r
RZ6Z7÷2÷cosA÷2R→Er
r
KS→Z1r
r
Z1B→Z2r
r
Z2Q÷2→Z3r
r
Z1LC→Z4r
r
Z4C→Z5r
r
子程序2名：JDBr
r
XScosM→Z19r
r
YSsi
M→Z20r
r
XTcosN→Z21r
r
YTsi
N→Z22r
r
IfP＞Z1The
Goto1IfE
dr
r
Z1P→Lr
r
XSLcosMDcosZH→Fr
r
YSLsi
MDsi
ZH→Gr
r
M→ZGoto5r
r
LbI1IfP＞Z2The
Goto2IfE
dr
r
PZ1→LL→Z12B→Z13Prog＂JDC＂r
r
Z19Z14cosMWZ15si
MDcosZH→Fr