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

Casio5800交点法程序 （输入版） 本程序由一个主程序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 24R-B^(4)2688R ^(3) →Z[6] ↙ C2 24R-C^(4)2688R ^(3) →Z[7] ↙ B2-B^(3)240R2 →Z[8] ↙ C2-C^(3)240R2 →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(A2)-R→E↙ K-S→Z[1] ↙↙ Z[1]+B→Z[2] ↙↙ Z[2]+Q2→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)