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

Casio4800p计算直-缓-圆-缓-直线中桩边桩坐标、切线方位角及放样极坐标
A"JD0":B"＜":K"KJD":N"XJD":E"YJD":R:L:M"CX":Z"CY"8
Q=L-L＾3÷40R2+L＾5÷3456R＾4-L＾Casio4800p计算直-缓-圆-缓-直线中桩边桩坐标、切线方位角及放样极坐标
A"JD0":B"＜":K"KJD":N"XJD":E"YJD":R:L:M"CX":Z"CY"8
Q=L-L＾3÷40R2+L＾5÷3456R＾4-L＾7÷599040R＾6+L＾9÷175472640R＾8-L＾11÷78033715200 R＾10-Rsin(90L÷πR)8
P=L2÷6R-L＾4÷336R＾3+L＾6÷42240R＾5-L＾8÷9676800R＾7+ L＾10÷3530096640R＾9+Rcos(90L÷πR)-R8
T=(R+P)tan( Abs A÷2)+Qy S=πR Abs A÷180+Ly C=RL8
H"KZH"=K-Ty D"KHY"=H+Ly F"KYH"=H+S-Ly G"KHZ"=H+Sy
Lbl08
{OU}8
O≤H⇒W=O-K:V=B:Goto1r8O≥G⇒W=O-G+T:V=B+A:Goto1r8
O≤D⇒W=O-H:Goto2r8O≥F⇒W=G-O:Goto2r8
W=O-D : V=90(2W+L)÷πR : J=Q+RsinV : I=P+R-RcosV8
A＜0⇒I=-I:V=-Vr8 Goto38
Lbl18
X=N+WcosV-UsinVy Y=E+WsinV+UcosVyGoto48
Lbl28
J=W-W＾5÷40C2+W＾9÷3456C＾4-W＾13÷599040C＾6+W＾17÷175472640C＾8- W＾21÷78033715200C＾108
I=W＾3÷6C-W＾7÷336C＾3+W＾11÷42240C＾5-W＾15÷9676800C＾7+ W＾19÷3530096640C＾98
V=90W2÷πC8
A＜0⇒I=-I:V=-Vr8O≤D⇒Goto3r8
V=B+A-V8
X=N+(T-J)cos(B+A)-Isin(B+A)-UsinVy Y=E+(T-J)sin(B+A)+Icos(B+A)+UcosVy
Goto48
Lbl38
V=V+B8
X=N-TcosB+JcosB-IsinB-UsinVy Y=E-TsinB+JsinB+IcosB+UcosVy
Lbl48
V＜0⇒V=V+360r8 V≥360⇒V=V-360r8 V=Vy
Pol(X-M,Y-Z)y J＜0⇒J=J+360rJ=Jy8
Goto08
A"JD0" ---转角，左转为“-”，右转为“+” H"KZH"---直缓点里程
B"＜" -