5800交点法完美版.doc

FX5800计算器交点法正反算程序 1、主程序{本程序适用于单交点，多交点，对称及非对称线性曲线} 程序名：1WMJD LbI 0：4→DimZ：Norm 2:2→A:“ZS=1，FS=2”?A: A=1=Goto 1:A=2=Goto 2 LbI 1:90→Z[1]:＂S＂?Z:Prog“JDSJ”:0→D:“Z=”?D: Prog ZY: I+D×COS(Z[2]+Z[1])→X: J+D×Sin(Z[2]+Z[1])→Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Locate 6,4,Ｙ:“FWJ=”: Z[2] ?DMS◢ Goto 1←┚ LbI 2：＂S＂?Z←┚ LbI C: Prog＂JDSJ＂: ＂X=＂?X: ＂Y=＂?Y:Prog ＂ZX＂: Fix 3:＂S＝＂：Locate 6,4,Ｚ：＂Z＝＂：Locate 6,4,Ｄ：Goto C←┚ 2. 交点法正算子程序(ZY) 程序名：ZY H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:((H2-N2）÷24÷R÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P)→W:0→M:H→C: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→Z[3]: O-T+πR×Abs(P)÷180+H÷2-N÷2→Z[4] ←┚ If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd←┚ If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd←┚ If Z≤Z[4]: Then 180(Z-O+T-0.5H)÷R÷π→S : A+R(1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]: A-T→A:G→E :Goto 2: IfEnd←┚ If Z≤Z[4]+N:Then Z[4]+N-Z→S:Z[3]→T :N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd←┚ Z-Z[4]-N+Z[3]→S:G+P→Z[2]: LbI 1:U+Scos(Z[2])→I:V+Ssin(Z[2])→J: Return:LbI 2:U+Acos(E)-WBsin(E)→I:V+ASin(E)+WBcos(E)→J 3. 交点法缓和段子程序(HX) 程序名：HX S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4) ÷H∧(4)→A:S∧(3) ÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:90S2÷π÷R÷H→K:RH÷S→M 4. 交点法反算子程序(ZX) 程序名：ZX 0→D:Do:Z+D→Z:Prog“ZY”:Pol(X-I,Y-J+0.000000001):J-Z[2]→J:Isin(J)→S:Icos(J)→D: If M≠0:Then Pol(M-WS,D):JMπ÷180→D:IfEnd: LpWhile Abs(D)0.001:Z+D→Z:S→D 5．坐标计算参数矩阵调出子程序（F） 程序名：SJZ Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→N: Mat F[1,7]→P: Mat F[1,8]→R 6．数据子程序(根据自己标段设计数据自行修改) 程序名：JDSJ（坐标计算要素程序,暂例子只给二条线路参数） If Z≤122269.856:Then [[121656.952, 2603848.019, 508351.147, 98°53′22.6″,660,300, 41°47′44.1″, 1415.097]]→Mat F: Prog“SJZ”: Return: IfEnd←┚ If Z≤125115.9:Then [[123984.982, 2601974.464, 509885.441, 140°41′06.8″,700,400, －39°31′43.7″,2800]]→Mat F: Prog“SJZ”: Return:IfEnd←┚ LbI 2:If Z≤396.166:Then [[213.698, 2600569.493, 514256.323, 238°49′17.1″,107.584,120.4