计算线路三维坐标

计算线路三维坐标,工程测量,工程测量规范,工程测量技术, 计算线路三维坐标 子程序：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▲
工程测量