4850匝道程序

1、247 8, 9”ZHU XIA N” :AZA”:BZA” :CZA”:DZA”:EZA”:FZA”:GZA” :HZA”:“AS :prog工 N=1= prog工 N=2=prog工 N=3=prog工 N=4=prog工 N=5=prog工 N=6=prog工 N=7=prog工 N=8=prog工 N=9=prog主程序: 2“ N0-9H”（用N值判断那条线路的高程） 1， 2， 3， 4， 5， 6， K : N: N=0=prog丰 N=1= prog丰 N=2=prog丰 N=3=prog主程序 :3桩距“ ZHUANG JU （由三维坐标反算桩号和边桩距离及其坡角）X:Y:

2、H:Z38=1：Z“KZ=”：X“XP=”：Y“YP=”：H“H=”：N“N=”：Q“KQ=：Z21=X : Z22=Y : Z23=H：v/ b|0 : Z24=Q : Z25=Z :K=Q：Prog “ZA DAO”Z26=Z12:Z27=Z13:v K=Z：Prog “ZA DAO”：Z28=Z12:Z29=Z13:v pol(Z28-Z26),(Z29-Z27):Z30=I:Jv0=Z31=J+360:工 Z31=J: ? pol(Z21-Z26),(Z22-Z27):Z32=I：Jv0=Z33=J+360:工 Z33=J: ? (Z31-Z33)v-270=Z34=-1:Z35=(3

3、60-Z33+Z31) (Z31-Z33)v0=Z34=1:Z35=(Z33-Z31)(Z31-Z33)270=Z34=1:Z35=360-Z31+Z33? (Z31-Z33)0=Z34=-1:Z35=Z31-Z33:Z36=Q+Z32*cosZ35：Z37=Z32*sinZ35：Z38=Z38+1(计数器:初始值为1) “50M”:Q=Z36-50:Z=Z36+50:Goto 0Z38=3= “1m”:Q=Z36-1 ：Z=Z36+1:Goto 0 ：Z38=4= “0.1m”:Q=Z36-0.1:Z=Z36+0.1:Goto 0“ ZHUANG HAO” K=Z36 Z34 “ZUO=”:

4、Z37 工 “YOU= :Z37 ?Prog “ N0-9H” 0 =Goto 2:丰 Goto 3:/ b|2:T0 =Z75=Z11+Z73:S=Z71:Goto 4:丰 丁Z75=Z11+F+Z74:S=Z72:Goto 4:/ 口3汀Z75=Z11+180+Z73:S=Z71:Goto 4:丰 T0 =Z75=Z11+180+F+Z74:S=Z72:Goto 4: / b|4:Z75360=Z75=Z75-360:丰 Z75=Z75:Z76=Z12+S*cosZ75:Z77=Z13+S*sinZ75:“ X=” VZ76 “ Y=” VZ77 Goto 1:V 子程序： 1“ZHY”

