歡迎來到http://www.tljciu.live !
當前位置:六六工程資料網建筑課堂工程資料工程測量計算線路三維坐標

計算線路三維坐標

08-22 13:45:26  瀏覽次數:820次  欄目:工程測量
標簽:工程測量規范,工程測量技術, 計算線路三維坐標,http://www.tljciu.live
計算線路三維坐標 子程序:JS
(1) J=90I/Rπ:P=I2/(24R):M=I/2-I³/240/R2:L=Rπ(AbsQ-2J) /180:T=(R+P)tan(AbsQ/2)+M
(2) D=E-F:D≤0=>Goto 1:≠>D≤I=>Goto 2:≠>D=E-F-I:D≤L=>Goto 3:≠>D=F+2I+L-E:D≥0=>Goto 4:≠>Goto 5 △△△△
(3) Lbl  1
(4) S=E-F:C=Z :U=Z
(5) Goto  6
(6) Lbl  2
(1) U=D-D5/(40R2I2): V=D3/(6RI): A= 90 D2/(RI)
(2) Goto  7
(3) Lbl  3
(4) U=M+Rsin(J+180D/Rπ):V=R+P-Rcos(J+180D/Rπ):A=J+180D/R/π
(5) Goto  7
(6) Lbl  7
(7) B=tan-1(V/U):S=√(U2+V2):
(8) Q≤0=> C=Z-B: U=Z-A:≠>C=Z+B: U=Z+AΔ
(9) Goto  6
(10) Lbl  4
(11) U=D-D5/(40R2I2): V=D3/(6RI): B=tan-1(V/U):S=√(U²+V²):A=D2*180/(6RIπ)*3
(12) Q≤0=> C=Z+Q+B+180: U=Z+Q+A:≠>C=Z+Q-B+180:U=Z+Q-AΔ
(13) Goto  8
(14) Lbl  8
(15) X=ScosC+G+TcosZ+Tcos(Z+Q):Y=SsinC+H+TsinZ+Tsin(Z+Q)
(16) Goto  9
(17) Lbl  5
(18) S= (E-F-2I-L):U=Z+Q:C=U
(19) Goto  8
(20) Lbl  6
(21) X=ScosC+G:Y=SsinC+H
(22) Goto  9
(23) Lbl  9
(24) X=X+Wcos(U+K):Y=Y+Wsin(U+K)
子程序:QXYS(根據實際曲線要素更改內容)
(1) O>0=>Goto 0:≠>Goto 1△
(2) Lbl  0:E≤2847.579=>F=862.757:I=360:R=3150:G=6348.616:H=7776.308:Z=206’30’46.4”:Q=29’33’14.8”:E≤4197.118=>F=2847.579:I=250:R=7065.687:G=4879.069:H=6485.735::Z=236’4’1.3”:Q=-5’2’21.5”:≠>F=4197.118:G=4060.843:H=5413.428:I=250:R=2000:Q=26’54’46.4”:Z=231’1’39.8”△△Goto 3
(3) Lbl 1:E≤2503.374=>F=1221.741:I=250:R=2000:G=6026.492:H=7617.847:Z=206’30’46.4” :Q=29’33’14.8’ :E≤3857.414=>F=2824.43:I=350:R=4450.63:G=4898.581:H=6518.319:Z=236’4’1.3” :Q=-8’47’32.9” :≠>F=3857.414:I=280:R=2400:G=4258.902:H=5709.194:Z=227’16’28.3” :Q=30’39’57.9” △△Goto 3
(4) Lbl 3
(5) Prog “JS”
子程序:SQXJS
(1) D=E-F:D<0=>A=DI+H:≠>A=Dsin(tan-1I-90/π/R)+H
子程序:SQX(根據實際豎曲線要素更改內容)
(1) O<0=>Goto 0:≠>Goto 1△
(2) Lbl 0
(3) E≤2405=>R=10000:F=2035:I=0.005:H=73.575:≠>E≤2678=>R=-13000:F=2522:I=-0.032:H=64.836:≠>E≤3287.5=>R=-13000:F=2832.5:I=-0.02:H=57.69:≠>E≤3720=>R=80000:F=3480:I=0.015:H=59.44:≠>E≤416.75=>R=15000:F=3912.5:I=0.012:H=64.99:≠>E≤4667.993:=>R=30000:F=4398.007:I=-0.005:H=64.73△△△△△△Goto 3
(4) Lbl 1
(5) E≤2024=>R=12000:F=1616:I=0.02:H=78.92:≠>E≤2376=>R=14396.73:F=2024:I=-0.014:H=80.144:≠>E≤2710.7=>R=-12000:F=2489.3:I=-0.03845:H=66.556:≠>E≤3235=>R=-10000:F=2885:I=-0.02:H=56.6:≠>E≤3700=>R=-20000:F=3500:I=0.015:H=59.7:≠>E≤4195=>R=10000:F=3805:I=0.025:H=66.325:≠> R=-13000:F=5406.5:I=-0.014:H=51.509△△△△△△Goto 3
(6) Lbl 3:Prog“SQXJS”
主程序:ZBJS(坐標及設計高程計算)
(1) Lbl 0
(2) {E,K,W}:E:K:W
(3) Prog “QXYS”
(4) Prog “SQX”
(5) X▲Y▲A▲
(6) Goto 0
主程序:ZHDY(右線樁號任意方向的右線對應樁號)
(1) Prog"QXYS"
(2) Z[1]=X:Z[2]=Y:Z[3]=U+K
(3) O=-O
(4) Lbl 0
(5) Prog"QX"
(6) Pol((X-Z[1]),(Y-Z[2]))
(7) J≤0=>J=J+360:≠>J=JΔ
(8) B=Z[3]-J
(9) Z[3]=Z[3]-180
(10) A=U-Z[3]
(11) N=Isin(AbsB)/sinAbsA
(12) N≤0.001=>Goto 1:≠>Goto 2Δ
(13) Lbl 2
(14) B≤0=>E=E+N:Goto 0:≠>E=E-N:Goto 0Δ
(15) Lbl 1
(16) E▲
,計算線路三維坐標

++《計算線路三維坐標》相關文章

22选五的开奖公告