⑴ 跪求casio5800p带缓和曲线圆曲线任意坐标计算程序（求简单实用的）

[正确] CASIO fx-5800P QXZB曲线坐标计算
CASIO fx-5800P QXZB程序可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：
该程序适用于计算器 CASIO fx-5800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。

1、DK(JD)？输入交点桩号2、X(JD)？ 输入交点坐标X3、Y(JD)？ 输入交点坐标Y4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致)5、T2？ 输入第二切线长(如果只有一条切线两者都输入一致)6、FWJ？输入直线方位角(ZH→JD)7、A？ 输入转角：左转为负，右转为正
8、R？ 输入圆曲线半径
9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)10、LY？输入圆曲线长(L-LS1-LS2)11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)
12、X(ZJD)？输入置镜点坐标X13、Y(ZJD)？输入置镜点坐标Y14、JSDK？输入前视点里程15、PL？输入偏距16、PA？输入偏角 程序下载地址：http://www.fffsky.com/blog/post/QXZB-5800.html

⑵ 求CASIO5800P圆曲线放样程序，曲线、缓和曲线都能放的

其实只要有算坐标的就行了,只要输入点的坐标值,其他的在全站仪里回是自动显示的.如果不是全站答仪用的,倒是要自己再进行进一步计算.
我的空间里有一套,自己用着还行,你自己看看.
中边桩坐标计算程序：

ZBJS主程序

X:Y（这是立仪点坐标）:D“X1”：E“Y1”（前一交点坐标）：F“X2”：G“Y2”（曲线所在交点坐标）：H“X3”：V“Y3”（后一交点坐标）： L“LS”（缓和曲线长）：W“J”（所在曲线交点桩号）

⑶ 求一套卡西欧5800计算器两头是直线中间带圆曲线和缓和曲线的程序

本程序由4800程序改编而成，网上有5800积分通用公式，但由坐标反算里程及边距时很慢，本程序大大提高了反算速度。1. 主程序(TYQXJS)
Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙
1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1： Goto2：↙
Lbl 1:? Z： Abs(S-O) →W：Prog "SUB1"： "XS="：X◢
"YS="：Y◢F-90→F： “FS=”：F▲DMS◢：Goto4↙
Lbl 2：？X： ？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙

2. 正算子程序(SUB1)
0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW
(C+FWD))+Acos(G+QEMW(C+MWD))) →X： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：
G+QEW(C+WD)+90→F： X+Zcos（F）→X： Y+Zsin（F）→Y
2. 反算子程序(SUB2)
G-90→T： Abs((Y-V)cosT-(X-U)sinT) →W： 0→Z：Lbl 0：Prog "SUB1"：
T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：Abs（Z）<1E-6=>Goto1： W=W+Z：Goto 0Δ←┘
Lbl 1：Z=0：Prog "SUB1"： (J-Y)÷sin（F）→Z
SUB0 数据库子程序
Goto1↙ 同时保存多个曲线时的指针
Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙
Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd
………………………..
为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
三、使用说明
1、规定
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，
Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右
侧时，Z取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆
弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45
次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半
径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的
值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等
于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

2、输入与显示说明
输入部分：
1. SZ => XY
2. XY = > SZ
N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。
S ？ 正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对， Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)
X ？反算时所求点的X坐标
Y ？反算时所求点的Y坐标
显示部分：
XS=××× 正算时，计算得出的所求点的X坐标
YS=××× 正算时，计算得出的所求点的Y坐标
FS=××× 正算时，所求点对应的中线点的切线方位角
S=××× 反算时，计算得出的所求点的里程
Z=××× 反算时，计算得出的所求点的边距
注：。