交點(diǎn)正反算坐標(biāo)可計(jì)算不對(duì)稱緩和曲線藍(lán)星

1、5800交點(diǎn)正反算坐標(biāo)（可計(jì)算不對(duì)稱緩和曲線）藍(lán)星FX5800P交點(diǎn)法正反算坐標(biāo)程序 作者:藍(lán)星 QQ群號(hào): 輸入圖紙中的整個(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)及距中樁距離。 1、 主程序 程序名:1XY-KM LbI 0:7DimZ:Norm 2:1A:A:X,Y=1，KM,D=2:A: A=1=Goto 1:A=2=Goto 2: :LbI A:Prog:QX:90B:PJ:B:BZLbI 1:Prog :DX1:LbI B:K:Z:Z= -1=Goto 0:Z=-2=Goto A: Prog:KM:D

2、: Prog Z:I+DCOS(Z2+Z1X: J+DSin(Z2+Z1Y: ,ix 3: ,=:Locate 6,4,: ,:Locate 6,4,:Prog:JS:Goto B: LbI 2:Prog:QX:LbI C:KM:Z:Z=-1=Goto 0:Z=-2=Goto 2: Prog:K: :XO:X: :Y0:Y:Prog :ZX: Fix 3: ,:Locate 6,4,: ,:Locate 6,4,:Goto C 2. 交點(diǎn)法正算子程序(Z) 程序名:Z 22HR24-H(4)2688R(3)A:H2-H(3)240RB:22(H-N)24RSin(Abs(P)-(H(4)-N(

3、4)2688R(3)Sin(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:PAbs(P2W:0M:HC: R+NR24-N(4)2688R(3)tan(Abs(P)FX5800P交點(diǎn)法正反算坐標(biāo)程序 作者:藍(lán)星 QQ群號(hào): 22)+N2-N(3)240R+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+RS : A+R(1-Cos2(S

4、)B:H2-H(3) 240R+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(EJ 3. 交點(diǎn)法緩和段子程序(HX) 程序名:HX 22S-S(5)40RH+S(9)3456R(4) H(4A:S(3) 6RH-S(7

5、)336R(3)H(3)+S(11)42240R(5)2 H(5B:90SRHK:RHSM 4. 交點(diǎn)法反算子程序(ZX) 程序名:ZXFX5800P交點(diǎn)法正反算坐標(biāo)程序 作者:藍(lán)星 QQ群號(hào): 0D: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: LpWhile Abs(D): Z+DZ:SD 5(線路選擇子程序(線路選擇輸0時(shí)。則輸曲線參數(shù)(QX) 程序名:QX A:AZ3: 1A:”QX:,=0，X1=1”If A=0:Then ”JDKM”O(jiān):”XJ

6、”U:”YJ”V:”FW”G:”LS1”H:“LS2”,N:“JDZJ”,P:R:IfEnd 6(坐標(biāo)計(jì)算參數(shù)矩陣調(diào)出子程序(F) 程序名:F Mat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6N: Mat F1,7P: Mat F1,8R 7(導(dǎo)線點(diǎn)子程序(DX) 程序名:DX Z4K:Z5L:“XZ”K:”YZ”L:KZ4:LZ5 8(線路中線元段判別子程序(KM) 程序名:K If Z3=0:Then Return: IfEnd:If Z3=1:Then Prog “X1”:Return: IfEnd 9:極坐放

7、樣計(jì)算程序(計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離) 程序名:JSFX5800P交點(diǎn)法正反算坐標(biāo)程序 作者:藍(lán)星 QQ群號(hào): X:Y:Z4K:Z5L:Pol(X-K, Y-L+.0000000001): JJ+360J: Int(J)+(60Frac(J)+(60Frac(J)J: Fix 4:” FWJ=”: Locate 6,4,J: Fix 3:” S=”:Locate 6,4,I 10(數(shù)據(jù)子程序 程序名:X1(線路1坐標(biāo)計(jì)算要素程序) If Z:Then , , , 9853,660,300, 4147, Mat F: Prog”F”: Return: IfEnd: If Z:Then ,

8、, , 14041,700,400, ,3931,2800Mat F: Prog”F”: Return:IfEnd: 說(shuō)明:If Z交點(diǎn)HZ點(diǎn)樁號(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)FX5800P交點(diǎn)法正反算坐標(biāo)程序 作者:藍(lán)星 QQ群號(hào):

9、 3、”QX:,=0，X1=1” 選擇手工輸入?yún)?shù)及調(diào)入?yún)?shù)，輸0則手工輸入交點(diǎn)線元參數(shù)，輸1則調(diào)入子程序X1的線元參數(shù)。 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ù)、調(diào)用參數(shù). 7、D, 距中樁距離，左負(fù)，右正，中樁輸0。 輸出部分: 1、X=* 正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo) 2、 Y=* 正算時(shí)，計(jì)算得

10、出的所求點(diǎn)的Y坐標(biāo) 3、FWJ=* 正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方位角(顯示即是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ì)圖紙。(紅色部分)FX5800P交點(diǎn)法正反算坐標(biāo)程序 作者:藍(lán)星 QQ群號(hào): 直線、曲線及轉(zhuǎn)角表第 1 頁(yè) 共 2 頁(yè) S11-2-4 工程名稱:廣州至河源高速公路,惠州段,SJ-2合同段直線長(zhǎng)度及方向交 點(diǎn) 坐 標(biāo)曲 線 要 素 值 (m)曲 線 主 點(diǎn) 樁 號(hào)交點(diǎn)交點(diǎn)樁號(hào)轉(zhuǎn) 角 值備 注第一緩和曲線第一緩和曲線終第二緩和曲線起第二緩和曲線緩和曲緩和曲切