5800隧道三心圆超欠挖程序..docVIP

5800隧道三心圆超欠挖程序 点击：176 次???? 添加日期：2012-07-22 ???? [ 打印 ]??[ 收藏 ]??[ 关闭 ] - 【举报老板技巧】 充分掌握黑心老板拒发薪水证据,绝对保护举报者的身份信息，请加QQ：5513690 1、ECDM(二衬断面检查子程序，结合后面附图理解) “SCGC”?→C If CH+0.3:Then √((H+1.1-C)2+(Abs(Z[4]-2.5)-3.932)2)-2.5→A:Abs(Z[4]-2.5)-(3.932+√(2.52-(H+1.1-C)2)→B “R=”:A◢ “B=”:B◢ Else √((C-H-2.43)2+(Z[4]-2.5)2)-6.7→A: “R=”:A◢ IfEnd （所用字母：C? H? A? B） ? 2、FSFYCX（反算放样程序：输入实测点X、Y坐标及实测高程C，求隧道超欠挖值或边坡开挖值） Lb1? B “SCX”?E: “SCY”?Q:E→Z[1]:Q→Z[2]:提示输入实测X、Y坐标 Prog “ZB” Lb1 C (X-Z[1]) sin(U-90)-(Y-Z[2])cos(U-90)→Z[10]：试算点与实测点的连线在线路中线上的投影长度，当计算精度小于或等于0.001即1mm时输出计算结果，否则继续计算直至满足精度为止。 If Abs(Z[10])≤0.001:Then K+Z[10]→K:Pol(Z[1]-X,Z[2]-Y):”Z[4]=”:-I cos(J-U+90)→Z[4]◢ “K=”:K◢ Prog “GCJS”: Prog “ECDM”:Goto B:Else K+Z[10]→K: Prog “ZB”:Goto? C:IfEnd (所用字母：E? Q? X? Y? U? K) ? 3、GCJS（高程计算子程序） 26+6D→Z:Lb1? 1:Prog? “SQXYS”:K-O→L:If K≤O:Then F+AL→H:Else If K≤O+2T:Then F+AL+WLL÷R÷2÷Abs(W) →H:Else? Z+3→Z:If Z≤23+6D+3G:Then Goto 1:Else ?Z-3→Z:Prog “SQXYS”:Z[Z+4]+B(K-O-T)→H:IfEnd (所用字母：Z? O? K? F? A? L? H? T? R? W? D) ? 4、GCJSZCX（高程计算主程序） Lb1 C “K=”? →K:Prog “GCJS”:”H=”:H◢? Goto C (所用字母：K? H) ? 5、SQXYS（竖曲线要素计算子程序） (Z[Z+4]-Z[Z+1])÷(Z[Z+3]-Z[Z])→A:(Z[Z+7]-Z[Z+4])÷(Z[Z+6]-Z[Z+3])→B:B-A→W:Z[Z+5]→R:Abs(0.5RW)→T:Z[Z+3]-T→O:Z[Z+4]-AT→F: A、B：竖曲线前后坡度计算，其余请参看竖曲线计算公式 (所用字母：A? B? W? T? F? Z? R) ? 6、KWDM（开挖断面计算子程序，结合后面附图理解） “KWBJ-R”? →R:”SCGC”?C: If C≤H+2.43-Rsin(13°10°9°):Then Abs(Z[4]-2.5)-(R-0.45(H+2.43-RSin(13°10°9°)-C) ÷2.1)→B:”B=”:B◢?? Else? If C≤H+2.43+R:Then √((Z[4]-2.5)2)+(C-H-2.43)2)-R→A: Abs(Z[4]-2.5)-√(R2-(C-H-2.43)2)→B: C-H-2.43-√(R2-(Z[4]-2.5)2)→V: “R=”:A◢ “B=”:B◢ “V=”:V◢ Else C-H-2.43-√(R2-(Z[4]-2.5) 2) →V: “V=”:V◢? IfEnd ? （所用字母：R? C? H? A? B? V） ? ? 7、SJK? 30（平曲线及竖曲线数据库程序，投影面高程为30米，红色部分为竖曲线） 7→D: 10→G :30+6D+3G→DimZ:10→Z[1]:3433109.5170→Z[20]:3429407.741→Z[21]:3426833.089→Z[22]:3424404.600→Z[23]:3421023.289→Z[24]:3417221.367→Z[25]:3414448.180→Z[26]:3403462.4596→Z[27]:3405098.748→Z[28]:502494.2176→Z[29]:502639.171→Z[30]:503107.984→Z[31]:503310.589→Z[32]:503948.482→Z[33]:504343.928→Z[34]:50