卡西欧5800P计算器曲线任意里程中边桩坐标正反算

1、卡西欧5800P计算器曲线任意里程中边桩坐标正反算一、程序功能本程序由一个主程序（ZHUCHENXUP几个子程序一一正算子程序（SUB1）反算子程序（SUB2）数据库（SUB3）算方位角程序（FA）使用方位角算坐标（NE）、边坡放样程序（BIANPO）隧道圆心放样程序（SDYX构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量16-DimZ1 .主程序（ZHUCHENXU）"1Z5fXY2 .XYSZ3 .SDYX

2、，4. BIANPO"？N：Lbl1：”ZHUANGHAO”=?：SProg"SUB3"：N>2=>Goto2Abs（SO）-W:"BIANZHU=?fZ:Prog"SUB1"："XS=”:XX，"YS="：YY，"FS=：(F-90)-F:F►DMS，Prog"FA":Goto1:Lbl2：”CX=”?X:XI:”CY=”?Y:Y-J：“DMG=?7Z7Prog"SUB2"："S=":(O+W)-S，&

3、quot;Z="ZZJIfN=3:ThenProg”SDYX:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Goto22 .正算子程序(SUB1)0.26-Z：10.74-B：0.42-K：0.82-L：(1-L)YF(1-K)-M:U+W(Z1cos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Z1cos(G+QEMW(C+MWD)YXV+W(Z1sin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Z1sin(G+QEMW(C+MWD):7

4、YG+QEW(C+WD)+S90F:X+ZcosFXY+ZsinF7Y3 .反算子程序(SUB2)G-907Z2：Abs(Y-V)cosZ2-(XU-)sinZ2)7W：07Z：Lbl0：Prog"SUB1"：Z2+QEW(C+WD)7L：(J-Y)cosL-(IX-)sinL7Z：IfAbs(Z)<1E-6:ThenGoto1：ElseW+Z7W：Goto0:IfEndLbl1：07Z：Prog"SUB1"：(J-Y)+sinFZ4 .数据库(SUB3)IfS<226100:ThenCls:Stop:IfEndIfS<226255.8

5、33:Then226100-099037.9736一口4282.3590fV201.7G:10457P:10457R:253.543fH：0fQ:Goto1:IfEnd,IfS>236005.651:ThenCls:Stop:IfEndLbl1:1+PC(P-R)+(2HPR)-口80+兀母5 .算方位角程序(FA)LbI0：“XC=”?A:“YC=”?T:X：Y0fJ：POI(X-A,Y-DI:“BC=：”I，IfJ<0Then360+JfJElseJJ:IfEnd“FW：=”J&#9658;DMSJGoto。6 .使用方位角算坐标(NE)LbI0：“X=”?X:“Y=”

6、?Y:“L=”?L:“F0”：?FLXCo$F)+X-N:“N=”LXS班)+YE:“E="，EGoto07 .边坡放样程序(BIANPO)“QPDJL='？-Z3:“QPDGD=?Z4:"PG='?Z25Z6:“P1=”?Z8“P2=”?YZ9“P3="？-Z10的话就删)：Z7-Z4-Z1:1IfZ11<0ThenAbsZ11-Z11:“T=：”Z11JElse"W二Z11HfEndZ11+Z5-Z12IfZ12<1ThenZ8XZ11Z13日seZ8XZ5+Z9到-仪-Z13:IfEnd:AbsZ-(Z13+Z6xInt

7、Z12+Z3Z14:“BP+-CJ=”:Z14/说明：Z3=QPDJL,起坡点离中桩距离Z4=“QPDG”D,起坡点设计标高,Z5=“PG”,坡高,Z6=“PTK”,平台宽度,Z7=“DMG”,实测地面高度,Z8=“P1”,一级边坡坡度,Z9=“P2”,二级边坡坡度,Z10=“P3”,三级边坡坡度,（没有的话就删）Z14=“BP-J+=C”,边坡超欠挖宽度（+表超，-表欠）8 .隧道圆心放样程序(SDYX)IFS<229000:THEN243.997+0.0205X(S-226520)-(S-227318)八2/2/16000+1.503Z10:“NGC=：”Z10/ELSE286.38

8、50.023X(S-230500)-(S-230593.753)八2/2/165000+1.503Z10:“YLJ：=”Z10，IfEndZ10-Z7-Z15:“+SG-J,D”：Z15(Z15八2+(ABS(Z)-6.8) 八2)-Z16:“R=”:Z16/三、使用说明1 、规定(1)以道路中线的前进方向(即里程增大的方向)区分左右；当线元往左偏时，Q=-1;当线元往右偏时，Q=1;当线元为直线时，Q=0。(2)当所求点位于中线时，Z=0;当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4)当线元为圆曲线时，

9、无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明SZXY2 .XYSZ3.SDYX，4 .BIANPON?选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。3、盖板涵斜交操作说明：（以左前点为例）先把盖板涵斜交角度减90后=人再盖板涵左长度*CosA=B,盖板涵左长度*SinA=C,盖板涵身宽度/CosA=D利用YQXJSS序计算此桩号正交时B宽度的