交点法坐标计算.docx

本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！主程序名：JD24DimzCls :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+ON : Prog JDACls :T1=:T2=:L=:LY=: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,QCls :E=:K（ZH）=: Locate 7,1,E : Locate 7,2,Z1Cls : K（HY）=:K（QZ）=:K（YH）=:K（HZ）=: Locate 7,1, Z2 : Locate 7,2, Z3 : Locate 7,3, Z4 : Locate 7,4, Z5LbI 0 : K+?P : Z?D : If D0 :Then RJ?H : IfEnd : Prog JDBIf D0 :Then Cls : X(L)=:Y(L)=: Locate 6,1,F : Locate 6,2,GPol(F-U,G-V : Cls : S(L)=: Locate 6,1,I : F(L)=: 360Frac(J+360)360DMSGoto 0 : IfEndIf D=0 :Then Cls : X(Z)=:Y(Z)=: Locate 6,1,F : Locate 6,2,G : QXFWJ(Z)=: ZDMSPol(F-U,G-V : Cls : S(Z)=: Locate 6,1,I : F(Z)=: 360Frac(J+360)360DMSGoto 0 : IfEndIf D0 :Then Cls : X(R)=:Y(R)=: Locate 6,1,F : Locate 6,2,GPol(F-U,G-V : Cls : S(R)=: Locate 6,1,I : F(R)=: 360Frac(J+360)360DMSGoto 0 : IfEnd子程序1名： JDAIf O0 :Then -1W : Else 1W : IfEnd : WOA B2 24R-B(4)2688R (3) Z6 C2 24R-C(4)2688R (3) Z7 B2-B(3)240R2 Z8 C2-C(3)240R2 Z9 Z8+(R+Z7-(R+Z6)cos(A)sin(A)SZ9+(R+Z6-(R+Z7)cos(A)sin(A)TRA180+(B+C) 2LRA180-(B+C) 2Q(R+(Z6+Z7)2)cos(A2)-REK-SZ1 Z1+BZ2 Z2+Q2Z3Z1+L-CZ4Z4+CZ5子程序2名： JDBX-Scos(M)Z19:Y-Ssin(M)Z20X+Tcos(N)Z21:Y+Tsin(N)Z22If PZ1:Then Goto 1 :IfEndZ1-PLX-(S+L)cos(M)+Dcos(Z+H)FY-(S+L)sin(M)+Dsin(Z+H)GMZ : Goto 5LbI 1 : If PZ2:Then Goto 2 :IfEndP-Z1LZ12:BZ13rogJDCZ19+Z14cos(M)-WZ15sin(M)+Dcos(Z+H)FZ20+Z14sin(M)+WZ15cos(M)+Dsin(Z+H)GM+90WL2 (BR)ZGoto 5LbI 2 : If PZ4:Then Goto 3 :IfEndP-Z1L:90(2L-B)RZ11Rsin(Z11)+Z8Z14:R(1-cos(Z11)+Z6Z15 Z19+Z14cos(M)-WZ15sin(M)+Dcos(Z+H)FZ20+Z14sin(M)+WZ15cos(M)+Dsin(Z+H)GM+WZ11ZGoto 5LbI 3 : If PZ5:Then Goto 4 :IfEndZ5-PLZ12:CZ13rogJDCZ21-Z14cos(N)-WZ15sin(N)+Dcos(Z+H)FZ22-Z14sin(N)+WZ15cos(N)+Dsin(Z+H)GN-90WL2 (CR)ZGoto 5LbI 4 : P-Z5LX+(T+L)cos(N)+Dcos(Z+H)FY+(T+L)sin(N)+Dsin(Z+H)GNZGoto 5LbI 5 : 360Frac(Z+360)360Z子程序3名： JDCIf Z12=0 :Then 0Z14: 0Z15:ElseZ12- Z12(5)40(RZ13)2+ Z12(9)3456(RZ13)(4) Z14Z12(3)6(RZ13)-Z12(7)336(RZ13)(3)+ Z12(11) 42240(RZ13)(5)Z15 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)=