1、高速公路測(cè)量計(jì)算CASIO程序全套坐標(biāo)主程序XY(坐標(biāo)程序)LbI2KPROG"SUB3"X=X/Y=Y/vv=V2PROG“SUB2":/GOTO2FANSMNWTM"X0=":N"Y0="W"X-=":T""Z=tan-1(T-N)/(W-M+0.19)LbI7UVU"JIAO="V"JU='W>MU=U+Z:GOTO3:/U=U+Z-180LbI3P=M+VcosU/Q=N+VsinU/KK"DGLC="LbI6Pr

2、og"SUB3"O=Q-Y+P-X/tanE+0.19XsinEK=K+OO=AbsOO>0.17GOTO6:/K=K/V=Q-Y+X-PxtanE>CosE/GOTO7子程序ZHIX1H=K-8010080+100為起點(diǎn)里程，直線段A=3026441.522A、B為K80+100坐標(biāo)B=515965.236E=270.265為K80+100方位角X=A+HcosEY=B+HsinEQUX1K80+100K80+948.114曲線右偏R=900:L=170H=K-80310.92780+310.927為ZH點(diǎn)里程I=K-80480.92780+480.927為H

3、Y點(diǎn)里程I<0A=3026442.499B=515754.311A、B為ZH點(diǎn)坐標(biāo)PROG"SUB1"E=270.265+3G270.265為ZH點(diǎn)方位角X=A+FcosE-2GY=B+FsinE-2GGoto2/J=K-80778.114J<0A=3026448.633:B=515584.489A、B為HY點(diǎn)坐標(biāo)C=IX90+無(wú)+RD=2XRXsinCE=275.6763+2C275.6763為HY點(diǎn)方位角X=A+DXcosE-CY=B+DXsinE-CGoto2/S=K-80948.114S<0A=3026606.193:B=515149.157A、B

4、為HZ點(diǎn)坐標(biāo)H=-SPROG"SUB1"E=300.0072-3G300.0072為HZ點(diǎn)方位角X=A+FcosE+180+2GY=B+FsinE+180+2GGoto2/LbI2備注：曲線左偏與右偏，只有中間幾個(gè)“十一”號(hào)的區(qū)別。以下不再備注QUX2K80+948.114K81+475.631曲線左偏R=1000:L=174.535H=K-80948.114I=K-81122.649I<0A=3026606.193B=515149.157PROG"SUB1"E=300.0072-3GX=A+FcosE+2GY=B+FsinE+2GGoto2/J=

5、K-81301.097J<0A=3026689.019:B=514995.593C=IX90+無(wú)+RD=2XRXsinCE=295.007-2CX=A+DXcosE+CY=B+DXsinE+CGoto2/S=K-81475.631S<0A=3026784.297:B=514657.014H=-SPROG"SUB1"E=279.783+3GX=A+FcosE+180-2GY=B+FsinE+180-2GGoto2/LbI2ZHIX2H=K-81475.632A=3026784.297B=514657.014E=279.7828X=A+HcosEY=B+HsinEQ

6、UX3K82+420.711K83+354.430曲線左偏R=1200:L=180H=K-82420.711I=K-82600.711I<0A=3026944.880B=513725.679PROG"SUB1"E=279.7828-3GX=A+FcosE+2GY=B+FsinE+2GGoto2/J=K-83174.43J<0A=3026971.015:B=513547.632C=IX90+無(wú)+RD=2XRXsinCE=275.4856-2CX=A+DXcosE+CY=B+DXsinE+CGoto2/S=K-83354.43S<0A=3026814.4519

7、:B=512821.7913H=-SPROG"SUB1"E=243.7953+3GX=A+FcosE+180-2GY=B+FsinE+180-2GGoto2/Lbl2SUB1C=H-HA5-40*2H2D=W3總朱T-W7+336朱a3HA3F=，(C2+D2)G=H2X30+LR+LSUB2U"L="M"XL"=X+UcosE-90°/N"YL"=Y+UsinE-90°/V"R="P“XR=X+VcosE+90°/Q"YR'=Y+VsinE+90

