金地国际花园房价:fx 5800正反算、边坡放样、隧道超欠挖11
fx 5800正反算、边坡放样、隧道超欠挖
(2010-07-01 22:30:57) 标签:杂谈
分类: 测量资料正算主程序(ZS)
FIX4:?S:?Z:Prog “PM-SJ”: Abs(S-O) → W:Prog
"YS=":Y◢
F-90→F(需要时可以让他显示):Prog“SQX-SJ”: Prog“SQX”:“H=”:H◢
反算主程序(FS)
FIX4: ?S:?X:?Y:Prog“PM-SJ”: X→ I: Y→
Prog“SQX-SJ”:Prog“SQX” :“H=”:H◢
边坡放样主程序(BP-FY)
Lb1 0:Prog“ZS”:“H-BG”(中桩与坡脚起算点高差值,比中桩高正,反之负)?A:H+A →B:?P(实测点高程):?L(坡脚起算点到中桩的距离):0.75(挖方时一级坡度) →C:1 (挖方时二级坡度)→D:1.5 (挖方时三级坡度)→E:8(挖方时一级坡高) →G:10(挖方时二级坡高) →M:15(挖方时三级坡高) →N:2 (平台宽度)→K:1 (填方时一级坡度)→I:1.5(填方时二级坡度) →J:2 (填方时三级坡度)→O:2 (填方时一级坡高)→Q:8 (填方时二级坡高)→R:10 (填方时三级坡高)→T:ifP>B:thenGoto1:ElseGoto2
Lb1 1:ifP>B:thenL+C(P-B)→U:P-B →F:IfEnd←┘ifP>B+G:thenL+CG+K+D(P-B-G)→U:P-B-G →F:IfEnd←┘ifP>B+G+M:thenL+GC+2k+MD+E(P-B-G-M)→U:P-B –G-M→F:IfEnd:Goto3←┘
Lb1 2:ifP≤B:thenL+I(B -P)→U: B -P →F:IfEnd←┘ifP≤B-Q:thenL+IQ+K+J(B-Q-P)→U:B-Q-P→F:IfEnd←┘ifP≤B-Q-R:thenL+IQ+2k+JR+O(B-Q-R-P)→U:B-Q-R-P→F:IfEnd:Goto3←┘
Lb1 3:U-AbsZ→V:ifZ<0:thenZ-V→Z:Else z+v→z:IfEnd←┘
“V=”V◢
“PT=”:F◢
注:由于路基的宽度和超高情况较为复杂,因此该程序的缺点是不能自动计算路基宽度和路基边缘坡脚起算点的设计高程,需要手算坡脚起算点与中桩的宽度及与中桩的高差。
算例;S? 700(放样点桩号) Z?-15(试算宽度) X=19839.5817 Y=28515.5010 H=107.144
隧道3心圆放样主程序(SD-3XY)
Lb1 0:Prog“FS”:1.5→A:1.65→B:0.89→G:2.27→C:3.3→D:2.41→E:0.51→J:“H1”:F:ifF≤H+A:then E-AbsZ→W:IfEnd:ifF>H+A And F≤H+A+B:then√(D²-(F-H-A)²)-G-AbsZ→W:IfEnd:ifF>H+A+B:then√(C²-(F-H-A-J)²)-AbsZ→W:IfEnd:“W=”:W◢
正算子程序(SUB1)
1÷P→ C: (P-R)÷(2HPR) → D: 180÷π→ E: 0.1739274226→
反算子程序(SUB2)
G-90→T: Abs((Y-V)cosT-(X-U)sin(T)) → W: 0→ Z:Lbl
Lbl
子程序(平面数据库)PM-SJ
ifS ≥500(线元起点里程)AndS<769.256(线元止点里程):Then19942.837 →U(线元起点X坐标):28343.561 →V(线元起点Y坐标):500 →O(线元起点里程):125°16°31°→G(线元起点方位角):269.265 →H(线元长度):10^(45)→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0 →Q(线元左右偏标志:左负右正):IfEnd←┘
ifS ≥769.256(线元起点里程)AndS<806.748(线元止点里程):Then19787.34 →U(线元起点X坐标):28563.378→V(线元起点Y坐标):769.256→O(线元起点里程):125°16°31°→G(线元起点方位角):37.492→H(线元长度):10^(45)→P(线元起点曲率半径):221.75→R(线元终点曲率半径):-1→Q(线元左右偏标志:左负右正):IfEnd←┘
ifS ≥806.748(线元起点里程)AndS<919.527(线元止点里程):Then19766.566→U(线元起点X坐标):28584.574→V(线元起点Y坐标):806.748→O(线元起点里程):120°25°54.07°→G(线元起点方位角):112.779→H(线元长度):221.75→P(线元起点曲率半径):221.75→R(线元终点曲率半径):-1→Q(线元左右偏标志:左负右正):IfEnd←┘
ifS ≥919.527(线元起点里程)AndS<999.812(线元止点里程):Then19736.072 →U(线元起点X坐标):28701.893 →V(线元起点Y坐标):919.527→O(线元起点里程):91°17°30.63°→G(线元起点方位角):80.285→H(线元长度):221.75→P(线元起点曲率半径):9579.228→R(线元终点曲率半径):-1→Q(线元左右偏标志:左负右正):IfEnd←┘
ifS ≥999.812(线元起点里程):Then19744.038 →U(线元起点X坐标):28781.659→V(线元起点Y坐标):999.812→O(线元起点里程):80°40°50°→G(线元起点方位角):100→H(线元长度):10^(45)→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0 →Q(线元左右偏标志:左负右正):IfEnd←┘
子程序(竖曲线数据库)SQX-SJ
ifS≤999.812(竖曲线终点里程):then0.0357(前坡度:上坡正下坡负)→E:0.0227(后坡度:上坡正下坡负):600→R(竖曲线半径):780→G(变坡点里程):110→C(变坡点高程):IfEnd←┘
子程序(竖曲线计算公式)SQX
E-F→J:ifJ>0:then-R→R:ElssR→R:Abs(R*J÷2)→T:ifS≤G-T:thenG-S→L:C-LE→H:IfEnd←┘
ifS>G-T And S≤G: thenG-S→L:(S+T-G)²÷2÷R→N:C-LE+N → H:IfEnd←┘
ifS>G And S≤G+T: then S-G→L:(G +T- S)²÷2÷R→N:C-LF+N → H:IfEnd←┘
ifS>G+T :thenS-G→L: C+LF → H:IfEnd←┘
三、使用说明
1、规定
Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。
侧时,Z取正值。
弧的半径。
次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半
径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。
值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等
于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。
2、输入与显示说明
H=×××
四、算例
成,各段线元的要素(起点里程S0、起点坐标X0
LS、起点曲率半径R0、止点曲率半径RN、线
S0
500.000
769.256
806.748
919.527
999.812
要素)