多条折线巷道放样计算程序(作者金欢骁)

多条折线线路放样检测程序金欢骁1. 程序名: A-DZX-ZFS-FY(多折线正反算放样主程序)1-1 程序清单:"ZRM(主人吗)=?"?→M:If M = *(自已设定,如金=J就行): Then Goto A: E1se"NBS-ZR,QTC(你不...

多条折线线路放样检测程序
金欢骁
1. 程序名: A-DZX-ZFS-FY(多折线正反算放样主程序)
1-1 程序清单:
"ZRM(主人吗)=?"?→M:If M = *(自已设定,如金=J就行): Then Goto A: E1se"NBS-ZR,QTC(你不是主人,请退出)"◢
Stop: IfEnd←」
Lbl  A: 5→DimZ: Cls:"XL1(ZJ(主井))→1, XL2(XSMXH(新撒煤斜巷))→2, XL3(PDJ(皮带井))→3,XL4(FJ(副井))→4,XL5()→5,TC→0 (线路1(主井)赋值1, 线路2(撒煤)赋值2, 线路3(皮带井)赋值3, 线路4(副井)赋值4,线路,5赋值5,退出赋值0)"?L: If L=0 : Then Stop: E1se Goto X: IfEnd←」
Lbl  X:0→M:Cls:"ZS(正算) →1,FS(反算) →2,FH→0"?M:  M=0 => Goto A: M=2=>Goto 1←」
Lbl B: Cls:"CZD-X(BFY→0)(测站点X,不放样赋值0)="?→Z[1]: Z[ 1]=0=>Goto 0: "CZD-Y (测站点Y)="?→Z[2]←」
Lbl  0: Cls: "JS-ZH(XJ→XB-ZH,FH→F)(计算桩号,斜井赋值斜井桩号,返回赋值F)="?K: K=F=>Goto X : Prog"P-1": Prog"S-1": If G≥0.017 Or G≤-0.017: Then Z+ √((K-Z)2÷(1+G2)) →K(由斜边的桩号转换为邻边(即平距)的桩号):(如需要,此处可加入显示平距桩号: "PJ-ZH=":K◢) IfEnd: K-Z→U:0→V:0→J: Prog"GC-JS": Prog"ZS-ZB-XS": If Z[1]=0:Then: Prog"BZ-JS-Z": J→Q: Goto 0:E1se X→U:Y→V:J→Q: Prog"FY-JS": Prog"BZ-JS-Z": Goto 0←」
Lbl  1: Cls: "SCD-X(FH→0) (实测点X,返回赋值0)="?→P: P=0=>Goto X :"SCD-Y(实测点Y)="?Q: "SCD-GC(BJS-GC→0)(实测点高程,不计算高程赋值0)="?N←」
Lbl  2: Cls:"SS-ZH (试算桩号)="?K: Prog"P-1": Prog"S-1": K-Z→U:0→V:0→J: Prog"ZB-FS": J→W: Po1(P-X, Q-Y: If  J≤0:Then J+360 →J:E1se J→J:IfEnd:J-W→D:ICos(D→Z[3]:K+ Z[3]→K:If Abs(Z[3])>0.001: Then Goto 2: E1se ISin(D→B: Prog"GC-JS": If G≥0.017 Or G≤-0.017: Then Z+ √((K-Z)2+((K-Z)G)2) →K(由邻边(即平距)的桩号转换为斜边的桩号):IfEnd:IfEnd: Cls:Fix  3:"FS-ZH(实测点桩号)=":Locate 7,1,K:"PZ-JL(实测点偏离中心点距离)=":Locate 7,2,B:"FSD-FWJ∠(反算点方位角)=":W °◢
N=0=>Goto 1: If  N-(H+C)>0:Then Goto 3:E1se Goto 4:IfEnd←」
Lbl  3: Cls: Fix  3:"DBM-GC(底板面高程)=":Locate 8,1,H:"CD→DBM-C(测点至底板面高差)=":Locate 10,2,N-H : "CD→KWD-C(测点至开挖底面高差)=":Locate 10,3,N-(H-Z[5]÷Cos(tg-1(G))):"KDC(+C,-G)(巷道宽度差(正超,负欠))=":Locate 12,4, Abs(B)-√((Z[4]) 2-((N-(H+C)) Cos(tg-1(G)))2◢ (式中Z[4]=1/2净宽,Z[5]=设计底板厚度)
Goto 1(式中(N-(H+C))Cos(tg-1(G)为计算垂直于底板方向的拱部高度计算式)
Lbl  4: Cls: Fix  3:"DBM-GC(底板面高程)=":Locate 8,1,H:"CD→DBM-C(测点至底板面高差)=":Locate 10,2,N-H : "CD→KWD-C(测点至开挖底面高差)=":Locate 10,3,N-(H-Z[5]÷Cos(tg-1(G))):"KDC(+C,-G)(巷道宽度差(正超,负欠))=":Locate 12,4, Abs(B)- Z[4]◢
Goto 1(程序中0.1÷Cos(tg-1(G)为计算底板厚度垂直于水平方向的高度计算式, Cos(tg-1(G)为坡比转换倾角)
2. 程序名:GC-JS(高程计算程序)
2-1 程序清单:,,
If T=0(无竖曲线时): Then F+G(K-E→H: E1se (有竖曲线段时)E(变坡点桩号)-T(切线长)→S(竖曲线起点桩号):If K≤S(直线段时): Then F(变坡点高程)+G(后坡比)(K-E)→H: E1se (竖曲线段时)F+G(K-E)+(-1)O(K-S)2÷(2R→H: Return : IfEnd: IfEnd

3.程序名: ZS-ZB-XS(正算坐标显示)
3-1 程序清单:
A+UCos(I)-VSin(I→X:B+USin(I)+VCos(I→Y:I+J→J: If J <0: Then J+360→J: E1se J→J: IfEnd: Cls:Fix  3:"ZXD-X(中线点X)=":Locate 7,1,X:"ZXD-Y(中线点Y)=":Locate 7,2,Y: "ZXD-GC(中线点高程)=":Locate 8,3,H:"FW∠(中线点方位角)=": Locate 5,4,J°◢
Return

4.程序名: BZ-JS-Z (边桩计算)
4-1 程序清单:
Cls:"FY→1,BFY→0(返回赋值0,赋值)"?C←」
Lbl  B: 0→B:Cls:"BXD-JL(ZB→-D, YB→D,FH→0)(边线点距离(左边赋负值,右边赋正值,返回赋值0))="?B:B=0=>Return :  90→O: Cls:"ZX→BX-YJ∠ (边线点距离(返回赋值0,左边赋负值,右边赋正值))="?O:X+BCos(Q+O→U:Y+B Sin(Q+ O→V: If B<0: Then: Goto Z: E1se Goto Y: IfEnd ←」
Lbl  Z: Cls:Fix  3:"ZBD-X(左边点X值)=":Locate 7,1,U:"ZBD-Y(左边点Y值)=":Locate 7,2,V◢
Goto X←」
Lbl  Y: Cls:Fix  3:"YBD-X(左边点X值)=":Locate 7,1,U:"YBD-Y(左边点Y值)=":Locate 7,2,V◢
Lbl  X: If C=1: Then: Prog"FY-JS": Goto B: E1se Goto B: IfEnd

5.程序名: ZB-FS (坐标反算)
5-1 程序清单:
A+UCos(I)-VSin(I→X:B+USin(I)+VCos(I→Y:I+J→J: If J <0: Then J+360→J: E1se J→J:IfEnd←」
Return

6. 程序名: P-1(平曲线数据库)
6.1程序清单:
If L=1(1队,主斜井): Then If K<-10: Then "JS-ZH-CX-K<QD(计算桩号超限,小于起点)"◢
Stop: IfEnd←」
If K≤700 (略大于终点斜边桩号即可): Then 0(直线起点桩号)→Z: 172° (直线方
位角)→I:3978.013(直线起点X值)→A:1195.391(直线起点Y值)→B: Return :IfEnd←」
If K>700: Then "JS-ZH-CX-K>ZD(计算桩号超限,大于终点)"◢
Stop: IfEnd:IfEnd←」
If L=2(2队,清理撒煤斜巷): Then If K<-10: Then "JS-ZH-CX-K<QD(计算桩号超限,小于起点)"◢
Stop: IfEnd←」
If K≤74.845(第一直线终点桩号减2米): Then 0(第一直线起点桩号作为起算点桩号)→Z: 257°32′40″(第一直线方位角)→I:3401.078(本段起算点的X值)→A:1324.640(本段起算点的Y值)→B: Return : IfEnd←」
If K≤104.438 (第二直线竖折点1终点桩号): Then 74.845(第二直线起点桩号减2米作为起算点桩号)→Z: 172°(第二直线方位角)→I:3386.485(第二直线起点桩号坐标352°方位角后退2米后的X值)→A:1249.326(第二直线起点桩号坐标352°方位角后退2米后的Y值)→B: Return : IfEnd←」
If K≤162.345 (第二直线竖折点2平距桩号): Then 104.438(第二直线竖折点1桩号作为起算点桩号)→Z: 172°(第二直线方位角)→I:3357.179(本段起算点的X值)→A:1253.444(本段起算点的Y值)→B: Return : IfEnd←」
If K≤173.228 (第二直线终点桩号减2米): Then 169.229(第二直线竖折点2斜距桩号作为起点桩号)→Z: 172°(第二直线方位角)→I:3299.836(本段起算点的X)→A:1261.503(本段起算点的Y)→B: Return : IfEnd←」
If K≤202.194(第三直线终点桩号减2米): Then 173.228(第三直线起点桩号减2米作为起算点桩号)→Z:82°(第三直线方位角)→I: 3293.616(第三直线起点桩号坐标262°方位角后退2米后的X值)→A: 1260.357(第三直线起点桩号坐标262°方位角后退2米后的Y值)→B: Return : IfEnd←」
If K≤209.345(第四直线终点桩号): Then 202.194(第四直线起点桩号减2米作为起算点桩号)→Z:352° (第四直线方位角)→I:3295.944(第四直线起点桩号坐标172°方位角后退2米后X值)→A:1291.300(第四直线起点桩号坐标172°方位角后退2米后的Y值)→B: Return : IfEnd←」
If K≤224.025(第五直线终点桩号): Then 209.346(第五直线起点桩号+0.001作为起算点桩号)→Z:352° (第五直线方位角)→I:3302.984(第五直线起点桩号X值)→A:1290.007(第五直线起点桩号Y值)→B: Return : IfEnd←」(沉淀池偏中段)
If K≤250(第六直线预计终点桩号): Then 224.026(第六直线起点桩号+0.001作为起算点桩号)→Z:352°(第六直线方位角)→I:3317.556(第六直线起点桩号X值)→A:1288.212(第六直线起点桩号Y值)→B: Return : IfEnd←」(进入主斜井段)
If K>250: Then "JS-ZH-CX-K>ZD(计算桩号超限,大于终点)"◢
Stop: IfEnd:IfEnd←」
If L=3(原主井,进风行人井): Then If K<-50: Then "JS-ZH-CX-K<QD(计算桩号超限,小于起点)"◢
Stop: IfEnd←」
If K≤520(略大于计算终点的斜边桩号): Then 0(直线起点桩号)→Z: 159°6′43″ (直线方位角)→I:4022.899(直线起点X值)→A:1119.595(直线起点Y值)→B: Return : IfEnd←」
If K>520: Then "JS-ZH-CX-K>ZD(计算桩号超限,大于终点)"◢
Stop: IfEnd:IfEnd←」
If L=4(5队,副斜井): Then If K<-10: Then "JS-ZH-CX-K<QD(计算桩号超限,小于起点)"◢
Stop: IfEnd←」
If K≤420(略大于计算终点的斜边桩号): Then 0(直线起点桩号)→Z: 169°51′ (直线方位角)→I:4038.566(直线起点X值)→A:1247.389(直线起点Y值)→B: Return : IfEnd←」
If K>420: Then "JS-ZH-CX-K>ZD(计算桩号超限,大于终点)"◢
Stop: IfEnd:IfEnd←」

(该工程已完成,本次在计算器内已删除)If L=5(6队,进风行人联络巷): Then If K<-10: Then "JS-ZH-CX-K<QD(计算桩号超限,小于起点)"◢
Stop: IfEnd←」
If K≤11.5(第一直线终点反方向退2米后桩号): Then 0(第一直线起点桩号)→Z: 263°51′50.94″(第一直线方位角)→I:3196.144(第一直线起点X值)→A:1296.752(第一直线起点Y值)→B: Return : IfEnd←」
If K≤26.828 (第二直线终点桩号): Then 11.5(第二直线起点反方向退2米后桩号作为第二直线起点桩号)→Z: 173°51°43.64°(第二直线方位角)→I:3196.689(第二直线起点X值)→A:1283.115(第二直线起点Y值)→B: Return : IfEnd←」
If K≤104.611(第三直线终点平距桩号(注意此处的特别设计)): Then 26.828(第三直线起点桩号)→Z: 173°51°43.64°(第三直线方位角)→I: 3181.45(第三直线起点X值)→A: 1284.754(第三直线起点桩号Y值)→B: Return : IfEnd←」
If K≤120.49(第四直线终点连续桩号退2米后桩号): Then 111.302(第四直线起点桩号)→Z: 173°51°43.64°(第四直线方位角)→I:3104.112(第四直线起点X值)→A:1293.07 (第四直线起点桩号Y值)→B: Return : IfEnd←」
If K≤133.834(第五直线终点桩号): Then 120.49(实际第五直线起点桩号反方向退2米后作为第五直线起点桩号)→Z: 89°03°04° (第五直线方位角)→I:3092.955(第五直线起点桩号X值)→A:1292.267(第五直线起点桩号Y值)→B: Return : IfEnd←」
If K>135: Then "JS-ZH-CX-K>ZD(计算桩号超限,大于终点)"◢
Stop: IfEnd:IfEnd←」

7.程序名: S-1(竖曲线数据库)
7.1 程序清单:
If L=1(1队,主斜井,没有竖曲线的模式): Then If K≤700 (略大于终点斜距桩号): Then 0(以井口0点作为高程计算起点桩号)→E:1488(井口起算点高程)→F:-0.30573 (前坡坡比(上坡为正, 下坡为负))→G: 0(切线长)→T:1.255(直墙高度)→C: 2.25(1/2净宽)→Z[4]:0.1(设计底板厚度)→Z[5]: Return : IfEnd:IfEnd←」
If L=2(2队, 清理撒煤斜巷,有竖曲线的模式): Then If K≤106.554(第一竖曲线终点桩号): Then 104.438(第一竖曲线变坡点桩号)→E:1313.26(第一竖曲线变坡点高程)→F:-0.001 (后坡坡比(上坡为正, 下坡为负))→G: 1(竖曲线系数, 凸为1, 凹为2)→O: 12000(竖曲线半径)→R: 2.116(切线长)→T:3(直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]:Return : IfEnd←」
If K≤164.461(第二竖曲线终点斜距桩号(注意此处的特别设计)): Then 162.345(第二竖曲线变坡点平距桩号)→E:1284.200(第二竖曲线变坡点高程)→F:-0.502 (后坡坡比(上坡为正, 下坡为负))→G: 2(竖曲线系数, 凸为1, 凹为2)→O:12000(竖曲线半径)→R: 2.116(切线长)→T:3.367(直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]:Return : IfEnd←」
If K≤209.345(第三直线终点(以下桩号均为经过斜边后按斜边长累计的桩号)桩号): Then 209.345 (第三直线变坡点桩号)→E:1284.105(第三直线变坡点高程)→F:-0.002(后坡坡比(上坡为正, 下坡为负))→G: 0(竖曲线系数, 凸为1, 凹为2)→O: 0(竖曲线半径)→R: 0(切线长)→T: 3(直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]: Return : IfEnd←」
If K≤224.025(第四直线终点桩号): Then 224.025 (第四直线变坡点桩号)→E:1284.093(第四直线变坡点高程)→F:-0.002(后坡坡比(上坡为正, 下坡为负))→G: 0(竖曲线系数, 凸为1, 凹为2)→O: 0(竖曲线半径)→R: 0(切线长)→T: 3.5 (直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]:Return : IfEnd←」
If K≤260(略大于计算终点的(斜距)桩号): Then 250(第五直线计算终点(平距)桩号, 等于主斜井0+671.448(斜),等于主斜井0+642.109(平)) →E:1292.034(第五直线终点高程)→F:0.30573(后坡坡比(上坡为正, 下坡为负))→G: 0(竖曲线系数, 凸为1, 凹为2)→O: 0(竖曲线半径)→R: 0(切线长)→T: 3.505(直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]: Return : IfEnd:IfEnd←」
If L=3(进风行人井,原主斜井,没有竖曲线模式): Then If K≤520(略大于计算终点(斜距)桩号): Then 0(以井口0点作为高程计算起点桩号)→E:1485.571(井口起算点高程)→F:-0.373481(前坡坡比(上坡为正, 下坡为负))→G: 0(切线长)→T: 1.708(直墙高度)→C: 1.55(1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]: Return : IfEnd:IfEnd←」
If L=4(5队,副斜井,没有竖曲线模式): Then If K≤420(略大于计算终点(斜距)桩号): Then 0(以井口0点作为高程计算起点桩号)→E:1474.638(井口起算点高程)→F:-0.46277 (后坡坡比(上坡为正, 下坡为负))→G: 0(切线长)→T: 1.983(直墙高度)→C:2.0(1/2净宽)→Z[4]:0.15(设计底板厚度)→Z[5]:Return:IfEnd:IfEnd←←」
If L=5(6队,进风行人联络巷,有竖曲线的模式): Then If K≤28.656第一竖曲线终点桩号): Then 26.828(第一竖曲线变坡点桩号)→E:1302.6(第一竖曲线变坡点高程)→F:0.003 (后坡坡比(上坡为正, 下坡为负))→G: 2竖曲线系数, 凸为1, 凹为2)→O: 9(竖曲线半径)→R: 1.828(切线长)→T: (直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]: Return : IfEnd←」
If K≤113.130(第二竖曲线终点斜距桩号): Then 104.611(第二竖曲线变坡点平距桩号)→E:1335.549(第二竖曲线变坡点高程)→F:0.4236 (后坡坡比(上坡为正, 下坡为负))→G: 1(竖曲线系数, 凸为1, 凹为2)→O:9(竖曲线半径)→R: 1.828(切线长)→T: (直墙高度)→C: (1/2净宽)→Z[4]:0.1(设计底板厚度)→Z[5]:Return : IfEnd←」
If K≤133.834(终点桩号): Then 133.834(终点桩号)→E:1335.617(终点高程)→F:0.003(后坡坡比(上坡为正, 下坡为负))→G: 1(竖曲线系数, 凸为1, 凹为2)→O: 0(竖曲线半径)→R: 0(切线长)→T: (直墙高度)→C: (1/2净宽)→Z[4]: 0.1(设计底板厚度)→Z[5]:   Return : IfEnd:IfEnd←」

8.1 程序名:FY-JS(放样计算)
8.1-1 程序清单:
Pol(U-Z[1],V-Z[2]:J→W: If W≤0: Then W+360→W:Elec W→W: IfEnd:Cls: Fix 3: "FY-BC(放样边长)=": Locate 7,1,I:"FY-FWJ∠=(放样方位角)=":W°◢
Lbl 0: 0→D:Cls:"SC-JL(FH→0)(实测距离,返回赋值0)="?D:D=0=>Return: "SCD-JL-C=(实测点距离差)=":D-I◢
Goto  0

1-2.程序功能:
本程序利用独创的复合式数据库,实现了多条折线线路共用一数据库;通过计算过程中的选择和切换,可以计算并显示本线路范围内任意桩号的中、边线(任意夹角)三维坐标(即正算);也可以利用一组实测三维坐标, 计算并显示所有放样所需数据(即反算)。当路线纵向倾角大于(上坡)或小于(下坡)0.017(即±1°时),在正算时可以直接输入斜边桩号,在反算时则可自动显示反算斜边桩号,使显示桩号与实际线路长度严密吻合。为了方便于在下一直线与本直线拐弯处进行下一直线方向的反方向上放样,本程序在平数据库里进行了特别设计。
注意:本程序在拐弯处反算时应输入小于本线段终点的试算桩号,否则计算出的数据为下一线段起点的桩号和偏中距离数据。

  • 发表于 2018-11-05 14:15
  • 阅读 ( 145 )
  • 分类:5800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

192 篇文章

作家榜 »

  1. admin 192 文章
  2. 老Y 25 文章
  3. 胡亮 4 文章
  4. 肖肖 3 文章
  5. netbee 1 文章
  6. 唯一 1 文章
  7. 梁雄 1 文章
  8. 秦汉 1 文章