建筑室線元法5800程序編寫

1、1：一般放樣反算程序(正算坐標、放樣點至置儀點方位角及距離；反算樁號及距中距離1：一般放樣反算程序(正算坐標、放樣點至置儀點方位角及距離；反算樁號及距中距離 ProgTHB：F=1=Goto1:F=2=Goto2 Lb11:ix3:=：Locate6,4, ：Locate6,4, rog3JS”:Goto0: Lb12:Fix3:：Locate ：Locate6,4, oto: Locate 6,4,IGoto 3.主程序3：極坐放樣計算程序(計算放樣點至置儀點方位角及距離程序名X：Y： 1268123KX標) 2243545L（置儀Y都是手工輸入,也可以建導(dǎo)點 數(shù)據(jù) 庫子程 序, 個人認 為

2、太 麻煩Y-LE：X-KF：Pol(F,E):IF J0:Then J+360(60Frac(J)+0.006Frac(60Frac(J)J:用命令JDMSFix4FWJ=”Locate6,4,J可以用命令JDMS來直接顯示) Fix 3:” S=”:Locate 主程序 4：涵洞放樣程序（由涵中心樁號計算出各涵角坐標、在主程序 3 中輸入置LbI 0:Norm 2 90Z1(涵洞中心樁與右邊夾角，手工輸入，也可以修改成前面加？后變?yōu)樽兞? 1 F:Prog”THB”:?L: Z2-Z1E:X+Lcos(E)X:Y+Lsin(EY:Fix3Locate6,4, ：Locate 6,4, rog

3、3JS”:Goto 0:主程序 LbI0:Norm2:18DimZ:2F:90Z1:ProgZ6:IfD0:Then0.75-LD:GotoH:ElseL-0.75D:GotoH:IfEnd LbIH:Prog”H”:H-0.03-Z4Z5:Z6 L:If Z5A:ThenGoto1:ElseIfGZ10:ThenGoto2:ElseGoto1:L+Z12+Z13+Z14+(G-A) Z9+Z11 Z8+Z10 2:L+Z12+Z13+(G-Z10)Z8+Z10Z7:Goto LbI 3:L+Z12+GZ7:Goto S:Gotoz: LbIZ:Z3D:Fix2:Abs(D)-ST:”L0=”

4、:LLocate6,4,T ：Locate ：Locate 6,4, “TW=”:Locate6,4,Z5 Goto6主程序 6 ：Locate 6,4, “TW=”:Locate6,4,Z5 Goto6主程序 6：路基標準半幅寬度計算程序(對于設(shè)計有加寬漸變的有用，如路基寬度無變化，則把此程序直接輸入半幅寬度值至 L)程序名Prog“G0”Z-CE:(B-7坐標計算次程序（）18DimZ：?Z：Prog1P：(P-R)(2HPR)：=1=Goto1：=2=GotoLbl1：?：Abs(O)W：Prog：X：otoLbI2:：I：J：Prog：Z： oto 3 LbI 3:IFThen：Els

5、e8. 正算子程序0.1184634425A：0.2393143352B：0.2844444444N0.046910077K：X )+Nsin(G+QEMW(C+MWS)+Bsin(G+QE(1-L)W(C+(1-L)WS)+Asin(G+QE(1-K)W(C+(1-K)W) Y 9. 反算子程序G-90：Abs(Y-V)cos(T)-(X-)：0：Lbl0：Prog：T+QEW(C+W)(J-Y)cos(L)-(I-X)sin(L)：IFAbs() Goto 0:W=2=Goto 1: LbI 0:If L=0:Then Abs(D)MV:Goto 2:Else Abs(D)(N-M)(Z-

6、L+M)V:Goto 2:IfEnd: LbI1:If L=0:Then Abs(D)MV:Goto 2:Else Abs(D)(3(Z-C) L)2-2(Z-C)L)(3)(N-M)+M)V:Goto 2:IfEnd: LbI 2:Abs(D)E:VEI:I(E-K)V:數(shù)據(jù)子程序(附后示例程序名：X0（坐標計算要素程序 H:11045P:11045R:0Q:Goto0:IfZ26615.555AndZ26915.555:Then26615.555O:11448.97U:2550.016V:101。0923.1” G:300H:11045P: 1800R:1Q:Goto 0:IfEnd:If

7、Z26915.555 H:11045P:11045R:0Q:Goto0:IfZ26615.555AndZ26915.555:Then26615.555O:11448.97U:2550.016V:101。0923.1” G:300H:11045P: 1800R:1Q:Goto 0:IfEnd:IfZ26915.555AndZ27316.952:Then26915.555O:11382.792U:2842.531V:105。G:401.396H:1800P:1800R:1Q:GotoLbI 程序字母說明：O-線元起點樁號；U-起點 X 坐標；V-起點 Y 坐標；G-線元起點樁號切線方位Q線元判別(

8、以道路程序名：SO(高程豎曲線要素子程序IfZ25900AndZ26157.8:Then-200000R:157.8T:26000C:37.1G:0.01222I:Goto0:IfEnd: If Z26157.8 And Z27421.915:Then 300000R:171.915T:27250C:32.65G:-IfZ27421.915 AndZ27889.029:Then 0:IfEnd: LbI ；I程序名：I0（高程 參數(shù)子程序1.5K:2W:If D ? 選擇計算方式，輸入 1 表示進行由里2為線元邊樁與中線右夾（反算輸入大概樁號） (左側(cè)取負，值右側(cè)取正值，在中線上取零) X0X

9、（放樣程序中實X） Y0Y（放樣程序中實測Y） 顯示部分：L? 涵洞放樣程序中涵距中心樁號前后距離,前為正,后為負. M0? 邊坡放樣程序中原地面X=*XY=*YKL）S=*計算得出的所求點的里程 =* 反算時，計算得出的所求點的邊距 H=* 所求點位置設(shè)計路面頂標高 I=* 所求點位置設(shè)計路面橫坡 L0=*1、坐標正V2、坐標反LblJ0 J=:JGOTOLbl X0=?X:Y0=?Y:FWJ=?D:QDHAO=?G:ZDHAO=?C:2RSin(0.5E)LG Or LC GOTO 180(L-G)(R) Y=:Y+J+KSin(D+E+90) D+Eo:o0 FWJ=:o Goto Lb

10、l QZHAO =?J: (D-C)100)Abs(D-C)100)A:Abs(0.5R(D-C)Goto 0Lbl X0=?X:Y0=?Y:FWJ=?D:QDHAO=?G:ZDHAO=?C:2RSin(0.5E)LG Or LC GOTO 180(L-G)(R) Y=:Y+J+KSin(D+E+90) D+Eo:o0 FWJ=:o Goto Lbl QZHAO =?J: (D-C)100)Abs(D-C)100)A:Abs(0.5R(D-C)Goto 0J-Goto LblEnd:IfEndLbl IfLX:ThenGotoGC=:B+C(L-J)100+A(L-J+T)(2R)5正算偏X0=?A:Lbl LS=?L:X=:A+I+CCos(D+90) Y=:B+J+CSin(D+ 90)Goto X0=?A:Y0=?B:FWJ=?C:1R-QD?D: 1R-ZD 6Lbl (E-D)Abs(G-F)(H-F) Q:PQI:C+90Q(I+2D) J:C+45Q(I8+D) M:C+135Q(3I8+D) N:C+45Q(I2+2D) A+Q(Cos(C)Y=:V+oSin(J+90)FWJ=:JGotoLbl6、標高計I1=