8、°/SUB2也可改為如下，但在輸入外矢距時(shí)注意，線左為負(fù)數(shù)，線右為正數(shù)UU"L-,R+="P“EX=X+UcosE+90°/Q"EY'=Y+UsinE+90°/SUB3K<80310.927PROG“ZX1":GOTO1:K<80948.114PROG“QX1”GOTO1K<81475.632PROG“QX2GOTO1K<824Z0.711PROG“ZX2:GOTO1:K<83354.43PROG“QX3”:GOTO1:Lbl1根據(jù)坐標(biāo)反算線路樁號(hào)及左右偏值FileZBFS1: M&qu

9、ot;X0":Nl"YO:A"PJ:R:L“LS:T:O"L":H"ZH:F"FWJ2: Z1=P"XJD+Tcos(F+180):Z2=K"YJD+Tsin(F+180)3: U"R+1,Ld"4: Z3=H+L:Z4=H+O-L:Z5=H+O5: Lbl0:C"LC':Z7=Abs(CH)6: Prog“KL7: S=(XM)sin(Q+90)(YN)cos(Q+90):AbsS<0.0001C“LC"W="LP"=(X-M)s

10、inQ-(Y-N)cosQ，C=C+S:Goto0FileKL1: C<HZ8=Z7:Z9=0:Z10=0:Goto22: C<Z3Z8=Z7-Z7人5/0朱2+L2:Z9=Z7A36朱+L-Z7人7336市人3TA3：Z10=90Z72+R+L+刃Goto23: C<Z4Z10=90L+R+Jl+180(Z7L)+R+用Rsin(Z10+0.5LLA3至40朱2:Z9=R(1-cosZ10)+L2笠4*:Goto24: C>Z5X=-(Z7-O):Y=0:Z10=A:Goto15: C>Z4Z10=A-90(O-Z7)2+R+L+水=(O-Z7)-(O-Z7)人

11、5W0*2+L2:Y=(OZ7)人3S朱H(OZ7)人7336朱a3TA3匕6: Lbl1:Z8=T+(TX)cosAYsinA:Z9=(TX)sinA+YcosA:Goto27: Lbl2:Pol(Z8,Z9):Z7=F+JU:Q=F+Z10U:X=Z1+IcosZ7:Y=Z2+IsinZ7注：M、N：坐標(biāo)A：偏角R:半徑L：緩和曲線長(zhǎng)T:切線長(zhǎng)O:曲線長(zhǎng)H：直緩點(diǎn)樁號(hào)F:第一切線方位角U：道路前進(jìn)方向左“-右“+高速公路的一些線路計(jì)算一、緩和曲線上的點(diǎn)坐標(biāo)計(jì)算:緩和曲線上任一點(diǎn)離ZH點(diǎn)的長(zhǎng)度：l圓曲線的半徑：R緩和:線的長(zhǎng)度：l0轉(zhuǎn)向角系數(shù)：K(1或1)過(guò)ZH點(diǎn)的切線方位角：a點(diǎn)ZH的坐標(biāo)

12、：xZ，yZ計(jì)算過(guò)程：說(shuō)明：當(dāng):線為左轉(zhuǎn)向時(shí)，K=1，為右轉(zhuǎn)向時(shí)，K=-1，公式中n的取值如下：當(dāng)計(jì)算第二緩和:線上的點(diǎn)坐標(biāo)時(shí)，那么：l為到點(diǎn)HZ的長(zhǎng)度a為過(guò)點(diǎn)HZ的切線方位角再加上180°K值與計(jì)算第一緩和:線時(shí)相反xZ，yZ為點(diǎn)HZ的坐標(biāo)切線角計(jì)算公式：二、圓曲線上的點(diǎn)坐標(biāo)計(jì)算:圓曲線上任一點(diǎn)離ZH點(diǎn)的長(zhǎng)度：l圓曲線的半徑：R緩和:線的長(zhǎng)度：l0轉(zhuǎn)向角系數(shù)：K（1或1）過(guò)ZH點(diǎn)的切線方位角：a點(diǎn)ZH的坐標(biāo)：xZ，yZ計(jì)算過(guò)程：說(shuō)明：當(dāng):線為左轉(zhuǎn)向時(shí)，K=1，為右轉(zhuǎn)向時(shí)，K=-1，公式中n的取值如下：當(dāng)只知道HZ點(diǎn)的坐標(biāo)時(shí)，那么：l為到點(diǎn)HZ的長(zhǎng)度a為過(guò)點(diǎn)HZ的切線方位角再加上18

13、0°K值與知道ZH點(diǎn)坐標(biāo)時(shí)相反xZ，yZ為點(diǎn)HZ的坐標(biāo)三、:線要素計(jì)算公式公式中各符號(hào)說(shuō)明：l任意點(diǎn)到起點(diǎn)的:線長(zhǎng)度或緩:上任意點(diǎn)到緩:起點(diǎn)的長(zhǎng)度l1第一緩和:線長(zhǎng)度l2第二緩和:線長(zhǎng)度l0對(duì)應(yīng)的緩和:線長(zhǎng)度R圓:線半徑R1:線起點(diǎn)處的半徑R2:線終點(diǎn)處的半徑P1:線起點(diǎn)處的:率P2:線終點(diǎn)處的:率曲線轉(zhuǎn)角值四、豎:線上高程計(jì)算:第一坡度：i1（上坡為午"，下坡為憶"）第二坡度：i2（上坡為牛"，下坡為）變坡點(diǎn)樁號(hào)：SZ變坡點(diǎn)高程：HZ豎:線的切線長(zhǎng)度：T待求點(diǎn)樁號(hào)：S計(jì)算過(guò)程：五、超高緩和過(guò)渡段的橫坡計(jì)算：如圖，第一橫坡：i1第二橫坡：i2過(guò)渡段長(zhǎng)度：

14、L待求處離第二橫坡點(diǎn)過(guò)渡段終點(diǎn)的間隔：x求：待求處的橫坡：i解：d=x/Li=(i2-i1)(1-3d2+2d3)+i1六、匝道坐標(biāo)計(jì)算:待求點(diǎn)樁號(hào)：K曲線起點(diǎn)樁號(hào)：K0曲線終點(diǎn)樁號(hào)：K1曲線起點(diǎn)坐標(biāo)：x0，y0曲線起點(diǎn)切線方位角：a0曲線起點(diǎn)處曲率：P0(左轉(zhuǎn)為匚"，右轉(zhuǎn)為午")曲線終點(diǎn)處曲率：P1(左轉(zhuǎn)為匚"，右轉(zhuǎn)為午")求：線路匝道上點(diǎn)的坐標(biāo)：x,y待求點(diǎn)的切線方位角：aT計(jì)算過(guò)程：CASIOfx-4800P)F1XLCS主程序L1Norm:Deg:U=OA0：Prog1：Q=U:C-JD":D''-JD：U=AA:R+L

