边桩坐标、切线方位角及放样极坐标.doc

Casio4800p计算直-缓-圆-缓-直线中桩边桩坐标、切线方位角及放样极坐标
A"JD0":B"＜":K"KJD":N"XJD":E"YJD":R:L:M"CX":Z"CY"
Q=L-L＾3÷40R2+L＾5÷3456R＾4-L＾7÷599040R＾6+L＾9÷175472640R＾8-L＾11÷78033715200R＾10-Rsin(90L÷πR)
P=L2÷6R-L＾4÷336R＾3+L＾6÷42240R＾5-L＾8÷9676800R＾7+L＾10÷3530096640R＾9+Rcos(90L÷πR)-R
T=(R+P)tan(AbsA÷2)+QS=πRAbsA÷180+LC=RL
H"KZH"=K-TD"KHY"=H+LF"KYH"=H+S-LG"KHZ"=H+S
Lbl0
{OU}
O≤H⇒W=O-K:V=B:Goto1O≥G⇒W=O-G+T:V=B+A:Goto1
O≤D⇒W=O-H:Goto2O≥F⇒W=G-O:Goto2
W=O-D:V=90(2W+L)÷πR:J=Q+RsinV:I=P+R-RcosV
A＜0⇒I=-I:V=-VGoto3
Lbl1
X=N+WcosV-UsinVY=E+WsinV+UcosVGoto4
Lbl2
J=W-W＾5÷40C2+W＾9÷3456C＾4-W＾13÷599040C＾6+W＾17÷175472640C＾8-W＾21÷78033715200C＾10
I=W＾3÷6C-W＾7÷336C＾3+W＾11÷42240C＾5-W＾15÷9676800C＾7+W＾19÷3530096640C＾9
V=90W2÷πC
A＜0⇒I=-I:V=-VO≤D⇒Goto3
V=B+A-V
X=N+(T-J)cos(B+A)-Isin(B+A)-UsinVY=E+(T-J)sin(B+A)+Icos(B+A)+UcosV
Goto4
Lbl3
V=V+B
X=N-TcosB+JcosB-IsinB-UsinVY=E-TsinB+JsinB+IcosB+UcosV
Lbl4
V＜0⇒V=V+360V≥360⇒V=V-360V=V
Pol(X-M,Y-Z)J＜0⇒J=J+360J=J
Goto0
A"JD0"---转角，左转为“-”，右转为“+”H"KZH"---直缓点里程
B"＜"---计算方位角D"KHY"---缓圆点里程
K"KJD"---交点里程F"KYH"---圆缓点里程
N"XJD"---交点横坐标G"KHZ"---缓直点里程
E"YJD"---交点纵坐标O---待求点里程
R---圆曲线半径U---待求点与线路中心距离左“-”，右“+”
L---缓和曲线长度X---待求点横坐标
M"CX"---测站点横坐标Y---待求点纵坐标
Z"CY"---测站点纵坐标V---待求里程切线方位角
T---切线长度r---待求点与测站点距离
S---曲线长度J---待求点与测站点方位角