DAN
K"JA":H"JB":Q"AB"
F=K+H
Z=0＝>Goto1≠>Gtot2
Lbl1
B=(180-F)/2
U=180-K-B
G=QsinH/sinF
M=QsinK/sinF
X=GsinK/sinU
Goto3
Lbl2
C"JC":V"BC"
D=√ˉ(Q X2+V X2+2QvcosH)
F=F+C
I=sin-1(VsinH/D)
J=sin-1(QsinH/D)
I=K+I
B=(180-I-C-J)/2
U=180-I-B
G=Dsin(C+I)/sinF
M=DsinI/sinF
X=GsinI/sinU
Lbl3
S"LS1":O"JD"
K"A1"=√ˉRs▲
A=s/2-S XY3/240R X2
J=R+S X2/24R
K=tan(F/2)
C=πRF/180
P=O+G
Y=0＝>Goto4:≠>Gtot5
Lbl4
T"T"=A+JK▲
L"L"=C+S▲
E"E"=J/cos(F/2)-R▲
Y"LY"=L-2S▲
J"J"=2T-L▲
U"T1"=T-G▲
N"T2"=T-M▲
Z"ZH"=P-T▲
H"HY"=Z+S▲
Q"QZ"=Z+L/2▲
H"YH"=H+Y▲
Y"HZ"=Z+L▲
Goto8
Lbl5
W=0＝>Goto6:≠>Gtot7
Lbl6
N"LS2"
Y=R+N X2/24R
T"TA"=A+(Y-JcosF)/sinF▲
U"TB"=N/2-N XY3/240R X2+(J-YcosF)/sinF▲
V=tan-1(J/(T-A))
E"E"=J/sinV-R▲
I"LY"=FRπ/180-S/2-N/2▲
L"L"=I+S+H▲
J"J"=T+U-L▲
A"A2"=√ˉRN▲
Z"ZH"=P-T▲
H"HY"=Z+S▲
Q"QZ"=H+I/2▲
Y"YH"= H+I▲
Y"HZ"= Y+N▲
Goto8
Lbl7
A=90S/πR
N"LS2"=(πRF-90S)/90▲
Z"T1"=2S/3+11S XY3/1260RX2▲
Y"T11"=S/3+S XY3/126RX2▲
Q"T12"=N/3+N XY3/126RX2▲
L"L"=C+(S+N)/2▲
B"T2"=2N/3+11N XY3/1260RX2▲
D=sin(180-F)
T=(Y+Q)sin(F-A)/D
U"TA"=Z+T▲
M"TB"=B+(Y+Q)sinA/D▲
E"E"=√ˉ(TX2+Y X2-2TYcosA)▲
J"J"=U+M-S-N▲
A"A2"=√ˉRN▲
Z"ZH"=P-U▲
Q"HH"= Z+S▲
Y"HZ"=Q+N▲
Goto9
Lbl8
E"E2"=E-X▲
Lbl9
符号意义
Z=0,Y=0 单、双交点的曲线要素、主点桩号计算
Z≠0,Y=0 三交点的曲线要素、主点桩号计算
Z=0,Y≠0,W=0 单曲线非对称设置缓和曲线的曲线要素、主点桩号计算
Z=0,Y≠0,W≠0 凸曲线非对称设置缓和曲线的曲线要素、主点桩号计算
JB——如无JB角值，可输入0或按一下“EXE”键；
JC——如无JC角值，可输入0或按一下“EXE”键；
AB，BC——分别是交点A、B、C之间的距离，如无此值，可输入0或按一下“EXE”键；
E2——当E2=0时，称为切基线，当E为负值时，称为圆内基线，反之则称为圆外基线；
HH——两个回旋线的交点桩号。