高速公路測量計算CASIO程序全套（Word）

1、 高速公路測量計算CASIO程序全套坐標主程序XY(坐標程序)LbI  2KPROG “SUB3”X=XY=Yvv=2 è PROG “SUB 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=”WMèU=U+Z：GOTO 3：U=U+Z-180LbI 3P=M+VcosUQ=N+VsinUKK“DGLC=”LbI 6Prog “SUB 3”O(jiān)=（Q-Y+（P-X）/（tanE+0.19）×sinEK=K

2、+OO=Abs OO0.17è GOTO 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+HsinE 2 / 12QUX 1 （K80+100 K80+948.114曲線右偏）R=900：L=170H=K-80310.927 （80+310.927為Z

3、H點里程）I=K-80480.927 （80+480.927為HY點里程）I0èA=3026442.499B=515754.311 （A、B為ZH點坐標）PROG  “SUB 1”E=270.265+3×G （270.265為ZH點方位角）X=A+Fcos（E-2G）Y=B+Fsin（E-2G）Goto  2 J=K-80778.114J0èA=3026448.633 ：B=515584.489 （A、B為HY點坐標）C=I×90÷÷RD=2×R×sinCE=275.6763

4、+2C （275.6763為HY點方位角）X=A+D×cos（E-C）Y=B+D×sin（E-C）Goto  2 S=K-80948.114S0èA=3026606.193 ：B=515149.157 （A、B為HZ點坐標）H=-SPROG “SUB 1”E=300.0072-3×G （300.0072為HZ點方位角）X=A+Fcos（E+180+2G）Y=B+Fsin（E+180+2G）Goto  2 LbI  2備注：曲線左偏與右偏，只有中間幾個“”號的區(qū)別。以下不再備注）QUX 2 （K8

5、0+948.114 K81+475.631曲線左偏）R=1000：L=174.535H=K-80948.114I=K-81122.649I0èA=3026606.193B=515149.157PROG  “SUB 1”E=300.0072-3×GX=A+Fcos（E+2G）Y=B+Fsin（E+2G）Goto  2 J=K-81301.097J0èA=3026689.019 ：B=514995.593C=I×90÷÷RD=2×R×sinCE=295.007-2CX=A+D&#

6、215;cos（E+C）Y=B+D×sin（E+C）Goto  2 S=K-81475.631S0èA=3026784.297 ：B=514657.014H=-SPROG “SUB 1”E=279.783+3×GX=A+Fcos（E+180-2G）Y=B+Fsin（E+180-2G）Goto  2 LbI  2 ZHIX 2H= K-81475.632A=3026784.297B=514657.014E=279.7828X=A+HcosEY=B+HsinE QUX 3 （K82+420.711 K83+3

7、54.430曲線左偏）R=1200：L=180H=K-82420.711I=K-82600.711I0èA=3026944.880B=513725.679PROG  “SUB 1”E=279.7828-3×GX=A+Fcos（E+2G）Y=B+Fsin（E+2G）Goto  2 J=K-83174.43J0èA=3026971.015 ：B=513547.632C=I×90÷÷RD=2×R×sinCE=275.4856-2CX=A+D×cos（E+C）Y=B+D&#

8、215;sin（E+C）Goto  2 S=K-83354.43S0èA=3026814.4519 ：B=512821.7913H=-SPROG “SUB 1”E=243.7953+3×GX=A+Fcos（E+180-2G）Y=B+Fsin（E+180-2G）Goto  2 LbI  2SUB 1C=H-H5÷40÷R2÷L2D= H3÷6÷R÷L- H7÷336÷R3÷L3F=(C2+D2)G=H2×30÷

9、;÷R÷L SUB 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（也可改為如下，但在輸入外矢距時注意，線左為負數(shù)，線右為正數(shù)）UU“L-，R+=”P“EX”=X+Ucos（E+90°）Q“EY”=Y+Usin（E+90°） SUB3K80310.927èPROG “ZX 1”：GOTO 1：K80948.114èPROG “QX 1”： GOTO 1：K8

10、1475.632èPROG “QX 2”： GOTO 1：K82420.711èPROG “ZX 2”：GOTO 1：K83354.43èPROG “QX 3”： GOTO 1：LbI  1 根據(jù)坐標反算線路樁號及左右偏值File  ZBFS1:  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:&#

11、160; 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 S<0.0001   C“ LC ” W=“LP ”= ( XM ) sin Q(YN) cos Q  C = C+S :  Goto 0 File   KL1:

12、0; CH   Z8=Z7  :  Z9 = 0 : Z10 = 0 : Goto 2 2:  CZ3  Z8= Z7Z7 5÷40÷R2÷L2 : Z9 = Z73÷6÷R÷LZ7 7÷336÷R3÷L3 : Z10 = 90 Z7 2÷R÷L÷ :  Goto 2 3:  CZ4  Z10 = 90 L&

13、#247;R÷ +180( Z7 L)÷R÷ : Rsin (Z10+0.5LL3÷240÷R2 : Z9 = R(1cosZ10 )+L2÷24÷R : Goto 2 4:  CZ5  X=( Z7 O) : Y = 0 : Z10 = A : Goto 1 5:  CZ4  Z10= A90 (O Z7 ) 2 ÷R÷L÷ :X = (OZ7 )(OZ7 )5÷40÷R2÷L2 :

14、Y = (OZ7 )3÷6÷R÷L(OZ7 )7÷336÷R3÷L3  6:  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：切

15、線長O：曲線長H：直緩點樁號F：第一切線方位角U：路線前進方向左“-”右“+”高速公路的一些線路計算一、緩和曲線上的點坐標計算已知：緩和曲線上任一點離ZH點的長度：l圓曲線的半徑：R緩和曲線的長度：l0轉向角系數(shù)：K(1或1)過ZH點的切線方位角：點ZH的坐標：xZ，yZ計算過程：說明：當曲線為左轉向時，K=1，為右轉向時，K=-1，公式中n的取值如下：當計算第二緩和曲線上的點坐標時，則：  l為到點HZ的長度  為過點HZ的切線方位角再加上180°  K值與計算第一緩和曲線時相反xZ，yZ為點HZ的坐標 切線角計算公式：

16、二、圓曲線上的點坐標計算已知：圓曲線上任一點離ZH點的長度：l圓曲線的半徑：R緩和曲線的長度：l0轉向角系數(shù)：K(1或1)過ZH點的切線方位角：點ZH的坐標：xZ，yZ計算過程：說明：當曲線為左轉向時，K=1，為右轉向時，K=-1，公式中n的取值如下：當只知道HZ點的坐標時，則：  l為到點HZ的長度  為過點HZ的切線方位角再加上180°  K值與知道ZH點坐標時相反xZ，yZ為點HZ的坐標 三、曲線要素計算公式公式中各符號說明：  l任意點到起點的曲線長度（或緩曲上任意點到緩曲起點的長度）l1第一緩和

17、曲線長度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 六、匝道坐標計算已知：待求點樁號

18、：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-S3÷240R2:P=S2÷

19、24R:TT=(R+P)tan.5B+MFL=RB÷180+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:J<0J=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-:A<0U=-UProg 4: XY:X:YProg 5: Prog 6:Goto 0F2 1    （十進制六十進制子程序）L1 U=Int U+Frac U÷.6+Frac 100U÷90F3 2    （六十進制十進制子程序）L1 60Frac J:J=Int J+.01Int Ans+.006Frac AnsF4 3    （緩和曲線上任意點坐標計算子程序）L1 Y=RS:X=I-I5÷40Y2:Y=I3(1-I4