搜索
本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！主程序名：JD24→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=＂:Locate4,1,S:Locate4,2,T:Locate4,3,L:Locate4,4,Q◢Cls:＂E=＂:＂K（ZH）=＂:Locate7,1,E:Locate7,2,Z[1]◢Cls:＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂:Locate7,1,Z[2]:Locate7,2,Z[3]:Locate7,3,Z[4]:Locate7,4,Z[5]◢LbI0:＂K×+×××＂?P:＂Z＂?D:IfD≠0:Then＂RJ＂?H:IfEnd:Prog＂JDB＂↙IfD＜0:ThenCls:＂X(L)=＂:＂Y(L)=＂:Locate6,1,F:Locate6,2,G◢Pol(F-U,G-V:Cls:＂S(L)=＂:Locate6,1,I:＂F(L)=＂:360Frac((J+360)÷360▼DMS◢Goto0:IfEnd↙IfD=0:ThenCls:＂X(Z)=＂:＂Y(Z)=＂:Locate6,1,F:Locate6,2,G:＂QXFWJ(Z)=＂:Z▼DMS◢Pol(F-U,G-V:Cls:＂S(Z)=＂:Locate6,1,I:＂F(Z)=＂:360Frac((J+360)÷360▼DMS◢Goto0:IfEnd↙IfD＞0:ThenCls:＂X(R)=＂:＂Y(R)=＂:Locate6,1,F:Locate6,2,G◢Pol(F-U,G-V:Cls:＂S(R)=＂:Locate6,1,I:＂F(R)=＂:360Frac((J+360)÷360▼DMS◢Goto0:IfEnd↙子程序1名：JDAIfO＜0:Then-1→W:Else1→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名：JDBX-Scos(M)→Z[19]:Y-Ssin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙IfP＞Z[1]:ThenGoto1: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:Goto5↙LbI1:IfP＞Z[2]:ThenGoto2: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↙Goto5↙LbI2:IfP＞Z[4]:ThenGoto3: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↙Goto5↙LbI3:IfP＞Z[5]:ThenGoto4: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↙Goto5↙LbI4:P-Z[5]→L↙X+(T+L)cos(N)+Dcos(Z+H)→F↙Y+(T+L)sin(N)+Dsin(Z+H)→G↙N→Z↙Goto5↙LbI5:360Frac((Z+360)÷360→Z↙子程序3名：JDCIfZ[12]=0:Then0→Z[14]:0→Z[15]:Else↙Z[12]-Z[12]^(5)÷40÷(RZ[13])2+Z[12]^(9)÷3456÷(RZ[13])^(4)→Z[14]↙Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+Z[12]^(11)÷42240÷(RZ[13])^(5)→Z[15]↙IfEnd↙程序说明：已知数据输入：XC?测站X坐标YC?测站Y坐标K（JD）?交点桩号X（JD）?交点X坐标Y（JD）?交点Y坐标LS1?第一缓和曲线长度LS2?第二缓和曲线长度R?圆曲线半径（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）?本交点处线路转角（左转为负，右转为正，度分秒输入）K×+×××?待求桩号Z?待求桩号距中距离（左负值，右正值，中为0）RJ?斜交右角（线路切线前进方向与边桩右侧夹角）计算结果显示：T1=第一切线长T2=第二切线长L=曲线总长LY=圆曲线长E=曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X=Y=待求点的坐标（其中：L-左Z-中R-右）QXFWJ(Z)=待求点的中桩切线方位角（当求中桩坐标时显示）S=F=测站至待求点的水平距离、方位角（其中L-左Z-中R-右）