5800全线正反算FX5800计算器交点法程序

1、FX5800 计算器交点反算程序输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色为输入计算器里的内容)1、主程序程序名：1XY-KMLbI 0：7DimZ：Norm 2:1A：A:X,Y=1，KM,D=2?A:A=1=Goto1:A=2=Goto2:LbI1:Z4K:Z5L:“XZ”?K:”YZ”?L:KZ4:LZ5:LbI A:ProgQX:90 B: PJ ?B:B Z1 ： LbI B: KM ?Z:Z= -1=Goto0:Z=-2=Goto A: ProgX1:?

2、D: Prog Z:I+DCOS(Z2+Z1X: J+DSin(Z2+Z1Y: ix 3:=：Locate 6,4,：Locate 6,4,：ProgJS:Goto B:LbI 2：ProgQX:KM?Z：LbI C: ProgX1: XO?X:X=-1=Goto 0:X=-2=Goto 2: Y0?Y:Prog ZX: Fix3:：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:(

3、R+A)tan(Abs(P)2)+B-ET:PAbs(PW:0M:HC: (R+N2R24-N(4)2688R(3)tan(Abs(P)2)+N2-N(3)240R2+EZ6: O-T+RAbs(P)1 80+H2-N2Z7:If ZO-T:Then Z-OS:GZ2:Goto1: 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 :

4、Goto 2: IfEnd:If ZZ7+N:Then Z7+N-ZS:Z6T :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. 交点法反

5、算子程序(ZX)程序名：ZX0D:Do:Z+DZ:Prog“Z”:Pol(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）程序

6、名：FMat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6N: Mat F1,7P: Mat F1,8R7：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ4K：Z5L：Pol(X-K, Y-L+.0000000001): JJ+360J:(J)+0.01(60Frac(J)+0.006Frac(60Frac(J) J:Fix 4:” FWJ=”: Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I8数据子程序(根据自己标段设计数据修改红色部分)程序名：X1（坐标计算要素程序,暂例子

7、只给二条线路参数）Z3=0=Return:Z3=1=Goto 1:Z3=2=Goto 2:LbI 1:IfZ122269.856:Then 121656.952, 2603848.019,508351.147, 985322.6,660,300, 414744.1, 1415.097Mat F: Prog”F”: Return: IfEnd:If Z125115.9:Then 123984.982, 2601974.464, 509885.441, 1404106.8,700,400, 393143.7,2800Mat F: Prog”F”: Return:IfEnd:LbI 2:IfZ396

8、.166:Then 213.698, 2600569.493, 514256.323, 2384917.1,107.584,120.474, 643940, 250Mat F: Prog”F”: Return: IfEnd:说明：If Z交点 HZ 点桩号(或者直线段桩号)：Then交点桩号，交点 X 坐标，交点 Y 坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径Mat F: Prog”F”: Return: IfEnd:为负，右偏为正.加粗 O 为子母.Z2值注：转角分正负，为所计算点切线方位角。输入部分：1、A:X,Y=1，KM,D=2?选择正反算

9、，输 1 为正算，输 2 为反算；2、XZ？ YZ？输入置仪点 X、Y 坐标3、”QX:？=0，X1=1，X2=2”? 选择手工输入参数及调入参数，输 0 则手工输入交点线元参数，输 1 则调入子程序 X1 中第一条线路，输入计算第二条线路。4、PJ?路线方向中线向右夹角，默认为 90 度；5、JDKM？XJ？YJY？FW？LS1？LS2？JDZJ？R？分别输入：交点桩号，交点X 坐标，交点Y 坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径6、KM？ 输入计算段任意点桩号（主程序中输-1，返回选择正反算，输-2，返回选择输入选择线路或输入参数.7、D？

10、 距中桩距离，左负，中桩输 0。输出部分：1、X=*正算时，计算得出的所求点的X 坐标2、 Y=*正算时，计算得出的所求点的Y 坐标3、FWJ=*正算时，计算得出的所求点的至置仪点方位角（显示 125.3258 即是 125 度 32 分 58 秒）4、S=*正算时，计算得出的所求点的至置仪点距离5、=*反算时，计算得出的所求点的里程6、=*反算时，计算得出的所求点的边距附 X1 子程序中数据的设计图纸。(红色部分)1231231234桩 号坐标N (X)E (Y)EK080.126514439.154EK069.814514422.018EK059.759514404.730EK050.222514387.151EK041.480514369.166EK033.822514350.694EK0+107.5842600631.266514343.554EK027.548514331.709EK022.808514312.284EK019.636514292.543EK018.051514272.611EK018.064514252.616EK019.675514232.687EK022.874514212.949EK027.639514193.531EK0+275.69