5800锥坡放样与隧道超欠挖程序.doc

锥坡放样计算程序（简单易用.绝对精品）根据林新红桥台锥坡基础曲线方程的推导及应用由王小波（kaixin100）设计的卡西欧4850P桥台锥坡基础曲线放样程序，应用此程序进行锥坡放样将大大提高工作效率和保障工程精度。 在实际应用中无论是正交桥台或斜交桥台，锥坡的短轴（程序中：L）始终与路线方向平行且值大小不变；锥坡的长轴（程序中：K）只有在桥台斜交时随着构造物（桥台）纵横轴设计交角（程序中：GXJIAO）的变化而变化。 前桥台 后 桥 台 锥坡基础曲线放样示意图上面完整布置图中，,号桥台锥坡尖点方位角就是尖点对应中桩的切线方位角。,号桥台锥坡尖点方位角任然是尖点对应中桩的切线方位角，但在计算时要180(程序中为:H=H+180),为了方便程序计算，规定,号桥台锥坡为前锥坡；,号桥台锥坡为后锥坡,下列程序中现已都考虑了这些元素，只要计算时分清前后左右就OK了。程序名： ZPFYLbl 0 :ABCDEFGHRSZ：AHS:BHJ:Ci1:Di2:EX0:FY0:GXJIAO:HFWJ:RQZP-1,HZP-2:SJMD:Z1-L,2-R：K=(A-B)Ccos(90-G) .显示为锥坡极轴长度值(如果去掉黑三角，K值不显示)L=(A-B)D.显示为锥坡短半轴长度值(如果去掉黑三角，L值不显示)T=0:N=0：Lbl 1：TPOInt=T+1 .显示坐标值的组数NG =N=GP=G-N：M=KLsinG（KsinN)+(LsinP) 显示随着加密递增变化而变化的极轴长度值(可去掉黑三角,M值不显示)R=1=H=H:P=ZP:R=2=H=H+180:P=-ZP 判断是前桥台锥坡还是后桥台锥坡X=：X=E+Mcos(H+P) .显示随着加密递增变化而变化的极轴末端的X坐标Y=：Y=F+Msin(H+P) .显示随着加密递增变化而变化的极轴末端的Y坐标I=0：J=0：Pol（X-UXC，Y-VYC）：JGoto 0 N=G程序自动跳回主程序表示锥坡基础曲线计算放样完毕N=N+S：Goto 1使用说明：程序中各注释文的涵义AHS-锥坡尖点的标高BHJ-锥坡基础顶面标高Ci1-路基横坡度（锥坡横向，锥体长半轴方向），如果为1：1.5则输入为1.5Di2-锥坡迎水面坡度（锥坡纵向，路线方向，短半轴方向），如果为1：1则输入为1EX0、FY0-锥坡尖点的横、纵坐标GXJIAO-桥台横纵轴（锥坡）之间的夹角HFWJ-锥坡尖点沿路线前进方向的方位角RQZP=1,HZP=2-输1计算前桥台锥坡，输2计算后桥台锥坡ZL-1,R+1-输 -1计算左侧桥台锥坡，输 +1计算右侧桥台锥坡SJMD -加密平分角度值，如要求曲线精度更高，可将角度划分更细即可注意：N=0时放样的锥坡基础曲线的起点(第一组坐标)，N=G时放样的锥坡基础曲线的终点(返回前的最后一组坐标)，程序在执行返回要求重新输入变量时表示该曲线已计算放样完毕。隧道超欠挖程序1-JIN YU(主程序)Lbl 4:1ZS,2FS,3CQW?NN=1=Goto 1:N=2=Goto 2:N=3=Goto 3Lbl 1: “K=”?S：“P=”?Z：Prog “SJ-PM”： Abs(S-O) W：Prog SUB1-ZS： “X=：Locate4,4,X:Y=：Locate4,4,Y:F-90F:S K:Prog“SJ-GC”：“H=”：Locate4,4,HGoto 4Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-PM”： X I： YJ：Prog SUB2-FS：O+WS: “K=：Locate4,4, S ：“P=：Locate4,4, Z：S K:Prog“SJ-GC” ：“H=”：Locate4,4, HGoto 4Lbl 3: “X=”?X：“Y=”？Y:Prog“SJ-PM”： X I： YJ：Prog SUB2-FS：O+WS: “K=：Locate4,4, S ：“P=：Locate4,4, Z：S K:Prog“SJ-GC” ：“H=”：Locate4,4, HProg“SJ-CQW” Goto4SJ-PM（子程序名-平面线形数据库）If S 59227.681（线元起点里程）:Then 2599818.013U（线元起点X坐标）：496887.918V（线元起点Y坐标）：59227.681O（线元起点里程）：20802839”G（线元起点方位角）：100 H（线元长度）：11045P（线元起点曲率半径）：11045R（线元终点曲率半径）：0 Q（线元左右偏标志：左-1右1）：IfEndIf S 59327.681（线元起点里程）:Then 2599730.112U（线元起点X坐标）：496840.237V（线元起点Y坐标）：59327.681O（线元起点里程）：20802839”G（线元起点方位角）：90 H（线元长度）：11045P（线元起点曲率半径）：750R（线元终点曲率半径）：-1 Q（线元左右偏标志：左-1右1）：IfEndSJ-GC（子程序名-竖数据库）If S变坡终点里程And S变坡起点里程：Then大里程坡度A：小里程坡度B：变坡点里程O：变坡点高度G：半径R：Prog“SUB3-GC”:IfEndVB源码彩色显示 注：在code./code内就以下面格式显示文字，双击源码拷贝到剪切板(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断，子程序不用变动。2.如整条线只有一个纵坡比喻为2，那么程序应为If S终点里程And S起点里程：Then 0.02A：0.02B：起点里程O：起点高程G：11045R：Prog“SUB3-GC”:IfEnd)SJ-CQW (子程序名-隧道数据库)“H1=”?FIf F-H5.845:Then (Abs (Z)2+(F-H-0.45)2 )-7.45W: IfEnd:If F-H5.845 And F-H-1.169: Then (Abs (Z)-1)2+( Abs (F-H-1.5) 2)-6W :IfEnd:If F-H-1.169: Then (Abs (Z) 2+(H-F+14.05) 2)-16.5W: IfEnd:“+CQ,-CQ=”: WSUB1-ZS(正算子程序)1P C： (P-R)(2HPR) D： 180 E： 0.1739274226A： 0.3260725774 B： 0.0694318442 K： 0.3300094782 L： 1-L F：1-K M： 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)+90 F： X+Zcos(F) X： Y+Zsin(F) YSUB2-FS(反算子程序)G-90T： Abs(Y-V)cos(T)-(X-U)sin（T）) W： 0 Z：Lbl 0：Prog SUB1-ZS： T+QEW(C+WD) L： (J-Y)cos(L)-(I-X)sin(L) Z：If Abs(Z)1E-6(注：此处1E-6可输入0.000001)：then Goto1：Else W+Z W：Goto 0：IfEndLbl 1： 0 Z：Prog SUB1-ZS： (J-Y)sin(F) ZSUB3-GC（高程子程序）O-SL:A-BW:Abs(R*W2) T:O-TM:O+TPIf SM:ThenG-L*BH:Goto5:Else If SO:Then Goto3:Else If SP:Then Goto4:IfEnd: IfEnd: IfEndLbi3If WO：Then G+(M-S)22R-L*BH:Goto5: Else If WO: Then G-(M-S)22R-L*BH:Goto5: IfEnd: IfEndLbi4If WO：Then G+( S-P)22R-L*AH:Goto5: Else If WO: Then G-( S-P)22R-L*AH:Goto5: IfEnd: IfEndLbi5HH: ReturnVB源码彩色显示 注：在code./code内就以下面格式显示文字，双击源码拷贝到剪切板说明：(正算1秒，反算和超欠挖5秒完成)所有程序名。不同线路，只需改动SJ-PM，SJ-GC，SJ-CQW三个子程序里的内容，其它不变。注意0和O的区别1为正算，2为反算，3为超欠挖.K= 正算时，输入所求点里程。反算时得出里程结果X=，Y= 正算时得出结果。反算时输入实测坐标P= 正算时输入偏距。反算时得出偏距H= 正算时得出高程。反算时得出高程H1=超欠挖时输入实测高程+CQ,-CQ= 得出超欠挖值注，超欠挖输入时显示里程，编距，设计高程，不需输入。只输入实测量高程H1二、程序清单 程序名 ：大地转施工 “QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q Pol( O -A,Q-B) JJ+360J J360=J-360J JF:“JF=” ： F DMS Lb1 0 ？ X:?Y Pol （ X-A,Y-B):ID JJ+360J J360=J-360J J-FT:TG TT+360G T360=T-360G Z+Dcos （ G)K:“K=” ： K Dsin （ G)C:“C=” ： C GoTo 0 三、程序使用说明： QK- 输入线路起始点里程 QX- 输入线路起始点中桩 X 坐标 QY- 输入线路起始点中桩 Y 坐标 ZX- 输入线路前进方向中桩 X 坐标 ZY- 输入线路前进方向中桩 Y 坐标 JF=- 显示线路测量坐标方位角 X- 输入线路附近任意点测量 X 坐标 Y- 输入线路附近任意点测量 Y 坐标 K- 显示计算结果：里程桩号，即工程 X 坐标 C- 显示计算结果：左右偏距，即工程 Y 坐标 , 中桩 =0 ，左偏