建筑工程技术资料汇总-Casio5800交点法程序.doc

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

2、C?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 : L

3、ocate 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 :

4、 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)2688

5、R (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-Z1L:LZ12:BZ13:ProgJDCZ19+Z14cos(M)