卡西欧5800计算器求中边桩程序。谢谢朋友们邮箱547075499@qq.com

　　卡西欧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—待求点桩号
　　其他中间过渡变量不用考虑。

本人给你个任意线元的计算程序吧，采用微积分编写的，适应于任意曲线元或直线元

好谢谢

道路曲线中边桩？