歡迎來到http://www.tljciu.live !
當前位置:六六工程資料網建筑課堂工程資料工程測量可用于改成全線計算程序(4800)

可用于改成全線計算程序(4800)

08-22 13:58:13  瀏覽次數:914次  欄目:工程測量
標簽:工程測量規范,工程測量技術, 可用于改成全線計算程序(4800),http://www.tljciu.live
可用于改成全線計算程序(4800) 子程序: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
(4)  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 △△△△
(5)  Lbl  1
(6)  S=E-F:C=Z :U=Z
(7)  Goto  6
(8)  Lbl  2
(9)  U=D-D5/(40R2I2): V=D3/(6RI): A= 90 D2/(RIπ)
(10)  Goto  7
(11)  Lbl  3
(12)  U=M+Rsin(J+180D/Rπ):V=R+P-Rcos(J+180D/Rπ):A=J+180D/R/π  
(13)  Goto  7
(14)  Lbl  7
(15)  B=tan-1(V/U):S=√(U2+V2):
(16)  Q≤0=> C=Z-B: U=Z-A:≠>C=Z+B: U=Z+AΔ
(17)  Goto  6
(18)  Lbl  4
(19)  U=D-D5/(40R2I2): V=D3/(6RI): B=tan-1(V/U):S=√(U²+V²):A=D2*180/(6RIπ)*3
(20)  Q≤0=> C=Z+Q+B+180: U=Z+Q+A:≠>C=Z+Q-B+180:U=Z+Q-AΔ
(21)  Goto  8
(22)  Lbl  8
(23)  X=ScosC+G+TcosZ+Tcos(Z+Q):Y=SsinC+H+TsinZ+Tsin(Z+Q)  
(24)  Goto  9
(25)  Lbl  5
(26)  S= (E-F-2I-L):U=Z+Q:C=U
(27)  Goto  8
(28)  Lbl  6
(29)  X=ScosC+G:Y=SsinC+H
(30)  Goto  9
(31)  Lbl  9
(32)  X=X+Wcos(U+K):Y=Y+Wsin(U+K):
子程序:QX
O>0=>Goto 0:≠>Goto 1
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”
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’
Prog JS(本程序內容可以根據每個線路的曲線要素改變)
子程序:SQX(豎曲線計算程序等待本人整理)
子程序:SYS(同上)
主程序:XLJS(坐標和設計高程的計算)
Lbl o
Prog "QX"
Prog "SYS"
X(黑三角)
Y(黑三角)
A(黑三角)
Goto 0
,可用于改成全線計算程序(4800)

++《可用于改成全線計算程序(4800)》相關文章

22选五的开奖公告