FX5800計(jì)算器交點(diǎn)法正反算程序.doc

FX5800P測(cè)量程序設(shè)計(jì) FX5800計(jì)算器交點(diǎn)法正反算程序輸入圖紙中的整個(gè)標(biāo)段交點(diǎn)要素，輸入樁號(hào)及距中樁距離正算本標(biāo)段任意點(diǎn)坐標(biāo)，及極坐標(biāo)放樣的方位角及距離;由輸入大概樁號(hào)及實(shí)測(cè)坐標(biāo)，反算準(zhǔn)確樁號(hào)及距中樁距離。(綠色為程序名，藍(lán)色為輸入計(jì)算器里的內(nèi)容)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:Z4K:Z5L:“XZ”?K:”YZ”?L:KZ4:LZ5: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(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: Fix 3:：Locate 6,4,：Locate 6,4,：Goto C2. 交點(diǎn)法正算子程序(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: (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: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. 交點(diǎn)法緩和段子程序(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. 交點(diǎn)法反算子程序(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時(shí)。則輸曲線參數(shù)（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坐標(biāo)計(jì)算參數(shù)矩陣調(diào)出子程序（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：極坐放樣計(jì)算程序(計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)程序名：JSZ4K：Z5L：Pol(X-K, Y-L+.0000000001): JJ+360J: Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J: Fix 4:” FWJ=”: Locate 6,4,J：Fix 3:” S=”:Locate 6,4,I8數(shù)據(jù)子程序(根據(jù)自己標(biāo)段設(shè)計(jì)數(shù)據(jù)修改紅色部分)程序名：X1（坐標(biāo)計(jì)算要素程序,暫例子只給二條線路參數(shù)）Z3=0=Return:Z3=1=Goto 1:Z3=2=Goto 2:LbI 1:If Z122269.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:If Z396.166:Then 213.698, 2600569.493, 514256.323, 2384917.1,107.584,120.474, 643940, 250Mat F: Prog”F”: Return: IfEnd:說(shuō)明：If Z交點(diǎn)HZ點(diǎn)樁號(hào)(或者直線段樁號(hào))：Then交點(diǎn)樁號(hào)，交點(diǎn)X坐標(biāo)，交點(diǎn)Y坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)前段緩和曲線長(zhǎng)度，交點(diǎn)后段緩和曲線長(zhǎng)度，交點(diǎn)轉(zhuǎn)角，圓半徑 Mat F: Prog”F”: Return: IfEnd:注：轉(zhuǎn)角分正負(fù)，左偏為負(fù)，右偏為正.加粗O為子母.Z2值為所計(jì)算點(diǎn)切線方位角。輸入部分：1、A:X,Y=1，KM,D=2? 選擇正反算，輸1為正算，輸2為反算；2、XZ？ YZ？輸入置儀點(diǎn)X、Y坐標(biāo)3、”QX:？=0，X1=1，X2=2”? 選擇手工輸入?yún)?shù)及調(diào)入?yún)?shù)，輸0則手工輸入交點(diǎn)線元參數(shù)，輸1則調(diào)入子程序X1中第一條線路，輸入計(jì)算第二條線路。4、PJ? 路線方向中線向右?jiàn)A角，默認(rèn)為90度；5、JDKM？XJ？YJY？FW？LS1？LS2？JDZJ？R？分別輸入：交點(diǎn)樁號(hào)，交點(diǎn)X坐標(biāo)，交點(diǎn)Y坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)前段緩和曲線長(zhǎng)度，交點(diǎn)后段緩和曲線長(zhǎng)度，交點(diǎn)轉(zhuǎn)角，圓半徑6、KM？ 輸入計(jì)算段任意點(diǎn)樁號(hào)（主程序中輸-1，返回選擇正反算，輸-2，返回選擇輸入選擇線路或輸入?yún)?shù). 7、D？ 距中樁距離，左負(fù)，右正，中樁輸0。輸出部分：1、X=*正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)2、 Y=*正算時(shí)，計(jì)算得出的所求點(diǎn)的Y坐標(biāo)3、FWJ=* 正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方位角（顯示125.3258即是125度32分58秒）4、S=* 正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)距離5、=*反算時(shí)，計(jì)算得出的所求點(diǎn)的里程6、=*反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距附X1子程序中數(shù)據(jù)的設(shè)計(jì)圖紙。(紅色部分)- 9 -樁 號(hào)坐 標(biāo)N (X)E (Y)EK0+0002600680.126 514439.154 EK0+0202600669.814 514422.018 EK0+0402600659.759 514404.730 EK0+0602600650.222 514387.151 EK0+0802600641.480 514369.166 EK0+1002600633.822 514350.694 EK0+107.5842600631.266 514343.554 EK0+1202600627.548 514331.709 EK0+1402600622.808 514312.284 EK0+1602600619.636 514292.543 EK0+1802600618.051 514272.611 EK0+2002600618.064 514252.616 EK0+2202600619.675 514232.687 EK0+2402600622.874 514212.949 EK0+2602600627.639 514193.531 EK0+275.6922600632.456 514178.599 EK0+2802600633.941 514174.555 EK0+3002600641