对称型圆曲线缓和曲线直线超欠挖测量程序CQWLbi0:X:Y:ZE:→N(JDX):→Z[9](JDY):-3739 →A转角左-右:1400→R测设线半径:250→C缓和曲线长度:→T切线长:→GZH里程 :→MHZ里程 :3121408→Z[10]:ZH坐标方位角ProgZBFS:Prog:Z-Z1Z2:(Z[6]-Z[5])(Z[4]-K)(Z[4]-Z[3])Z[5] →Z[1]圆心高(内
任意线路坐标正反算及对称隧道超欠挖程序由于现在计算机普及计算机功能日益强大宜采用较简单的积分公式便于计算机处理单线元通用积分公式如下M = (1.0Re-1.0Rs)Lsx=∫{cos(Ta LRs 0.5M LL)0L}y=∫{sin(Ta LRs 0.5M LL)0L}a(i)= Ta LRs 0.5M LLRs:缓和曲线起点半径Re:缓和曲线止点半径RsRe (NE坐标系下右
Z=Z[495]:H=Z[496]LB1 0“”:””{N}:N=1=>GOTO 1:≠>GOTO 4ΔLB1 1{A}:A”H”B=A-H-01Abs(B÷(Z-7375))≥1=>GOTO 2:≠>GOTO 3ΔLB1 2”D”:D=√((Z-7375)2+B2)-825▲GOTO 0LB1 3”D”:D=√((Abs(Z-7375)-1661)2+(B-1661)2)-59▲GOTO 0
A:实测高程D:实测宽度H:设计高程F:超欠值Lbl 1{ADH} A≤H+275+1056=>Goto2 B=√((A-(H+275))2+D2F=25-B Goto1Lbl 2B=√((A-(H+1905))2+(D+1813)2)F=45-B夏夜于2007-1-9 8:36:00修改了此贴子。
1. 主程序(TYQXJS)Lbl 4:1SZ => XY 2XY => SZN:S:ProgSUB0↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1: Goto2:↙Lbl 1:DZ Z: Abs(S-O) →W:Prog SUB1: XS:X◢YS:Y◢Prog SQX(竖曲线的程序名字)F-90→F: FS=:F▲DMS◢Prog CQW(隧道超
123456789101112131415Created with an evaluation copy of Aspose.Words. To discover the full versions of our APIs please visit: :products.asposewords
说明 本程序是在测量空间里下的,源程序是程德集老师的,本人只是稍作修改现在还是学生,不太成熟,语句不够优化,请见谅哈铁路隧道正算主程序[KB-MN]“1,2,3,4,5”Z:X:YLbl 1:Fix 3:K:B:90→AZ=1=>Prog“PQ-1”Z=2=>Prog“PQ-2”Z=3=>Prog“PQ-3”Z=4=>Prog“PQ-4”Z=5=>Prog“PQ-5”Prog“P
隧道超欠挖5800版1?主程序(NTSSD--CQW)Lbl?1:5→DimZ:(增加Z型5个变量)600→S:(输入近似里程)Prog“SUB0”↙(定义所在线元数据库)1÷P→C:?(P-R)÷(2HPR)?→D:180÷∏→E:“X=”?X:“Y=”?Y:X→I:Y→J:(输入实测XY坐标,)?“H=”??→Z[1]:?(输入实测高程)“R=”??→Z[2]:?(输入断面
#
5800坐标正反算以及隧道开挖线放样程序1-JIN YU(主程序)Lbl 4:1→ZS2→FS3→CQWNN=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=:Locate44X:Y=:Locate44Y:F-90→F:S→ K:ProgSJ?-GC:H=:Lo
违法有害信息,请在下方选择原因提交举报