5、( 直缓圆中边桩坐标计算程序 )Z1=Abs(K-Z):Z2=1/R:Z3=(R-S)/(2HRS):Z4=180/ n:Z5=0.1739274226:Z6=0.3260725774:Z7=0.0694318442:Z8=0.3300094782:Z9=1-Z8:Z10=1-Z7:X=O+Z1(Z5cos(U+GZ4Z7Z1(Z2+Z7Z1Z3) +Z6cos(U+GZ4Z8Z1(Z2+Z8Z1Z3) +Z6cos(U+GZ4Z9Z1(Z2+Z9Z1Z3) +Z5cos(U+GZ4Z10Z1(Z2+Z10Z1Z3)VY=P+Z1(Z5sin(U+GZ4Z7Z1(Z2+Z7Z1Z3)+Z6si

6、n(U+GZ4Z8Z1(Z2+Z8Z1Z3)+Z6sin(U+GZ4Z9Z1(Z2+Z9Z1Z3) +Z5sin(U+GZ4Z10Z1(Z2+Z10Z1Z3)VZ11=U+GZ4Z1(Z2+Z1Z2):Z12=X:Z13=Y:只有“AN=”VZ11 f DM2 (注：(f DM2 )命令为十进制转换六十进制并显示度分秒。4850有此功能 )XY=”V“BIAN ZHUANG VD:E:F : D“LD= : E “ RD” F “F=” “ ZX仝VZ12+D*cos(Z11+F+180)“ ZY仝VZ13+D*si n(Z11+F+180)“ YX仝VZ12+E*cos(Z11+F)“ YY

7、仝VZ13+E*si n（Z11+F）K=K+25 : （5, 10, 20, 25, 50随便：如不许要桩号自动累加可不要此句）子程序：2“GAO CHENG（竖曲线中边高程计算）Z41=J-T:Z42=J+TKW Z41=Goto1 :工 KGoto 2 :工 prog “ ZD” ：？ V/ b|1 :“ ZX Z43=H+（K-Z）*I /100:1m也是设计高程N=0=Z43=Z43+0.02 :（注：主线半幅中央隔离带宽为位置，2%黄坡所以+0.02）工Z43=Z43:（注:匝道设计高程位置为中心位置，没有中央分隔带所以不加0.02)“ SH兰VZ43 （路线中心位置高程）Goto

8、 3/ b|2 :“ SQX :Z43=H+(K-Z*I一 1OO+G*(K-J+T) 2一 2 - R Z43=Z43+0.02 ：丰 Z43=Z43: ?“ SH=”VZ43 Goto 3V / b|3:Z44=A+(K-E)*(C-A)/(F-E)Z45=B+(K-E)*(D-B)/(F-E)“ ZUO PO=: VZ45 YOU PO”= V mZ46=-3: ?mZ47=-3: ?Z46 Z44V-3=Z46=Z44: Z45V-3=Z47=Z45: prog “N0-9K”:V Z48=A+(K-Q)(V-A)/(Z-Q): Z49=B+(K-Q)(W-B)/(Z-Q): Z50=

9、C+(K-Q)(X-C)/(Z-Q): Z51=D+(K-Q)(Y-D)/(Z-Q): Z52=ABS(U+K-Q): Prog”ZA DAO”V Z53=Z12:Z54=Z13:N=S: prog ”ZA DAO”V pol(Z53-Z12),(Z54-Z13)VM=0=Z55=Z48+Z49:Z56=Z50+ Z51:mM=1=Z55=Z48+Z49:Z56=I+Z50+Z51: mM=-1=Z55=Z48+Z49+I:Z56=Z50+Z51:“ZUO KUAN” ：Z59=Z57-H:“GAO CHA”=V Z59 Z59V8=Z60=Z59*1.5+Z55+0.3:(0.3 为加宽 3

10、0cm)丰 Z60=8*1.5+(Z59-8)*1.75+Z55+0.3: ?0=Z59=Z58-H:“GAO CHA”=V Z59 VZ59V8=Z60=Z59*1.5+Z56+0.3:丰 Z60=8*1.5+(Z59-8)*1.75+Z56+0.3?Z61=Z37实-Z60理Z61V0=工WAI YI NEI YI”：VZ61”：VZ61 （ 包括加宽 0.3 米） （ 包括加宽 0.3 米）子程序：用 N 值判断那条线路的宽度）N=0，1，N0-9K”2, 3, 4, 5, 6,乙 8, 9”/ b|0 : K : N: N=0=prog “ZHU XIAN K” :丰 N=1=prog

11、 “ AZ K” ：子程序: 4“ ZHONG DIAN （终点）“VOERA （超出计算范围）子程序: 5AZ” （A 匝道参数 ）/ b|O:K:K w 300.764=Z=0: 0=3902774.473: P=509934.76:U=81 45 / 0.5 ： “ZX” prog : “ZHY :Goto 0 KZ=300.764: 0=3902817.63 : P=510232.412 :U= 81 45 / 0.5 ： R=10八45（前半径:无穷大）：S=800（后半 径） : L=72:VG=1（右） :“G=1”：“ HHQX: prog “ZHY :Goto 0丰 KW 4

12、43.371 =Z=372.764 :O=3902826.890 ：P=510303.807：424 ： R=S=800圆）:G=1:“G=f （右） prog “ ZHY” : Goto 0 U=84 19 /YQX”：子程序： 6“ AZ H” （A匝道竖曲线参数）/ b|0 : K : Kprog “ZD丰 KZ=317.078 : H=64.955: 1=0.5486 : J=555:R=5000: T=46.214 : G=-1（凸=-1 :凹=1） : prog “AZCG子程序 7“ AZ CG （A匝道超高参数）KW 503.371=E=317.078:A=-2:B=2:F=5

13、03.371:C=-2:D=2: prog“GAO CHENGV工 KE=503.371:A=-2:B=2:F=553.371:C=-5:D=5:prog“ GAOCHEN”G.子程序 8“ AZ K” （A 匝道设计宽度参数）K Q=317.078:A=0.5:B=7.5:C=6:D=0.75:Z=347.050:V=0.5:W=4.5:X=6:Y=0.75:M =0 : （一条线路加宽 ）工 KQ=347.050:A=0.5:B=4.5:C=6:D=0.75:Z=503.371:V=0.5:W=4.5:X=6:Y=0.75:M=0:（ 一条线路加宽 ）丰 KW 590.242=Q=503.

14、371:A=0.5:B=4.5:C=4.25:D=0.75:Z=590.242:V=0.5:W=4.5:X=4.25:Y=0.75:M=1（右侧并线）:U=0:（注：A,E开始并线,E匝道起点桩号）S=5:(注:E匝道判别式)总 说 明此程序应用于河南省济东高速长垣段长垣半枢纽型互通，主线与阿森高速相交，周围八条匝道。线形有直线，圆曲线，卵圆曲线三种曲线元。桥梁和涵 洞非常多，并且多数是斜交。所以本人用卡西欧FX-4850P编制了以上程序，并与索佳全站仪(SET-2130R)配合，使用十分方便，一次性输入所有程序和各 匝道参数会使您终身受益。下一条路只要将参数子程序重新输入即可应用。输入时注意

15、：一. 每条线路的每项参数都是一个文件例如： A 匝道：1. 曲线要素参数 (AZ)2. 竖曲线要素参数 (AZ H)3. 曲线超高要素参数 (AZ CG)4. 曲线宽度参数 (AZ K) 。 所以一条线路至少要有四个参数文件。 十条线路就有 40 个参数文件。二. 4850 计算器有一个特点在一个程序中判断语句不能大于15 个，如果线路太长判断语句过多时可以在程序前加一个判断语句K某一个桩号时GOTO 1并在程序中此桩号前加一个/ b|1 :即可解决此问题。明：三. 程序中为根号，V为回车符，n为圆周率。参数共用：N:判断那条匝道K:放样桩号G:线路转向(左转=-1:右转=1)子程序： 1“

16、ZHY” (直缓圆中边桩坐标计算程序参数意义)D：左边桩宽度E: 右边桩宽度放样点距起算点距离 中间存储器 中间存储器 弧度变化 中间存储器 中间存储器 中间存储器 中间存储器F: 切线方向与右边桩夹角Z1Z2Z3Z4Z5Z6Z7Z8Z9:Z10:Z11:Z12:Z13:中间存储器中间存储器 放样点切线方位角 放样点X坐标 放样点 Y 坐标X:测量点Y: 测量点H:测量点 Q：起点桩Z: 终点桩Z21Z22Z23Z24 Z25 Z26 Z27 Z28 Z29 Z30 Z31 Z32 Z33 Z34 Z35 Z36主程序 3 桩距“ ZHUANG J”U 参数意义 X 坐标 Y 坐标 Z 坐标口

17、号O,号实测X坐标 实测 Y 坐标 实测 Z 坐标 起算点桩号 终算点桩 存起算点 存起算点 存终算点 存终算点 存起终点 存起终点方位角 存起实点间距 存起实方位角 实测点在线路左右 （左-1 、右+1） 实起终夹角 第 1,2,3, 次定出中线的桩号号X 坐标Y 坐标X 坐标Y 坐标Z 线距离Z37:Z38:Z41Z42Z43Z44Z45Z46Z47Z48Z49Z50Z51Z52Z53Z54Z55Z56Z57Z58Z59Z60第 1,2,3, 次定出边桩的距离 计数器（初始值为 1） 子程序： 2“ GAO CHENG（竖曲线中边高程计算参数意义） 竖曲线ZY点桩号 竖曲线YZ点桩号 输出

18、K （放样点）点设计高程 存储左侧路面横坡值 存储右侧路面横坡值 存储左侧路肩横坡值 存储右侧路肩横坡值 放样点左侧路肩宽度 放样点左侧路面宽度 放样点右侧路面宽度 放样点右侧路肩宽度 副匝道对应放样点桩号 主匝道放样点中桩 X坐标 主匝道放样点中桩 Y坐标 左侧路面全宽（包括路肩） 右侧路面全宽（包括路肩） 输出左路肩高程值 输出右路肩高程值 实测点距路肩高差值 理论坡角主程序 :4“QIAO HAN” （桥涵任意角点 ）F: 切线方向与右边桩夹角S:桥涵横向放样距离（左为负，右为正）参数输入顺序（FST）Z75:中输出放样点X坐标 输出放样点Y坐标T:桥涵切向放样距离（后为负，前为正）Z7

19、0:间变量存储器Z71Z76:+T+S“AZ子程序：（A匝道参数意义）Z:基准点桩号O:基准点X坐标P:基准点Y坐标U:基准点切线方位角R：曲线前半径（直,圆R#身半径:缓R=前曲线半径） S:曲线后半径（直,圆R#身半径:缓R=后曲线半径） L:曲线全长（直,缓,圆本身长度）G:曲线左右转向（左为-1,右为+1）子程序：6“ AZ H”（ A匝道竖曲线参数意义） 规定：超高：边桩比中桩低为负（比中桩高为正） Z:上一变坡点桩号或起算点桩号 H: 上 一变坡点高程或起算点高程Z77:I:Jn-1Jn 坡度带 交点 n 桩号 竖曲线半径切线长：（注：算起终点直线段时，R半径=1, T切线=0,G

20、转向=1）J:JnR:JnT:JnAZ CG”子程序： 7（A匝道超高参数意义）A：超高起点左横坡B: 超高起点右横坡C：超高终点左横坡D：超高终点右横坡E: 超高起点桩号F: 超高终点桩号子程序： 8AZ K”（A 匝道设计宽度参数意义）Q：起点桩号A: 起点左路肩宽度B: 起点左路面宽度 C :起点右路面宽度D :起点右路肩宽度 Z: 终点桩号V: 终点左路肩宽度W终点左路面宽度X: 终点右路面宽度Y: 终点右路肩宽度程主程序 1：坐标： 此程序能算直线，序解释ZA DAO”缓和曲线， 卵圆曲线，圆曲线，不用输入缓和曲线参数，只需知道此段曲线的前后半径，曲线转向和曲线起点的基本数据即可算出

21、坐标。精度比其他同类程序都高。如果超出路线范围自动显示“OVER”边桩计算：可算任意角度的边桩坐标，只需输入边桩距离和中线与右侧 边桩的夹角即可。运行此程序可告诉您：1. 输入N值。放样点位于那条匝道上（N=123，）2. 输入K值。放样点桩号（K=）3. 输出放样点位于那段曲线上 （ “ZX”, “ HHQX” , “YQX”）4. 输出曲线的左右转向（G=1右,G=-1左）5. 输出放样点的切线方位角（AN=；/）6. 输出放样点X坐标（X=）7. 输出放样点Y坐标（Y=）8. 输入左右边桩距离（正值）9. 输出左右边桩坐标（ ZX=,ZY=,YX=,YY=）返回主程序继续运行二主程序 2: 高程：“ N 0-9H” 此程序能计算与高程有关的一切问题。 设计高程， 路线中心高程， 路线横 披，超高横披及高程， 与主程序 3 联用还可计算路肩高程与任意层的高差， 及任意层的坡脚 , 任意层的超欠挖情况。 运行此程序可告诉您：1. 输入N值。放样点位于那条匝道上（N=123，）2. 输入K值。放样点桩号（K=）3. 输出放样点的路线中心高程。4. 输出放样点的左侧横披5. 输出放样点的右侧横披