交點正反算坐標可計算不對稱緩和曲線藍星

1、5800交點正反算坐標（可計算不對稱緩和曲線）藍星FX5800P交點法正反算坐標程序 作者:藍星 QQ群號: 輸入圖紙中的整個標段交點要素，輸入樁號及距中樁距離正算本標段任意點坐標，及極坐標放樣的方位角及距離;由輸入大概樁號及實測坐標，反算準確樁號及距中樁距離。 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. 交點法正算子程序(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交點法正反算坐標程序 作者:藍星 QQ群號: 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. 交點法緩和段子程序(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. 交點法反算子程序(ZX) 程序名:ZXFX5800P交點法正反算坐標程序 作者:藍星 QQ群號: 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ù)(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(坐標計算參數(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(導線點子程序(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、樣計算程序(計算放樣點至置儀點方位角及距離) 程序名:JSFX5800P交點法正反算坐標程序 作者:藍星 QQ群號: 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坐標計算要素程序) 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: 說明:If Z交點HZ點樁號:Then交點樁號，交點X坐標，交點Y坐標，前交點至止交點方位角，交點前段緩和曲線長度，交點后段緩和曲線長度，交點轉(zhuǎn)角，圓半徑 Mat F: Prog”F”: Return: IfEnd: 注:轉(zhuǎn)角分正負，左偏為負，右偏為正.加粗O為子母.Z2值為所計算點切線方位角。 輸入部分: 1、:A:X,Y=1，KM,D=2: 選擇正反算，輸1為正算，輸2為反算; 2、XZ, YZ,輸入置儀點X、Y坐標FX5800P交點法正反算坐標程序 作者:藍星 QQ群號:

9、 3、”QX:,=0，X1=1” 選擇手工輸入?yún)?shù)及調(diào)入?yún)?shù)，輸0則手工輸入交點線元參數(shù)，輸1則調(diào)入子程序X1的線元參數(shù)。 4、PJ 路線方向中線向右夾角，默認為90度; 5、JDKM,XJ,YJY,FW,LS1,LS2,JDZJ,R,分別輸入:交點樁號，交點X坐標，交點Y坐標，前交點至止交點方位角，交點前段緩和曲線長度，交點后段緩和曲線長度，交點轉(zhuǎn)角，圓半徑 6、KM, 輸入計算段任意點樁號(主程序中輸-1，返回選擇正反算，輸-2，返回選擇輸入?yún)?shù)、調(diào)用參數(shù). 7、D, 距中樁距離，左負，右正，中樁輸0。 輸出部分: 1、X=* 正算時，計算得出的所求點的X坐標 2、 Y=* 正算時，計算得

10、出的所求點的Y坐標 3、FWJ=* 正算時，計算得出的所求點的至置儀點方位角(顯示即是125度32分58秒) 4、S=* 正算時，計算得出的所求點的至置儀點距離 5、,=* 反算時，計算得出的所求點的里程 6、,=* 反算時，計算得出的所求點的邊距 附X1子程序中數(shù)據(jù)的設計圖紙。(紅色部分)FX5800P交點法正反算坐標程序 作者:藍星 QQ群號: 直線、曲線及轉(zhuǎn)角表第 1 頁 共 2 頁 S11-2-4 工程名稱:廣州至河源高速公路,惠州段,SJ-2合同段直線長度及方向交 點 坐 標曲 線 要 素 值 (m)曲 線 主 點 樁 號交點交點樁號轉(zhuǎn) 角 值備 注第一緩和曲線第一緩和曲線終第二緩和曲線起第二緩和曲線緩和曲緩和曲切