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

高速公路测量计算CASIO程序全套 　2006年2月20日 坐标主程序XY(坐标程序)LbI??2｛K｝PROG “SUB3”X=X◢Y=Y◢｛v｝ PROG “SUB 2”：⊿(v=√2 GOTO 2 FANS｛MNWT｝M“X0=” ： N“Y0=”W“X-=” ： T“Y-=”Z=tan-1((T-N)/(W-M+0.19)LbI 7｛UV｝U“JIAO=”V“JU=”U=U+Z：GOTO 3：⊿(W＞MU=U+Z-180LbI 3P=M+VcosU◢Q=N+VsinU◢｛K｝K“DGLC=”LbI 6Prog “SUB 3”O=（Q-Y+（P-X）/（tanE+0.19））×sinEK=K+OO=Abs O GOTO(O≥0.17 6：⊿K=K◢V=（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 QUX 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.499(I≤0B=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.114A=3026448.633 ：B=515584.489(J≤0 （A、B为HY点坐标）C=I×90÷π÷RD=2×R×sinCE=275.6763+2C （275.6763为HY点方位角）X=A+D×cos（E-C）Y=B+D×sin（E-C）Goto??2 ⊿S=K-80948.114A=3026606.193 ：B=515149.157(S≤0 （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备注：曲线左偏与右偏，只有中间几个“＋－”号的区别。以下不再备注）QUX 2 （K80+948.114~ K81+475.631曲线左偏）R=1000：L=174.535H=K-80948.114I=K-81122.649A=3026606.193(I≤0B=515149.157PROG??“SUB 1”E=300.0072-3×GX=A+Fcos（E+2G）Y=B+Fsin（E+2G）Goto??2 ⊿J=K-81301.097A=3026689.019(J≤0 ：B=514995.593C=I×90÷π÷RD=2×R×sinCE=295.007-2CX=A+D×cos（E+C）Y=B+D×sin（E+C）Goto??2 ⊿S=K-81475.631A=3026784.297 ：B=514657.014(S≤0H=-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+354.430曲线左偏）R=1200：L=180H=K-82420.711I=K-82600.711A=3026944.880(I≤0B=513725.679PROG??“SUB 1”E=279.7828-3×GX=A+Fcos（E+2G）Y=B+Fsin（E+2G）Goto??2 ⊿J=K-83174.43A=3026971.015(J≤0 ：B=513547.632C=I×90÷π÷RD=2×R×sinCE=275.4856-2CX=A+D×cos（E+C）Y=B+D×sin（E+C）Goto??2 ⊿S=K-83354.43A=3026814.4519 ：B=512821.7913(S≤0H=-SPROG “SUB 1”E=2