圆曲线坐标放样程序（4800）

圆曲线坐标放样程序（4800）
F”X0”H”Y0”ABCDR:Prog”N”:O=J:J=cos‐¹((2R²-S²)÷(2R²)▲
C”FC”=RJ×π÷180▲
Q=(180-J) ÷2  换行
M=A+Rcos(O+Q)▲
N=B+Rsin(O+Q)▲
E=√((B-N)²+(A-M)²):Z=sin‐¹((B-N) ÷E):(A-M)<0=>Z=
180-Z△Z<0=>Z=Z+360△
I=0:T”K0”:Lbl1:Fixm:{VL}:V:L:I=I+L:P=180I÷(πR):
U=”Kη”=T-I▲
X”XZ”=M+Rcos(Z+P)▲
Y”YZ”=N+Rsin(Z+P)▲
Prog”Q”   换行
X”XL”=M+(R+V) cos(Z+P)▲
Y”YL”=N+(R+V) sin(Z+P)▲
Prog”Q”   换行
X”XR”=M+(R-V) cos(Z+P)▲
Y”YR”=N+(R-V) sin(Z+P)▲
Prog”Q”   换行
Goto1
子程序Q
K=√((X-F)²+(Y-H)²    换行
W= sin‐¹((Y-H) ÷K:(X-F)<0=>W=180-W△
W<0=>W=W+360△W=Ans:
Prog”M”: Fixm4:W= Ans▲
Fixm3:K”S=”▲
子程序M
Int Ans+.01Int(60Frac Ans)+.006Frac(60Frac Ans)
子程序M
N=C-A:L=D-B:S=√(N²+L²):
J= sin‐¹(L÷S):N<0=>J=180-J△
J<0=>J=J+360△
显示：X0 Y0测站点坐标
ABCD直圆点和圆直点坐标（按顺时针放向）
R半径
J圆心角       FC弧长
M N圆心坐标
K0桩号      V 边距     L弧长     Kη 桩号
XZ YZ中桩坐标  W放样点方位角  S放样点距离
XL YL左边桩坐标  W放样点方位角  S放样点距离
X R YR右边桩坐标 W放样点方位角  S放样点距离
算例
X0=676.130    Y0=812.848      A=659.373    B=823.601           C=690.433             D=854.568
R=31          J=90-03-00-15         FC=48.722
M=659.433     N=854.601
K0=0          V=5           L=5
XZ=664.352    YZ=823.994    W=136.3443   S=16.215
XL=665.146    YL=819.057    W=150.3117   S=12.618
XR=663.559    YR=828.930    W=128.0048   S=20.412
如算5米一个桩边距一样的话，边距和弧长不要从新输入
XZ=669.204    YZ=825.181     W=119.1905   S=14.145
XL=670.779    YL=820.426     W=125.1116   S=9.284
XR=667.628    YR=829.926     W=116.2755   S=19.077
程序中√为公号。
此程序由一个主程序和三个子程序构成，次程序是用如无切线放位角的圆曲线，计算出的结果除坐标外还有方位角和距离。对用方位角和距离来进行放样的测量员很实用。
此程序有一缺点，精度不高还望各位大师予以改进。

最后编辑：2019-08-26

作者：acer

这个作者貌似有点懒，什么都没有留下。

站内专栏