测量casio5800计算器交点法程序.pdfVIP

本程序由一个主程序 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] ◢ 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 2 If O ＜0 :Then -1 → W : Else 1 →W : IfEnd : WO →A ↙ B2 ÷24 ÷R-