4850匝道程序.doc

程 序 说 明卡西欧4800或4850计算主线及其匝道中边桩坐标，高程，反算任意点桩号及其距中距离，以及边坡超欠挖情况。主程序1“ZA DAO”（用N值判断那条线路）“N=0，1，2，3，4，5，6，7，8，9”b|0：K：N：N=0=prog“ZHU XIAN”:N=1=prog“AZA”:N=2=prog“BZA”:N=3=prog“CZA”:N=4=prog“DZA”:N=5=prog“EZA”:N=6=prog“FZA”:N=7=prog“GZA”:N=8=prog“HZA”:N=9=prog“AS”:prog“ZHU XIAN H”：N=1=prog“AZ H”:N=2=prog“BZ H”:N=3=prog“CZ H”:. 主程序:3桩距“ZHUANG JU”（由三维坐标反算桩号和边桩距离及其坡角）X:Y:H:Z38=1：X“XP=”：Y“YP=”：H“H=”：N“N=”：Q“KQ=”：Z“KZ=”：Z21=X：Z22=Y：Z23=H:b|0：Z24=Q：Z25=Z：K=Q：Prog“ZA DAO”Z26=Z12:Z27=Z13:K=Z：Prog“ZA DAO”：Z28=Z12:Z29=Z13:pol(Z28-Z26),(Z29-Z27):Z30=I:JZ31=J+360:Z31=J:pol(Z21-Z26),(Z22-Z27):Z32=I：JZ33=J+360:Z33=J:(Z31-Z33)Z34=-1:Z35=(360-Z33+Z31)：(Z31-Z33)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 0：Z38=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=”:Z37 “YOU=”:Z37 Prog“N0-9H”Goto 2:Goto 3:b|2:T0 =Z75=Z11+Z73:S=Z71:Goto 4: TZ75=Z11+F+Z74:S=Z72:Goto 4:b|3:TZ75=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=”Z76“Y=”Z77Goto 1:子程序：1 “ZHY”(直缓圆中边桩坐标计算程序)Z1=Abs(K-Z):Z2=1/R:Z3=(R-S)/(2HRS):Z4=180/: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)Y=P+Z1(Z5sin(U+GZ4Z7Z1(Z2+Z7Z1Z3) +Z6sin(U+GZ4Z8Z1(Z2+Z8Z1Z3) +Z6sin(U+GZ4Z9Z1(Z2+Z9Z1Z3) +Z5sin(U+GZ4Z10Z1(Z2+Z10Z1Z3)Z11=U+GZ4Z1(Z2+Z1Z2):Z12=X:Z13=Y:“AN=”Z11DMS(注：(DMS)命令为十进制转换六十进制并显示度分秒。只有4850有此功能)“X=”X“Y=”Y “BIAN ZHUANG”D:E:F：D“LD=”：E“RD=”：F“F=”“ZX=”Z12+D*cos(Z11+F+180) “ZY=”Z13+D*sin(Z11+F+180) “YX=”Z12+E*cos(Z11+F) “YY=”Goto1：KZ42=Goto 2：prog“ZD”: Z43=Z43+0.02：(注：主线半幅中央隔离带宽为1m，也是设计高程位置，2%横坡所以+0.02)Z43=Z43:(注:匝道设计高程位置为中心位置，没有中央分隔带所以不加0.02)“SH=”Z43 (路线中心位置高程)Goto 3b|2：“SQX”:Z43=H+(K-Z*I100+G*(K-J+T)2R Z43=Z43+0.02：Z43=Z43 ： “SH=”Z43 Goto 3b|3:Z44=A+(K-E)*(C-A)/(F-E)：Z45=B+(K-E)*(D-B)/(F-E)：“ZUO PO=: Z45 “YOU PO=” Z46 Z44Z46=Z44:Z46=-3:Z45Z47=Z45:Z47=-3:prog“N0-9K”:Z48=A+(K-Q)(V-A)/(Z-Q):Z49=B+(K-Q)(W-B)/(Z-Q):Z50=C+(K-Q)(X-C)/(Z-Q):Z51=D+(K-Q)(Y-D)/(Z-Q):Z52=ABS(U+K-Q):Prog”ZA DAO”Z53=Z12:Z54=Z13:N=S:prog”ZA DAO”pol(Z53-Z12),(Z54-Z13)Z55=Z48+Z49:Z56=Z50+ Z51:M=1=Z55=Z48+Z49:Z56=I+Z50+Z51:M=-1=Z55=Z48+Z49+I:Z56=Z50+Z51:“ZUO KUAN=”:Z55 “YOU KUAN=”Z56Z57=Z43+Z44(Z55-Z48)/100+ Z48Z46/100Z58=Z43+Z45(Z56-Z51)/100+Z51Z47/100“ZUO GAO CHENG=”Z57 “YOU GAO CHENG=”Z58 Z34Z59=Z57-H:“GAO CHA=”Z59 Z59Z60=Z59*1.5+Z55+0.3:(0.3为加宽30cm)Z60=8*1.5+(Z59-8)*1.75+Z55+0.3：0=Z59=Z58-H:“GAO CHA=”Z59 Z59Z60=Z59*1.5+Z56+0.3: Z60=8*1.5+(Z59-8)*1.75+Z56+0.3Z61=Z37实-Z60理Z61“WAI YI”:“NEI YI”：prog“ZHU XIAN K”：N=1=prog“AZ K”:. Z=0：O=3902774.473：P=509934.76：U=81450.5：“ZX”：prog：“ZHY”:Goto 0 K372.764=Z=300.764: O=3902817.63：P=510232.412：U= 81450.5：R=1045(前半径:无穷大)：S=800(后半径)：L=72：G=1(右)：“G=1”：“HHQX”：prog“ZHY”： Goto 0 K443.371=Z=372.764： O=3902826.890：P=510303.807：U= 8419424：R=S=800(圆)：G=1：“G=1”(右) “YQX”：prog “ZHY”：Goto 0 子程序：6“AZ H”（A匝道竖曲线参数）b|0：K：Kprog“ZD”K601.214=Z=317.078：H=64.955：I=0.5486：J=555：R=5000：T=46.214：G=-1(凸-1：凹1)：prog“AZCG” . . .子程序：7“AZ CG”（A匝道超高参数）K503.371=E=317.078:A=-2:B=2:F=503.371:C=-2:D=2: prog“GAO CHENG”K553.371=E=503.371:A=-2:B=2:F=553.371:C=-5:D=5:prog“GAO CHENG” . .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:(一条线路加宽)K503.371=Q=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:(一条线路加宽)K590.242=Q=503.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)配合，使用十分方便，一次性输入所有程序和各匝道参数会使您终身受益。下一条路只要将参数子程序重新输入即可应用。输入时注意：一.每条线路的每项参数都是一个文件例如：A匝道：1.曲线要素参数(AZ)2.竖曲线要素参数(AZ H)3.曲线超高要素参数(AZ CG)4.曲线宽度参数(AZ K)。所以一条线路至少要有四个参数文件。十条线路就有40个参数文件。二.4850计算器有一个特点在一个程序中判断语句不能大于15个，如果线路太长判断语句过多时可以在程序前加一个判断语句K某一个桩号时GOTO 1，并在程序中此桩号前加一个b|1：即可解决此问题。三.程序中为根号，为回车符，为圆周率。参 数 说 明：共用：N：判断那条匝道K：放样桩号G：线路转向(左转=-1:右转=1)子程序：1 “ZHY”(直缓圆中边桩坐标计算程序参数意义)D:左边桩宽度E:右边桩宽度F:切线方向与右边桩夹角Z1:放样点距起算点距离Z2:中间存储器Z3:中间存储器Z4:弧度变化Z5:中间存储器Z6:中间存储器Z7:中间存储器Z8:中间存储器Z9:中间存储器Z10:中间存储器Z11:放样点切线方位角Z12:放样点X坐标Z13:放样点Y坐标主程序3桩距“ZHUANG JU” 参数意义X:测量点X坐标Y:测量点Y坐标H:测量点Z坐标Q:起点桩号Z:终点桩号Z21:实测X坐标Z22:实测Y坐标Z23:实测Z坐标Z24:起算点桩号Z25:终算点桩号Z26:存起算点X坐标Z27:存起算点Y坐标Z28:存终算点X坐标Z29:存终算点Y坐标Z30:存起终点Z线距离Z31:存起终点方位角Z32:存起实点间距Z33:存起实方位角Z34:实测点在线路左右(左-1、右+1)Z35:实起终夹角Z36:第1,2,3,次定出中线的桩号Z37:第1,2,3,次定出边桩的距离Z38:计数器(初始值为1)子程序：2“GAO CHENG”(竖曲线中边高程计算参数意义)Z41:竖曲线ZY点桩号Z42:竖曲线YZ点桩号Z43:输出K（放样点）点设计高程Z44:存储左侧路面横坡值Z45:存储右侧路面横坡值Z46:存储左侧路肩横坡值Z47:存储右侧路肩横坡值Z48:放样点左侧路肩宽度Z49:放样点左侧路面宽度Z50:放样点右侧路面宽度Z51:放样点右侧路肩宽度Z52:副匝道对应放样点桩号Z53:主匝道放样点中桩X坐标Z54:主匝道放样点中桩Y坐标Z55:左侧路面全宽（包括路肩）Z56:右侧路面全宽（包括路肩）Z57:输出左路肩高程值Z58:输出右路肩高程值Z59:实测点距路肩高差值Z60:理论坡角主程序:4“QIAO HAN”(桥涵任意角点) F:切线方向与右边桩夹角S:桥涵横向放样距离(左为负，右为正)T:桥涵切向放样距离(后为负，前为正) Z70:参数输入顺序(FST)Z71Z75:中间变量存储器 XZ76:输出放样点X坐标 +TZ77:输出放样点Y坐标 +S Y 0 子程序：5“AZ”(A匝道参数意义)Z:基准点桩号O:基准点X坐标P:基准点Y坐标U:基准点切线方位角R:曲线前半径(直,圆R=本身半径:缓R=前曲线半径)S:曲线后半径(直,圆R=本身半径:缓R=后曲线半径)L:曲线全长(直,缓,圆本身长度)G:曲线左右转向(左为-1,右为+1)子程序：6“AZ H”（A匝道竖曲线参数意义）规定：超高：边桩比中桩低为负(比中桩高为正)Z:上一变坡点桩号或起算点桩号H:上一变坡点高程或起算点高程I:Jn-1Jn坡度带J:Jn交点n桩号R:Jn竖曲线半径T:Jn切线长：（注：算起终点直线段时，R半径=1，T切线=0,G转向=1）子程序：7“AZ CG”（A匝道超高参数意义）A:超高起点左横坡B:超高起点右横坡C:超高终点左横坡D:超高终点右横坡E:超高起点桩号F:超高终点桩号子程序：8“AZ K”(A匝道设计宽度参数意义）Q:起点桩号A:起点左路肩宽度B:起点左路面宽度C:起点右路面宽度D:起点右路肩宽度Z:终点桩号V:终点左路肩宽度W:终点左路面宽度X:终点右路面宽度Y:终点右路肩宽度程 序 解 释一主程序1：坐标：“ZA DAO”此程序能算直线，缓和曲线，卵圆曲线，圆曲线，不用输入缓和曲线参数，只需知道此段曲线的前后半径，曲线转向和曲线起点的基本数据即可算出坐标。精度比其他同类程序都高。如果超出路线范围自动显示“OVER” 边桩计算：可算任意角度的边桩坐标，只需输入边桩距离和中线与右侧边桩的夹角即可。运行此程序可告诉您：1.输入N值。放样点位于那条匝道上（N=1,2,3,）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:高程：“N0-9H”此程序能计算与高程有关的一切问题。设计高程，路线中心高程，路线横披，超高横披及高程，与主程序3联用还可计算路肩高程与任意层的高差，以及任意层的坡脚,任意层的超欠挖情况。运行此程序可告诉您：1.输入N值。放样点位于那条匝道上（N=1,2,3,）2.输入K值。放样点桩号（K=）3.输出放样点的路线中心高程。4.输出放样点的左侧横披5.输出放样点的右侧横披4.输出放样点的左侧