FX5800计算器交点法正反算程序.doc

1、FX5800计算器交点法正反算程序输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色为输入计算器里的内容)1、 主程序程序名：1XY-KMLbI 0：7DimZ：Norm 2:1A：A:X,Y=1，KM,D=2?A:A=1=Goto 1:A=2=Goto 2:LbI 1:LbI A:ProgQX:90B:PJ?B:BZ1：LbI B:KM?Z:Z= -1=Goto 0:Z=-2=Goto A: ProgX1:?D: Prog Z:I+DCOS(Z2+Z1X: J+DSin(

2、Z2+Z1Y: ix 3:=：Locate 6,4,：Locate 6,4,：Goto B:LbI 2：ProgQX:KM?Z：LbI C: ProgX1: XO?X:X=-1=Goto 0:X=-2=Goto 2: Y0?Y:Prog ZX: Fix 3:：Locate 6,4,：Locate 6,4,Goto C2. 交点法正算子程序(Z)程序名：ZH2R24-H(4)2688R(3)A:H2-H(3)240R2B:（H2-N2）24RSin(Abs(P)-(H(4)-N(4)2688R(3)Sin(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:PAbs(PW:0M:HC:

3、(R+N2R24-N(4)2688R(3)tan(Abs(P)2)+N2-N(3)240R2+EZ6: O-T+RAbs(P)180+H2-N2Z7:If ZO-T:Then Z-OS:GZ2:Goto 1: IfEnd: If ZO-T+H:Then Z-O+TS:Prog “HX”:G+WKZ2:A-TA:GE:Goto 2:IfEnd:If ZZ7: Then 180(Z-O+T-0.5H)RS : A+R(1-Cos(S)B:H2-H(3) 240R2+Rsin(S)A:RM:G+WSZ2: A-TA:GE :Goto 2: IfEnd:If ZZ7+N:Then Z7+N-ZS:Z6

4、T :NH:Prog “HX”:G+PE:E-WKZ2:T-AA:CH:Goto 2:IfEnd: Z-Z7-N+Z6S:G+PZ2: LbI 1:U+Scos(Z2)I:V+Ssin(Z2J: Return:LbI 2:U+Acos(E)-WBsin(EI:V+ASin(E)+WBcos(EJ3. 交点法缓和段子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4) H(4A:S(3) 6RH-S(7)336R(3)H(3)+S(11)42240R(5) H(5B:90S2RHK:RHSM4. 交点法反算子程序(ZX)程序名：ZX0D:Do:Z+DZ:Prog“Z”:Po

5、l(X-I,Y-J+.000000001:J-Z2J:Isin(JS:Icos(JD: If M0:Then Pol(M-WS,D:JM180D:IfEnd: LpWhile Abs(D)0.001:Z+DZ:SD5线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1A:”QX:？=0，X1=1,X2=2”?A:AZ3:If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”？N：“JDZJ”？P:?R:IfEnd6坐标计算参数矩阵调出子程序（F）程序名：FMat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6N: Mat F1,7P: Mat F1,8R7数据子程序(根据自己标段设计数据修改红色部分)程序名：X1（坐标计算要素程序,暂例子只给二条线路参数）Z3=0=Return:Z3=1=Goto 1:Z3=2=Goto 2:LbI 1:IfZ12