卡西欧5800道路施工逐桩坐标计算程序
说明：本程序包括了一个完整复合曲线的所有计算，其中需要输入的要素也是对应的完整复合曲线的要素，对不完整的曲线需要将要素进行必要的计算，转换后方能使用该程序，本程序已经包括了边桩几斜交边桩坐标的计算，参见要素说明.
本程序是通过4800，4850程序的改编而来，详细程序如下：
?D:?A:?R:?C:?N:?E:?F （ 输入计算要素，见后 ）
C2÷6÷R－C4÷336÷R3+C6÷42240÷R5－R(1-COS（90C÷R÷∏）)→X
C－C3÷40÷R2＋C5÷3456÷R4－RSin（90C÷R÷∏）－C7÷599040÷R6→Y
90C÷∏÷R→B
(R＋X)tan(Abs(A))÷2)＋Y→T
(Abs(A)－2B) ∏R÷180＋2C→L
D－T→G
G＋C→H
G＋L÷2→I
G＋L－C→K
G＋L→M
A÷Abs(A) →S
F＋A÷2＋90S→U
(R＋X)÷cos(A÷2)→V
N＋V cos(U)→B
E＋V sin(U)→O
Lbl 1
?Z 输入待求点桩号
If Z≤G
Then
T＋G－Z→L
F＋180→V
F→U
Goto 2
IfEnd
If Z≤H
Then
Z－G→L
Goto 7
IfEend
If Z≤K
Then
F＋A÷2＋180＋90S＋(Z－I)×180S÷R÷∏→L
L＋90S→U
Goto 5
IfEend
If Z≤M
Then
M－Z→L
Goto 7
IfEnd
If Z＞M
Then
Z－M＋T→L
F＋A→V
V→U
Goto 2
IfEnd
Lbl 2
“X=”:N＋Lcos(V)→X ▲
“Y=”:E＋Lsin(V)→Y ▲
Goto 6
Lbl 3
“X=”:X＋Abs(J)cos(V)→X ▲
“Y=”:Y＋Abs(J)sin(V)→Y ▲
Goto 1
Lbl 4
“X=”:N＋Tcos(J)＋Vcos(Y)→X ▲
“Y=”:E＋Tsin(J)＋Vsin(Y)→Y ▲
Goto 6
Lbl 5
“X=”:B＋Rcos(L)→X ▲
“Y=”:O＋Rsin(L)→Y ▲
Goto 6
Lbl 7
L－L5÷(40 R2 C2)＋L9÷3456÷R4÷C4－L13÷599040÷（C6R6）→V
L3÷（6RC）－L7÷336÷（C3R3）＋L11÷42240÷（C5R5）→J
Stan-1(J÷V) →U
√（V2+J2）→V
If Z≤G+C
Then
Goto 8
IfEend
If Z≤M
Then
Goto 9
IfEend
Lbl 8
F+180→J
F+U→Y
F+90SL2÷(RC∏)→U
Goto 4
Lbl 9
F+A→J
J+180－U→Y
J－90SL2÷(RC∏) →U
Goto 4
Lbl 6
“BZ=”:?→J 开始计算边桩坐标，J为斜距，左侧输负，右侧输正
90→V 斜交角度，如果不是正交改为：？→V
If J=0 如果不计算边桩坐标J输0直接返回到桩号输入
Then
Goto 1
IfEnd
If J＜0
Then
U－180＋V→V
Goto 3
IfEnd
If J＞0
Then
U+V→V
Goto 3
IfEnd
要素说明：D—交点桩号，该交点为完整复合曲线的大交点，如果不满足条件需要转换
A— 转角值，路线右偏输正，左偏输负。
R—交点半径
C—缓和曲线长度（输入前确定缓和曲线是否完整C=A2/R,这里A为缓和曲线参数）
N—交点X坐标
E—交点Y坐标
F—计算方位角
Z—待求点桩号
其他中间过渡变量不用考虑。
本人给你个任意线元的计算程序吧，采用微积分编写的，适应于任意曲线元或直线元
好谢谢
道路曲线中边桩？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024