高速公路测量计算CASIO程序全套.doc

高速公路测量计算CASIO程序全套 坐标主程序XY(坐标程序)LbI2KPROG “SUB3”X=XY=Yv PROG “SUB 2”：v=2 GOTO 2 FANSMNWTM“X0=” ： N“Y0=”W“X-=” ： T“Y-=”Z=tan-1(T-N)/(W-M+0.19)LbI 7UVU“JIAO=”V“JU=”U=U+Z：GOTO 3：WMU=U+Z-180LbI 3P=M+VcosUQ=N+VsinUKK“DGLC=”LbI 6Prog “SUB 3”O=（Q-Y+（P-X）/（tanE+0.19）sinEK=K+OO=Abs O GOTOO0.17 6：K=KV=（Q-Y+（X-P）tanE）cosE GOTO 7子程序ZHIX 1H= K-80100（80+100为起点里程，直线段）A=3026441.522 （A、B为K80+100坐标）B=515965.236E=270.265 为K80+100方位角X=A+HcosEY=B+HsinEQUX 1 （K80+100 K80+948.114曲线右偏）R=900：L=170H=K-80310.927 （80+310.927为ZH点里程）I=K-80480.927 （80+480.927为HY点里程）A=3026442.499I0B=515754.311 （A、B为ZH点坐标）PROG“SUB 1”E=270.265+3G （270.265为ZH点方位角）X=A+Fcos（E-2G）Y=B+Fsin（E-2G）Goto2 J=K-80778.114A=3026448.633 ：B=515584.489J0 （A、B为HY点坐标）C=I90RD=2RsinCE=275.6763+2C （275.6763为HY点方位角）X=A+Dcos（E-C）Y=B+Dsin（E-C）Goto2 S=K-80948.114A=3026606.193 ：B=515149.157S0 （A、B为HZ点坐标）H=-SPROG “SUB 1”E=300.0072-3G （300.0072为HZ点方位角）X=A+Fcos（E+180+2G）Y=B+Fsin（E+180+2G）Goto2 LbI2备注：曲线左偏与右偏，只有中间几个“”号的区别。以下不再备注）QUX 2 （K80+948.114 K81+475.631曲线左偏）R=1000：L=174.535H=K-80948.114I=K-81122.649A=3026606.193I0B=515149.157PROG“SUB 1”E=300.0072-3GX=A+Fcos（E+2G）Y=B+Fsin（E+2G）Goto2 J=K-81301.097A=3026689.019J0 ：B=514995.593C=I90RD=2RsinCE=295.007-2CX=A+Dcos（E+C）Y=B+Dsin（E+C）Goto2 S=K-81475.631A=3026784.297 ：B=514657.014S0H=-SPROG “SUB 1”E=279.783+3GX=A+Fcos（E+180-2G）Y=B+Fsin（E+180-2G）Goto2 LbI2ZHIX 2H= K-81475.632A=3026784.297B=514657.014E=279.7828X=A+HcosEY=B+HsinEQUX 3 （K82+420.711 K83+354.430曲线左偏）R=1200：L=180H=K-82420.711I=K-82600.711A=3026944.880I0B=513725.679PROG“SUB 1”E=279.7828-3GX=A+Fcos（E+2G）Y=B+Fsin（E+2G）Goto2 J=K-83174.43A=3026971.015J0 ：B=513547.632C=I90RD=2RsinCE=275.4856-2CX=A+Dcos（E+C）Y=B+Dsin（E+C）Goto2 S=K-83354.43A=3026814.4519 ：B=512821.7913S0H=-SPROG “SUB 1”E=243.7953+3GX=A+Fcos（E+180-2G）Y=B+Fsin（E+180-2G）Goto2 LbI2SUB 1C=H-H540R2L2D= H36RL- H7336R3L3F=(C2+D2)G=H230RLSUB 2U“L=”M“XL”=X+Ucos（E-90）N“YL”=Y+Usin（E-90）V“R=”P“XR”=X+Vcos（E+90）Q“YR”=Y+Vsin（E+90）SUB 2（也可改为如下，但在输入外矢距时注意，线左为负数，线右为正数）UU“L-，R+=”P“EX”=X+Ucos（E+90）Q“EY”=Y+Usin（E+90）SUB3PROGK80310.927 “ZX 1”：GOTO 1：PROG “QX 1”： GOTO 1：K80948.114PROG “QX 2”：K81475.632 GOTO 1：PROG “ZX 2”：GOTO 1：K82420.711PROG “QX 3”： GOTOK83354.43 1：LbI1根据坐标反算线路桩号及左右偏值FileZBFS1:M“X0” : N“Y0” : A“PJ” : R : L“LS” : T : O“L” : H“ZH” : F“FWJ”2:Z1=P“XJD”+T cos ( F+180) : Z2=K“YJD”+T sin ( F+180)3:U“R+1,L-1”4:Z3=H+L : Z4=H+OL : Z5=H+O5:Lbl 0 : C“LC” : Z7=Abs(CH)6:Prog“KL”7:S=(XM)sin(Q+90)(YN) cos (Q+90) : Abs S0.0001 C“ LC ” W=“LP ”= ( XM ) sin Q(YN) cos QC = C+S :Goto 0 File KL1:CH Z8=Z7:Z9 = 0 : Z10 = 0 : Goto 2 2:CZ3Z8= Z7Z7 540R2L2 : Z9 = Z736RLZ7 7336R3L3 : Z10 = 90 Z7 2RL :Goto 2 3:CZ4Z10 = 90 LR +180( Z7 L)R : Rsin (Z10+0.5LL3240R2 : Z9 = R(1cosZ10 )+L224R : Goto 2 4:CZ5X=( Z7 O) : Y = 0 : Z10 = A : Goto 1 5:CZ4Z10= A90 (O Z7 ) 2 RL :X = (OZ7 )(OZ7 )540R2L2 : Y = (OZ7 )36RL(OZ7 )7336R3L36:Lbl 1 : Z8 = T+(TX) cos AY sin A : Z9 =(TX) sin A+ Y cos A : Goto 2 7:Lbl 2 : Pol (Z8,Z9) : Z7 =F+JU : Q=F+Z10 U : X=Z1 + IcosZ7 : Y=Z2 + I sin Z7注：M、N：已知坐标A：偏角R：半径L：缓和曲线长T：切线长O：曲线长H：直缓点桩号F：第一切线方位角U：路线前进方向左“-”右“+”高速公路的一些线路计算一、缓和曲线上的点坐标计算已知：缓和曲线上任一点离ZH点的长度：l圆曲线的半径：R缓和曲线的长度：l0转向角系数：K(1或1)过ZH点的切线方位角：点ZH的坐标：xZ，yZ计算过程：说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下：当计算第二缓和曲线上的点坐标时，则：l为到点HZ的长度为过点HZ的切线方位角再加上180K值与计算第一缓和曲线时相反xZ，yZ为点HZ的坐标 切线角计算公式：二、圆曲线上的点坐标计算已知：圆曲线上任一点离ZH点的长度：l圆曲线的半径：R缓和曲线的长度：l0转向角系数：K(1或1)过ZH点的切线方位角：点ZH的坐标：xZ，yZ计算过程：说明：当曲线为左转向时，K=1，为右转向时，K=-1，公式中n的取值如下：当只知道HZ点的坐标时，则：l为到点HZ的长度为过点HZ的切线方位角再加上180K值与知道ZH点坐标时相反xZ，yZ为点HZ的坐标三、曲线要素计算公式公式中各符号说明：l任意点到起点的曲线长度（或缓曲上任意点到缓曲起点的长度）l1第一缓和曲线长度l2第二缓和曲线长度l0对应的缓和曲线长度R圆曲线半径R1曲线起点处的半径R2曲线终点处的半径P1曲线起点处的曲率P2曲线终点处的曲率曲线转角值四、竖曲线上高程计算已知：第一坡度：i1(上坡为“”，下坡为“”)第二坡度：i2(上坡为“”，下坡为“”)变坡点桩号：SZ变坡点高程：HZ竖曲线的切线长度：T待求点桩号：S计算过程：五、超高缓和过渡段的横坡计算已知：如图，第一横坡：i1第二横坡：i2过渡段长度：L待求处离第二横坡点（过渡段终点）的距离：x求：待求处的横坡：i解：d=x/Li=(i2-i1)(1-3d2+2d3)+i1 六、匝道坐标计算已知：待求点桩号：K曲线起点桩号：K0曲线终点桩号：K1曲线起点坐标：x0，y0曲线起点切线方位角：0曲线起点处曲率：P0(左转为“”，右转为“”)曲线终点处曲率：P1(左转为“”，右转为“”)求：线路匝道上点的坐标：x,y待求点的切线方位角：T计算过程：CASIO fx-4800P )F1 XLCS（主程序）L1 Norm:Deg:U=OA0:Prog 1:Q=U:CX-JD:DY-JD:U=AA:R+L-:Prog 1:B=Abs U:R:SL0:EK-ZHL2 Fix 3:M=.5S-S3240R2:P=S224R:TT=(R+P)tan.5B+MFL=RB180+SF=F+E:I=0:J=0:NormL3 KZJ:XY1:K1I=LK:U=0:Prog 4: G=X:H=Y:GX:HYK:KHS:XY1:K=1X=VX:Y=WY:I=WK:U=0:Prog 4Fix 3L4 Pol(X-G,Y-H:ID0=IFix 4:N=J:J0J=J+360Prog 2:JA0=JNorm:U=0:U:UAB:Prog 1:K=UL5 Lb1 0:U=0:U:UCS: XY1:U=0UZ:I=ZK:UBZ:R+L-:A0U=-UProg 4: XY:X:YProg 5: Prog 6:Goto 0F2 1（十进制六十进制子程序）L1 U=Int U+Frac U.6+Frac 100U90F3 2（六十进制十进制子程序）L1 60Frac J:J=Int J+.01Int Ans+.006Frac AnsF4 3（缓和曲线上任意点坐标计算子程序）L1 Y=RS:X=I-I540Y2:Y=I3(1-I456Y2)6Y+URec(1,90I2Y:X=X-UJF5 4（中桩、边桩坐标计算子程序）L1 IFX=T-UsinB+Rec(I-F+T,B:Y=J+UcosB:Goto 0L2 IF-SI=F-I:Prog 3: Rec(1,B:U=X:X=T+TI-XI-YJ:Y=TJ-UJ+YI:Goto 0L3 IE+SY=P+R-Rec(R-U,180(I-E-.5S)R:X=M+J:Goto 0L4 IEI=I-E:Prog 3: X=I-E:Y=UL5 Lbl 0: A0Y=-YRec(1,Q:U