大程序 多條曲線坐標計算程序

1、ZHCHXU（線路坐標計算主程序） 提示：必須先執(zhí)行一次“Defm 60”命令，使擴展變量得到確認！Deg:Norm:Lb1 S:Z1=»QU:QXo: UYoFix3: Z3=»U=0: K=1mInt ZZk Fixm: Lb1 A:Z.1=»KM=K: N=6:Lb1 B:ZN+3:Rnd:KAns=»ProgD:Pol(XN-XN-3, YN-YN-3:V=J:Pol(XN+3-XN,YN+3-YN:W=J:S=Sin-1Sin(W-V:C=AbsS:S=S÷C:H=1kFrac1E4ZN:G=1E5Frac XNk+Frac1E4YN

2、: L=GC÷1r+H:E=G+H2÷(24G)-H4÷(2688G3):T=E tan.5C+H÷2-H3÷240 G2:E=E÷Cos.5C-G:R=GS:ZN:Rnd: Z4=»Q=AnsP=K-Ans: D=P:X=Rec(-T,V)+ X N:Y=J+YN:D0=»A=X+Rec(D,V:B=Y+J:F=V:»C=V:O=2:Prog H PH=»O=3: D=P-L÷2: C=V+90S+.5Sin-1Sin(W-V:X=Rec(E+G , C)+XN:Y=J+Y N: A

3、=X+ Rec(-G , Dr÷R+C:B=J+Y:F= Dr÷R+C-90SPL-H=»O=4: D=P-L: R=-R:X=Rec(T , W)+XN:Y=J+YN:C=W:D0=»Prog H :»O=0:A=X+Rec(D,W:B=J+Y: F=WH0=»E=Abs D÷HD=0: P=90:Lb1 0:PANG .:Rec(D , P+F:X=A+I:Y=B+J: Prog F : Fix3: Z1=»X:Pause 0:Y: Pause 0Z=.2=»Fix1: Goto S Z.1=

4、7;D Z6=»U=1=»DHYU=2=»DQZU=3=»DOU=4=»DYHU=5=»DHZDZH O=2=»DD rO=3=»DDo O=4=»DD2rD=i=»P=0:D=0:PD:Goto 0 Z3=»K=Q=»K=Q+H+ln U=1=»K=Q+L÷2U=2=»D=R: U=3:Goto 0U=3=»K=Q+L-HU=4=»K=Q+L-.4mIsz U: U=6=»Z=Z+3: Goto S Goto AD

5、=0=»Z=.1=»M=M-I Cos(F-J):Pause 0:Abs(F-J)÷90:Rnd:Ans=1=»I Sin(F-J:Pause 0:K=M: Goto SK=M: Goto A Frac Dk0=»D÷:A=X:B=Y:P=0:Goto 0 P=90: Goto 0: »N=N+3: Goto BH（數據輸入子程序）H 0=»Rec(D-D5÷90R2H2 , D2r÷6RH+C:A=I+X:B=J+Y:F=D2r÷2RH+CF（計算子程序）Z=.2=»Pol

6、(Qm-Frac X,Um-Frac Y): »K=0=»XY Pol(Q-X,U-Y Z=.5 =»X: Pause 0:Y:Pause 0: X=:Y=Z 1=»J=J+r:Fix3: I:Pause 0:60Frac J:Int J+10mInt Ans+6mFrac Ans:Fix 4:Pause 0: Z=.2=»Fix 1:100 I:Pause 0:Ans Sin(F-J):Pause 0D（數據輸入子程序）A=0:B=0:N=3=»A=0:B=0 KA=» KB=»0:TIU NRO:NEEKZIS

7、AS:ProgZHCHXU KB=»O=1: KA=»OK=K+AOKIU-BOFD（計算子程序）Lb1 0:XYLF:Fix3:QXo: UYo:D=Pol(X-Q,Y-U:J0=»J=J+360J: 60FracJ:J=Int J+10mInt Ans+6mFrac Ans:Fix 4:Pause 0:D:Fix 3:Pause 0:F=:D=X=Q+Rec(L , F): Y=U+J:X: Pause 0:Y: Pause 0: X=:Y= Goto 0SHU（基本數據輸入子程序）Norm:Lb1 0: NKRHXY:NXY:ZN=K+1E -7H:XN=X

8、+1E-8Int R:YN=Y+1E -4Frac R:N=N+3:Goto 0說明：1、必須先執(zhí)行一次“Defm 60”命令，使擴展變量得到確認；2、“m”和“k”均在“FUNCTION”的1-“MATH”里；3、“E”是“EXP”；4、“o”和“r”均在“FUNCTION”的5-“DRG”里；一、程序輸入說明： 1、輸入本程序前必須先擴容60個字節(jié) (特別強調) ；2、輸入數時小數點前面的位數只能5位，小數點后面只能保留3位；3、每個曲線的編號為3的倍數，第一個曲線N=3；第二個曲線N=6；第三個曲線N=；4、輸入后，再輸入交點的、坐標值，為曲線起點的里程、為緩和曲線長度、為曲線半徑；5、

9、輸入時最少要輸入個曲線的資料此程序才能運算；二、本程序計算范圍說明：1、計算方位角和距離Z=0 例：測站（6551.446, 8080.424） 中樁K3+307.5方位角250-17-28 平距330.872 例： 測站（同上） k=0, KIU=任意點（6600,6600）方位角271-52-43 平距1481.222、計算中邊樁坐標Z=1 3、以上二者兼而有之Z=0.54、根據坐標推算里程樁號 Z=0.15、計算路線中線偏位 Z=0.26、計算曲線逐點坐標 Z=N7、計算斜交涵洞軸線 D=i8、在切線方向前后移動 D=9、返回輸入樁號狀態(tài) D=0三、啟動主程序“ZHCHXU”進行計算說明

10、：1、 輸入時，再輸入中樁的里程K，即可得到中樁的坐標XY；D為中樁左右側邊樁的平距：l 如果該中樁位于直線上，則D辨別為“D”；如果該中樁位于第一緩和曲線上，則D辨別為“Dr”；如果該中樁位于圓曲線上，則D辨別為“DO”； 如果該中樁位于第二緩和曲線上，則D辨別為“D2r”； l 左側邊樁為“”值，即可得到左側邊樁的坐標X、Y；右側邊樁為“”值，即可得到右側邊樁的坐標X、Y；2、Z輸入0時，可計算中樁的或任何一個坐標值的方位角和邊長，結果顯示方位角為度分秒，邊長顯示米。l 輸入測站的坐標Xo、Yo，再輸入中樁里程K，即可得到該中樁里程點的方位角和平距；l 輸入測站的坐標Xo、Yo，里程K輸入

11、0，KIU輸入，輸入一個坐標即可得到該坐標點的方位角和平距；3、Z輸入0.5時，中樁的坐標、方位角和邊長都可以計算；4、Z輸入0.1時，再輸入任意一個坐標值，即可得到這個坐標值所在的里程樁號；5、Z輸入N時，輸入ZH點的里程，可顯示此點坐標連續(xù)五大樁的里程和坐標； 交 點 號交點坐標交點樁號轉 角 值 （°）曲線要素值曲線主點樁號直線長度及方向備注N（X）E（Y）半徑緩和曲線長度緩和曲線 參數切線長度曲線長度外距校正值第一緩和曲線起點第一緩和曲線終點或圓曲線起點曲線中點第二緩和曲線起點或圓曲線終點第二緩和曲線終點直線段長(m)交點間距 （m）計算方位角1234567891011121

12、3141516171819202103249585.474468517.2382K0+000第SLC1合同起點K0+000113.7628579.4125215-48-46.713249115.61468178.2K0+579.41342-53-29.8(Z)1000145380.789465.65893.599975.32837.699K0+113.763K0+258.763K0+560.563K0+862.363K1+007.363221.30721137.144172-55-16.923247987.134468318.3319K1+678.85726-37-38.3(Y)1500190

13、533.854450.187887.10142.45813.273K1+228.670K1+418.670K1+672.220K1+925.771K2+115.7712270.1123771.596199-32-55.233244432.94467056.328K5+437.18139-59-18.5(Z)2489.45290849.6711051.2982027.463161.1775.133K4+385.883K4+675.883K5+399.615K6+123.346K6+413.34601051.298159-33-36.74-03243447.833467423.4656K6+413

14、.3464-y3243447.484467422.5286K6+413.34601213.226159-33-36.74y3242310.643467846.2154K7+626.57255-53-37.5(Y)2050250715.8911213.2262249.837272.06176.62K6+413.346K6+663.346K7+538.264K8+413.183K8+663.18301213.226215-27-14.25-y3241322.371467142.4856K8+663.1834-z3243448.182467424.4026K6+413.346434.07341214

15、.287159-33-36.64z3242310.347467848.46K7+627.63355-53-37.6(Y)1300180483.736780.2141448.189172.79112.24K6+847.419K7+027.419K7+571.514K8+115.609K8+295.609434.07351214.287215-27-14.25-z3241321.211467144.1147K8+729.6825-03241321.791467143.3002K8+663.183735.50371138.762215-27-14.253240394.176466482.7631K9

16、+801.94510-29-15.9(Y)4393.788403.258804.263618.4672.253K9+398.687K9+800.818K10+202.950第SLC1合同終點K8+70001658.431225-56-30.163239240.919465290.961K11+458.12383-49-07(Z)1300175476.971255.1722076.784448.15433.56K10+202.950K10+377.950K11+241.342K12+104.734K12+279.734直線、曲線及轉角表杭新景高速公路龍游支線建德段第SLC1合同 第1頁 共1頁編

17、制：設計院 復制：李寶康 檢 查 樁 坐 標 表樁號坐標樁號坐標樁號坐標樁號坐標N（X）E（Y）N（X）E（Y）N（X）E（Y）N（X）E（Y）1、 K0+0009585474851723810、K2+5507153698802241、右K6+413.346344748474225291、左K6+413.346344818274244032、 K0+2269401270838632611、K2+937678900578929072、右K6+729314843875231692、左K6+726315521375335893、 K0+4649189160827960812、K3+329641960

18、177617413、右K7+088279544675860113、左K7+088281292976507494、 K0+9838677689823259713、K3+721605019776305754、右K8+099180712274285764、左K8+035189376375368205、 K1+0008660816823467614、K4+058573262275178125、右K8+512144616772292595、左K8+287168181274008916、 K1+305835811827200315、K4+56052591587350996、右K8+663132252714

19、25926、左K8+729.682132121171441157、 K1+6508013851827837516、K5+37244618087217438、 K1+929774011822657817、K5+668416644972340279、 K2+1997484465813984718、K6+413.34634478337423466杭新景高速公路龍游支線建德段第SLC1合同 第1頁 共1頁編制：設計院 摘抄：李寶康涵洞中心及左側20m點坐標計算杭新景高速公路龍游支線建德段第SLC1合同 第1頁 共1頁序號中心樁號右角斜交角中心坐標20m點坐標XYXY1k0+12475159484.91

20、78444.6839473.2218460.9052k0+226120309401.2718386.3269390.2838403.0383k0+553110209104.2388253.0769099.1298272.4134k0+8749008786.1428221.8608787.3858241.8235k1+004120308656.8478235.1698659.3118255.0166k1+202100108460.3568259.5698462.8208279.4177k1+658100108005.8888277.6028003.9058297.5048k1+863115257

21、803.9218243.4177799.2448262.8629k2+11980107559.8548166.6167553.1628185.46310k2+774120306942.6097947.4496935.9177966.29411k2+912105156812.5637901.2746805.8727920.11812k3+135120306602.4177826.6576595.7267845.50213k4+805100105023.7037283.5845019.1217303.05414k5+059100104773.9177238.1154771.3447257.94915k5+229110204604.7157222.0104603.5017241.97316k5+2569004577.7567220.5164576.7597240.491整體式路基 K0+000K6+413.346段輸入數據N=3X=9585.474Y=8517.2382K=0H=0R=0.001N=6X=9115.61Y=8178.2K=113.763H=145R=1000N=9X=7987.134Y=8318.3319K=1228.67H=190R=1500N=12X=4432.94Y=7056.328K=4385