大程序 多条曲线坐标计算程序

1、ZHCHXU（线路坐标计算主程序） 提示：必须先执行一次“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、必须先执行一次“Defm 60”命令，使扩展变量得到确认；2、“m”和“k”均在“FUNCTION”的1-“MATH”里；3、“E”是“EXP”；4、“o”和“r”均在“FUNCTION”的5-“DRG”里；一、程序输入说明： 1、输入本程序前必须先扩容60个字节 (特别强调) ；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、返回输入桩号状态 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点的里程，可显示此点坐标连续五大桩的里程和坐标； 交 点 号交点坐标交点桩号转 角 值 （°）曲线要素值曲线主点桩号直线长度及方向备注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