5800交点法不对称缓和曲线

Casio5800交点法程序

（输入版）

（歪哥哥2009版）

本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！

本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！

主程序名：5.JD

24→Dimz↙

Cls :＂XC＂?U :＂YC＂?V :＂K（JD）＂?K :＂X（JD）＂?X :

＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R :

＂（ZH）FWJ°＂?M : ＂α（Z-,Y+）°＂?O : M+O→N :

Prog ＂JDA＂↙

Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢

Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢

Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1,

Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢

LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0 :Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙

If D＜0 :Then Cls :＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls :＂S(L)=＂: Locate 6,1,I : ＂F(L)=＂:

360Frac((J+360)÷360▼DMS◢

Goto 0: IfEnd↙

If D=0 :Then Cls :＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G : ＂

QXFWJ(Z)=＂: Z▼DMS◢

Pol(F-U,G-V : Cls :＂S(Z)=＂: Locate 6,1,I : ＂F(Z)=＂:

360Frac((J+360)÷360▼DMS◢

Goto 0: IfEnd↙

If D＞0 :Then Cls :＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls :＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂:

360Frac((J+360)÷360▼DMS◢

Goto 0: IfEnd↙

子程序1名：JDA

If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙

B2 ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙

C2 ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙

B÷2-B^(3)÷240÷R2→Z[8] ↙

C÷2-C^(3)÷240÷R2→Z[9] ↙

Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙

Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙

RAπ÷180+(B+C) ÷2→L↙

RAπ÷180-(B+C) ÷2→Q↙

(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙

K-S→Z[1] ↙↙

Z[1]+B→Z[2] ↙↙

Z[2]+Q÷2→Z[3]↙

Z[1]+L-C→Z[4]↙

Z[4]+C→Z[5]↙

子程序2名：JDB

X-Scos(M)→Z[19]:

Y-Ssin(M)→Z[20]↙

X+Tcos(N)→Z[21]:

Y+Tsin(N)→Z[22]↙

If P＞Z[1]:Then Goto 1 :IfEnd↙

Z[1]-P→L↙

X-(S+L)cos(M)+Dcos(Z+H)→F↙

Y-(S+L)sin(M)+Dsin(Z+H)→G↙

M→Z : Goto 5↙

LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙

P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙

Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙

Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙

M+90WL2 ÷(BRπ)→Z↙

Goto 5↙

LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙

P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙

Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙ Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙

Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙

M+WZ[11]→Z↙

Goto 5↙

LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙

Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂JDC＂↙

Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙

Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙

N-90WL2 ÷(CRπ)→Z↙

Goto 5↙

LbI 4 : P-Z[5]→L↙

X+(T+L)cos(N)+Dcos(Z+H)→F↙

Y+(T+L)sin(N)+Dsin(Z+H)→G↙

N→Z↙

Goto 5↙

LbI 5 : 360Frac((Z+360)÷360→Z↙