800万能程序,平曲线+竖曲线+隧道超欠挖.doc

1. 主程序(TYQXJS)Lbl 4：1SZ = XY， 2XY = SZ？N：？S：Prog“SUB0”1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 = Goto1： Goto2：Lbl 1:”DZ”? Z： Abs(S-O) →W：Prog SUB1： XS：XYS：YProg “SQX”（竖曲线的程序名字）F-90→F： “FS=”：F▲DMSProg “CQW”（隧道超欠挖的程序名字）Goto4Lbl 2：”X”？X： “Y”？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S”：S“Z”：ZProg“CQW”Goto4↙2. 正算子程序(SUB1)0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X X+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y2. 反算子程序(SUB2)G-90→T： (Y-V)cos(T)-(X-U)sin(T) →W：Abs(W) →W:0→ZLbl 0：Prog SUB1T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）0.000001：Then0→Z:Prog SUB1(J-Y)÷sin（F）→ZElse W+Z→WGoto0:IfEndSUB0 数据库子程序Goto1 Lbl 1：IF S***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEndLbl 1：IF S***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。只要给数据库里的变量输完即可使用。CQW(程序名)隧道超欠挖“SCH”?A:”R”?G:”HSJ”?H:”DZ”?Z√((A-H-设计标高到圆心的高度)2+（Z±隧道中线到测设线的距离）2) →DG-D→Z[4]“CW-,QW+”:Z[4] 程序运行到“SCH”?A:”R”?G在“SCH”下输入实际测的高度， “R”下输入上导的开挖半径后面的不用，超挖为-，欠挖+以上不加CQW(程序名)也可以使用，把主程序的Prog “CQW”（隧道超欠挖）删掉，要算竖曲线给最后的竖曲线程序输入计算器即可，嵌套已经在以上程序中了，需要注意的是以上子母不要改变，改变后可能和后面的竖曲线程序出现子母冲突，发生计算错误。不用竖曲线把Prog “SQX”（竖曲线）删掉三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点