跪求卡西欧5800的直线程序，要求可以输入测站坐标，直线起点、终点坐标，显示方位角和距离的程序，

CASIO fx-5800P ZXJS 直线放样程序

主程序名：ZXJS

Lb1 0
＂DK(QD)＂?A：＂X(QD)＂?B：＂Y(QD)＂?C：＂FWJ＂?F：＂X(ZJD)＂?D：＂Y(ZJD)＂?E↙
Lb1 1↙
＂JSDK＂?M：＂PL＂?N：＂PA＂?Z↙
“X=”:（B+（M-A）cos（F）+N×cos（F+Z）→X◢
“Y=”:（C+（M-A）sin（F）+N×sin（F+Z）→Y◢
Prog ＂ZBFS＂↙
Goto 1↙

子程序名：ZBFS

Lb1 0↙
＂X(ZJD)＂?D：＂Y(ZJD)＂?E： ＂X(QSD)＂?X:＂Y(QSD)＂ ?Y↙
If Y≥E: Then ＂FWJ=＂:90-tan-1（（X-D）÷（Y-E））→Z[3]◢
＂L=＂:√（（X-D）2+（Y-E）2） →Z[4]◢
Else ↙
＂FWJ=＂:270-tan-1（（X-D）÷（Y-E））→ Z[3]◢
＂L=＂:√（（X-D）2+（Y-E）2）→Z[4]◢
IfEnd↙

程序说明：
√=根号
2、2为平方

DK(QD)？ =起点里程
X(QD)？ =起点坐标X
Y(QD)？ =起点坐标Y
FWJ？=直线方位角（直线前进方向）
X(ZJD)？ =置镜点X坐标
Y(ZJD)？ =置镜点Y坐标
JSDK？=前视里程（待求点里程）
PL？ =偏距（-左 +右）
PA？ =偏角（垂直边桩为90°）

计算结果：
A=方位角（置镜至前视）
L=距离（置镜至前视）

ZXJS计算参数：

DK(QD)?=7700
X(QD)?=3374994.217
Y(QD)?=457760.803
FWJ?=152°09′41.68〃
X(ZJD)?=3374728.937
Y(ZJD)?=457900.897
JSDK?=7900
PL?=0
PA?=O
X=3374817.363
Y=457854.1989

ZBFS计算参数：
X(ZJD)?=123
Y(ZJD)?=234
X(QSD)?=456
Y(QSD)?=567
FWJ=45°00ˊ00”
L=470.93312

5800自带有2点间距离和坐标方位角计算的程序
不需要另行输入的
操作如下
第一行FMLA键→Dist&DirecAn进入即可
输入两点坐标
输出结果为距离和坐标方位角

以上 解答完毕
满意还望采纳

这个占内存小
1、坐标正算：
“XA”?A:“YA”?B
Lb1 0:“JULI”?C:“FWJ”?D
COS(D)×C+A→X
SIN(D)×C+B→Y
“XB=”:X◢
“YB=”:Y◢
Goto 0
注，XA,YA 为A 点坐标；JULI 为AB 两点的水平距离；FWJ 为A 点到B
点的方位角；XB,YB 为求出的B 点坐标。