CASIO5800隧道断面放样程序全线型.doc

CASIO5800隧道断面放样程序ZS（正算）Lb1 1：fix4：？S：？Z：prog“PM-SJ”：Abs（S-O）W：Prog“SUB3”：“XS=”：X“YS=”：YF-90F：“F=”：FDMSGoto1FS（反算）Lb1 1：fix4：？S：？X：？Y：prog“PM-SJ”：XI：YJ：Prog“SUB4”：“S=”：O+WS“Z=”：ZProg“GCJS”：？R：“H=”?F：Prog“SD 3XY” Goto1SD 3XY（断面放样）IF FH+1.5：Then“W1=”： （H+1.5-F）2+(Z+4.3)2）-RIFEND：IF FH+1.5：Then“W2=”：(F-H-1.5)2+(Z+4.3)2)-RSUB31PC：（P-R）（2HPR）D：180E：0.1739274226A：0.3260725774B：0.0694318442K：0.3300094782L：1-LF：1-KM：U+W（Acos（G+QEKW（C+KWD）+Bcos（G+QELW（C+LWD）+Bcos（G+QEFW（C+FWD）+Acos（G+QEMW（C+MWD）X：V+W（Asin（G+QEKW（C+KWD）+Bsin（G+QELW（C+LWD）+Bsin（G+QEFW(C+FWD)）+Asin（G+QEMW（C+MWD）Y:G+QEW(C+WD)+90F：X+ZcosFX：Y+Zsin（F）YSUB4G-90T：Abs(Y-V)cos（T）-(X-U)sin(T) W：0Z：Lb1 0：Prog“SUB3”：T+QEW（C+WD）L：（J-Y）cosL-（I-X）sinLZ：if AbsZ1E-6：thenGoto1：ElssW+ZW：Goto0：IfendLb1 1：0Z：Prog“SUB3”：（J-Y）sinFZPM-SJ（平面数据库）If S500（线元起点里程）AndS769.256（线元止点里程）：Then19942.837U（线元起点X坐标）：28343.561V（线元起点Y坐标）：500O（线元起点里程）：1251631G（线元起点方位角）：269.265H（线元长度）：1045P（线元起点半径）:1000R（线元止点半径）:-1Q（线元左右偏：左偏-1；右偏+1；直线0）:ifendIf S769.256（线元起点里程）AndS902.457（线元止点里程）：Then19946.866U（线元起点X坐标）：28349.009V（线元起点Y坐标）：769.256O（线元起点里程）：1251631G（线元起点方位角）：133.201H（线元长度）：1000P（线元起点半径）: 1045R（线元止点半径）:-1Q（线元左右偏：左偏-1；右偏+1；直线0）:ifendGCJS（左线高程计算）？S：SK：“H=”：K49800AndK49572.5760.720-（49800-K）*0.03-（227.5-（49800-K）2（2*35000）HK49800AndK50027.5760.720+(K-49800)*0.017-(227.5-(K-49800) 2(2*35000) H三、使用说明“SD 3XY”程序中1.5为线路纵面设计高至圆心高度，4.3为线路平面设计线至隧道中线的距离，本程序为单心圆计算程序，如为多心圆可按语句格式添加语句即可。“GCJS”程序中的计算原理为将竖曲线分为前后两部分，按照数学公式计算。1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明S ？ 正算时所求点的里程，反算时估算点里程，反算时估算里程必须要在所属线元之内，否则计算错误。Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X ？反算时所求点的X坐标Y ？反算时所求点的Y坐标 显示部分： XS=正算时，计算得出的所求点的X坐标 YS=正算时，计算得出的所求点的Y坐标 FS=正算时，所求点对应的中线点的切线方位角 S=反算时，计算得出的所求点的里程 Z=反算时，计算得出的所求点的边距