15、:Prog1：B=AbU:R:S''L0E-ZML2Fix3:M=.5S-S人3+240R2:P=S2+24R:TV=(R+P)tan.5B+M'L=；tRB+180+S，F(xiàn)=F+E:I=0:J=0:NormL3KZJ:XY=>1：K考>I=LK：U=0:Prog'4G=X:H=Y:w>G'X：HMK:K"HS:XY=>1:K=1=>X=V'X":丫=W'Y">+=WK":U=0:Prog4'、Fix3L4Pol(X-G,Y-H:ID0HFix4:N=J:

16、J<0=>J=J+360kProg2：JA07Norm:U=0:U:U"AB":Prog1":K=UL5Lb10:U=0:U:UCSXY=>1:U=0=>UZ:I=ZK”:UBZ:R+L:A<0=>U=-UkProg46XY:X:YkProg5：Prog6：GotoF21十進(jìn)制-六十進(jìn)制子程序L1U=IntU+FracU+.6+Frac100U+90F32六十進(jìn)制-十進(jìn)制子程序L160FracJ:J=IntJ+.01IntAns+.006FracAnsF43緩和曲線上任意點(diǎn)坐標(biāo)計(jì)算子程序L1Y=RS:X=I-I人5F0Y2:Y=

17、I人3(1-I人4+56Y2)+6Y+URec(1,90I2+無(wú)Y:XJXF54中樁、邊樁坐標(biāo)計(jì)算子程序L1I>F=>X=T-UsinB+Rec(I-F+T,B:Y=J+UcosB:Goto0kL2I>F-S=>I=F-I:Prog3Rec(1,B:U=X:X=T+TI-XI-YJ:Y=TJ-UJ+YI:Goto0kL3I>E+S=>Y=P+R-Rec(R-U,180(I-E-.5S)+無(wú)R:X=M+J:Got0kL4I>E=>I=I-E:Prog3多>X=I-E:Y=UkL5Lbl0:A<0=>Y=-Y1Rec(1,Q:U=X:X=C-TI+X