4800程序帮帮忙~~~~~

那位大侠帮我，程序输入了，就是用不了！电话13600907721



ZBJS（fx4800-4850）
A“XA”：B“YB”：C“CA”：D“RA”：E“RB”：F“DKA”：G“DKB”换行
Lb1 1:｛H，O，R｝换行
H“DKI”：O“DL”：R“DR” 换行
Lb1 0 换行
P=（E－D）÷Abs（G－F）换行
Abs（H－F）＞Abs（G－F）=>Goto 3：≠=>Q= Abs（H－F） 换行
I=P×Q 换行
J=C＋（I＋2D）×Q×90÷π 换行
M=C＋（I÷8＋2D）×Q×45÷（4π）换行
N=C＋（3I÷8＋2D）×Q×135÷（4π）换行
U=C＋（5I÷8＋2D）×Q×225÷（4π）换行
V=C＋（7I÷8＋2D）×Q×315÷（4π）换行
K=C＋（I÷4＋2D）×Q×45÷（2π）换行
W=C＋（I÷2＋2D）×Q×45÷π 换行
Z=C＋（3I÷4＋2D）×Q×135÷（2π）换行
X=A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosW＋cosZ）＋cosJ）换行
Y=B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinW＋sinZ）＋sinJ）换行
U=X＋O×cos（J－90） 换行
V=Y＋O×sin（J－90） 换行
W=X＋R×cos（J＋90） 换行
Z=Y＋R×sin（J＋90） 换行
H“DKI=” ◢ fx4850输入改为 “DKI=”： H ◢
X“X=” ◢ fx4850输入改为 “X=”：X ◢
Y“Y=” ◢ fx4850输入改为 “Y=”：Y ◢
U“XL=” ◢ fx4850输入改为 “XL=”：U◢
V“YL=” ◢ fx4850输入改为 “YL=”：V◢
W“XR=” ◢ fx4850输入改为 “XR=”：W◢
Z“YR=” ◢ fx4850输入改为 “YR=”：Z◢
Goto 1 换行
Lb1 3 换行
A=X：B=Y：D=E：F=G：C=J 换行
｛E，G｝ 换行
E“RB”：G“DKB” 换行
E≠0=>E=1÷E： 换行
Goto 0

计算器显示及输入方法：
XA？线型起算点的X坐标。
YA？线型起算点的Y坐标。
CA？线型起算点切线方位角。
RA？第一曲线曲率，直线输入1/E50。匝道及螺旋线时输入上段曲线半径(1/R)左负右正。
RB？第二曲线曲率，输入所要计算曲线的半径(1/R)，左传为负右转为正，直线输1/E50（E输入就是按“EXP”键） 。
DKA？线型的起点里程。
DKB？线型的终点里程。
DKI？要求点的里程。
DL？输入左边桩的距离。可以0输入。
DR？输入右边桩的距离。可以0输入。
DKI= 显示要求点里程。
X= 显示要求里程点的X坐标。
Y= 显示要求里程点的Y坐标。
XL= 显示要求里程点的左边桩X坐标。
YL= 显示要求里程点的左边桩Y坐标
XR= 显示要求里程点的右边桩X坐标。
YR= 显示要求里程点的右边桩Y坐标
说明：
1、DKI？再次出现输入下一个要求的点的桩号，如果输入数据大于DKB？所输入的数据，则会再次出现RB？这时输入下一段线型的半径，直线输0，DKB？也会随后出现，这次出现输入下一段线型的终点里程桩号。则可以正常运算其它桩号点的坐标。
2、本程序可以反复计算下一线型。
3、上述说明中线型是指曲线上的某一段，例如直缓点到缓圆点则为一段的线型。