建筑工程技术资料汇总-测量Casio5800计算器交点法程序.doc
本程序由一个主程序JD和三个子程序(JDA、JDB、JDC)构成,运行时只需运行主程序即可!
本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内(含交点前后有直线段时)的曲线要素核对和坐标计算,手工输入要素,对设计图纸的“直线、曲线转角表”中交点数据进行复核验证,并为线元法程序提供起点坐标起点切线方位角等数据!当然本程序也可单独逐交点输入进行放样计算用!鉴于5800计算器的空间和以上所述本程序的主要目的,故此程序不修改为数据库版本!需要的自行修改结合XY框架自己修改为数据库反算程序等!
主程序名: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)-WZ[15]sin(M)+Dcos(Z+H)→F↙
Z