线元起点方位角计算
LbI 1
T”LS1”(第一缓和曲线长)：R“R”（第一半径）：F“FWJ” :G（转角）
A“H”=F+90GT÷R兀◢
L“L1”（第一圆曲线长）
I“Y”=A+180GL÷R兀◢
S“LS2”（第二缓和曲线长）
K=0=>Goto 2；≠＞Goto 3
LbI 2
B”H”=I+90 GS÷R兀◢
Goto 4
LbI 3
J”R2”(第二半径)
D”R”=JR÷(R+J)
B”H”=I+90 GS÷D兀◢
LbI 4
W=0=>Goto 0；≠＞Goto 5
LbI 5
P”L2”(第二圆曲线长）
E”Y”=B+180GP÷J兀◢
X”LS3”（第三缓和曲线长）
H”H”=E90 GX÷J兀◢
Goto 0
注:如计算结果(H/Y)大于360度则减360
1. K=0,W=O(R1=R2)为H—Y—H 端点方位角计算
2. K=0,W≠O(R1=R2)为H—Y—H—Y—H 端点方位角计算
3. K≠0,W=O(R1≠R2)为H—Y—H 端点方位角计算
4. K≠0,W≠O(R1≠R2)为H—Y—H—Y—H 端点方位角计算
整理与2007.10.21并验证
压实度反算程序
YA SHI DU
Y“Y-S-D”
M=2.34×0.01Y(Y是含水量)
N“HE O”
Prog“W”
J=W：L=G：P=O：R=V：T=H：I=N：Z[1]=Z[3]
C“HE 1”
N=C
Prog“W”
K=W：D=G：Q=O：S=V：U=H：X=N：Z[2]=Z[3]
W=（J+K）÷2
Z=M×（1+0.01W）(W为含水量)
E=2500+150RaN#（变量）
B=6300-74-E
F=170+130 RaN#
{F}
C=B÷1.43
F”SK M”
A=Z×((6300-749-E)÷1.43-F÷2.7)=F
A”ST M” ◢
E”YS M” ◢
B”TS M” ◢
C”T V” ◢
F”SK M” ◢
Z”S-M-D” ◢
I”HE 0” ◢
R”H+S MC” ◢
P”H+G M0” ◢
T”HE MO” ◢
L”GT M0” ◢
Z[1]”W M0” ◢
J”SHUI 0” ◢
X”HE” ◢
S”H+S M1” ◢
Q”H+G M1” ◢
U”HE M1” ◢
D”GT M1” ◢
Z[2]”W M1” ◢
K”SHUI 1” ◢
W”W÷2” ◢
M”G-M-D” ◢
子文件W(含水量)
W=4.5+0.8 RaN#
G”GT M”=500+150 RaN#
Z[3]=G×0.01W
Prog”H”
O=G+H
V=G+H+G×0.01W
子文件H(盒质量)
N=1=>H=137: Goto1
≠＞N=2=>H=137: Goto1
≠＞N=3=>H=137: Goto1
≠＞N=4=>H=137: Goto1
≠＞N=5=>H=137: Goto1
≠＞N=6=>H=137: Goto1
≠＞N=7=>H=137: Goto1
≠＞N=8=>H=137: Goto1
≠＞N=9=>H=137: Goto1
≠＞N=10=>H=137: Goto1
LbI 1