可用于改成全线计算程序（4800）

标签：工程测量规范,工程测量技术, 可用于改成全线计算程序（4800）,http://www.gong66.com
可用于改成全线计算程序（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）