FX5800计算器交点法正反算程序（修改）

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+D×COS(Z2

2、+Z1X: J+D×Sin(Z2+Z1Y: ix 3: =：Locate 6,4,： ：Locate 6,4,：“FWJ”: Locate 6,4,Z2Goto 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)程序名：ZH2÷R÷24-H(4)÷2688÷R(3)A:H÷2-H(3)÷240÷

3、R2B:（H2-N2）÷24÷R÷Sin(Abs(P)-(H(4)-N(4)÷2688÷R(3)÷Sin(Abs(PE:(R+A)tan(Abs(P)÷2)+B-ET:P÷Abs(PW:0M:HC: (R+N2÷R÷24-N(4)÷2688÷R(3)tan(Abs(P)÷2)+N÷2-N(3)÷240÷R2+EZ6: O-T+R×Abs(P)÷180+H÷2-N÷2Z7:If ZO-T:Then

4、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)÷R÷S : A+R(1-Cos(S)B:H÷2-H(3) ÷240÷R2+Rsin(S)A:RM:G+WSZ2: A-TA:GE :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+Z

5、6S: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)÷40÷R2÷H2+S(9)÷3456÷R(4) ÷H(4A:S(3) ÷6÷R÷H-S(7)÷336÷R(3)÷H(3)+S(11)÷42240÷R(5) ÷H(5B:90S2÷÷R÷

6、;HK:RH÷SM程序名：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:JM÷180D: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坐标计算参

7、数矩阵调出子程序（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:If Z122269.856:Then 121656.952, 2603848.019, 508351.147, 98°5322.6,660,300, 41°4744.1, 1415.097Mat F: Prog

8、”F”: Return: IfEnd:If Z125115.9:Then 123984.982, 2601974.464, 509885.441, 140°4106.8,700,400, 39°3143.7,2800Mat F: Prog”F”: Return:IfEnd:LbI 2:If Z396.166:Then 213.698, 2600569.493, 514256.323, 238°4917.1,107.584,120.474, 64°3940, 250Mat F: Prog”F”: Return: IfEnd:说明：If Z交点HZ点桩号(或

9、者直线段桩号)：Then交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径 Mat F: Prog”F”: Return: IfEnd:注：转角分正负，左偏为负，右偏为正.加粗O为子母.Z2值为所计算点切线方位角。输入部分：1、A:X,Y=1，KM,D=2? 选择正反算，输1为正算，输2为反算；2、”QX:？=0，X1=1，X2=2”? 选择手工输入参数及调入参数，输0则手工输入交点线元参数，输1则调入子程序X1中第一条线路，输入计算第二条线路。3、PJ? 路线方向中线向右夹角，默认为90度；4、JDKM？XJ？YJY？FW？LS1？LS2？JDZJ？R？分别输入：交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径5、KM？ 输入计算段任意点桩号（主程序中输-1，返回选择正反算，输-2，返回选择输入选择线路或输入参数.6、D？ 距中桩距离