1、最新Casio5800交点法程序线路任意中边桩坐标计算汇总Casio5800交点法程序(线路任意中边桩坐标计算)Casio5800交点法程序(输入版)(歪哥哥2009版)本程序由一个主程序JD和三个子程序(JDA、JDB、JDC)构成,运行时只需运行主程序即可!本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内(含交点前后有直线段时)的曲线要素核对和坐标计算,手工输入要素,对设计图纸的“直线、曲线转角表”中交点数据进行复核验证,并为线元法程序提供起点坐标起点切线方位角等数据!当然本程序也可单独逐交点输入进行放样计算用!鉴于5800计算器的空间和以上所述本程序的主要目的,故此
2、程序不修改为数据库版本!需要的自行修改结合XY框架自己修改为数据库反算程序等! 主程序名:5.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)=:
3、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)
4、=: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
5、-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+Ts
6、in(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-Z1L:LZ12:BZ13:ProgJDCZ19+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(Z1
7、1)+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-PL:LZ12:CZ13:ProgJDCZ21-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)
8、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 ? 圆曲线
9、半径(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-右) (歪哥哥郑重声明:代码无误,输入注意!使用者使用不当所造成的一切损失概不负责!)