隧道坐标正反算.pdf

隧道测量 --- 快速坐标正反算程序(4800-4850计算器）2008-11-23 20:47:00 点击： 212 ZB （坐标正算）1. Lb1 1 2. ｛L｝3.SMNARCL 4. K=L-S 5. R=0=>X “X”=M+KcosA ▲6. Y “Y”=N+KsinA▲7. Z “FW ”=A▲8.Goto 4 △R≠0=>Abs K≤C=>Goto 2△R≠0=>K ＞C=>Goto 3△R ≠0=>KAbs K＞C=>Goto 1△9. Lb1 2 10. O =90K2÷（ πRC ）11. G=K 3÷（6RC ） -K?7÷ （336 （RC ） 3＋K?11÷ （42240 （RC ） ?5-K?15÷9676800 （RC ） ?7） ＋K?19÷ （3530096640（RC ）?9）12. F=K－K?5÷（（ 40（RC ）2）－ K?9÷（ 3456（RC ）?4）＋ K?13÷（599040（RC ）?6）－ K?17÷（ 40320×4532（RC ）?8）13. J=0=>X “X”=M ＋GsinA＋cosA▲14. Y “Y”=N＋FsinA- cosA▲15. Z “FW ”=A-O ▲Goto 4 △16．J≠0=>X“X”=M ＋F cosA－GsinA▲17．Y“Y”=N＋G cosA＋F sinA ▲18．Z“FW ”=A＋O ▲Goto 4 △19．LbI 3 20．B=90（2K-C）÷（ лR）21.U=C÷2－C3÷（ 240R2）＋ R sinB ＋C?5÷（34560R?4）-C?7÷（ 599040 R?6）22．V=C 2÷（ 24R）＋ R（1－cosB）－ C ?4÷（ 2688R3）＋ C?6÷（ 42240 R ?5）23．J=0=>X“X”=M ＋UcosA＋VsinA ▲Y“Y”=N＋U sinA －V cosA ▲Z“FW ”=A-B▲Goto 4△24．J≠0=>X“X”=M ＋U cosA－VsinA ▲Y“Y”=N＋U sinA ＋V cosA ▲Z“FW ”=A＋B▲Goto 4△25．Lb1 4 26．｛ D｝：｛ T｝27．D=0 => Goto 1 △28．D≠0=>X“LX”=X＋Dcos（T＋Z）▲Y“LY”=Y＋Dsin （T＋Z）▲Goto 1 △SUB （坐反算）“1.SZ=>UV ”: “2.UV =>SZ”: N（=2): X“X0”: Y “Y0”: O“S0”=L: G “F0”(=Z): Q ：Q=0=>R=1E-45 ：≠> R△J=0：M=AbsQ ：K=1-M：N=1=>Goto 1：≠ >Goto 2 △←┙Lbl 1：{SZ} ：SZ ：L=S-O：B=90QL ÷π÷R：F=G+B ：E=F+B+90 ：C=LK+2MRsinQB ：U“US“ = X+Rec(C,F)+ZcosE◢V “VS“ =Y+J+ZsinE◢Goto 1←┙Lbl 2：W=G+90Q ：E=X+Rec(R,W)：F=Y+J ：W=W+180M：W>360=>W=W-360△←┙Lbl 3：{UV}：UV ：D=Pol(U-E,V-F):T=J：JT=J+360△B=T-W ：P=KB+MAbs B ：S“S“=O+ DKcosP+ M πRP ÷180◢H“H“=DKsinB+MQ(R-D) ◢Goto 3←┙正算由下面输入：S： ZH或 HZ点里程M ： ZH或 HZ点 X坐标N： ZH或 HZ点 Y坐标A：切线方位角R：曲线半径C：缓和曲线长度L：求点里程X：求点 X 坐标Y：求点 Y 坐标FW ：求点切线方位角D：左、右边桩距离T：边桩与线路夹角LX：边桩 X坐标LY：边桩 Y 坐标J：右偏输“ 1”，左偏输“ 0”反算由下面输入：X0: 线路中心 X坐标Y0: 线路中心 Y坐标L: 相对应里程Z: 相对应方位角Q: ＝０U: 求点 X坐标V: 求点 Y坐标S= 求点里程H= 求点边距说明：１ . 可用于缓和曲线坐标正反算，反算时X0,Y0,L,Z 利用正算储存的数据，速度快．２. 反算时先输入近似里程正算．３. 隧道断面炮位放样２０多个点位在操作熟练时只需15 分钟左右，提高工程进度．。