求fx5800计算器 点到直线距离的程序!知道的麻烦说一下

这是坐标反算偏距（左+，右-）的程序，我用的是海伦算法，缺点：P点枝搭为线上任意点时，

本程序“猛岁拿PIAN

JU“（偏距）以后代码失效，如有不同算法者，与我联系，共同研究。

“X1”?→X↙

“Y1”?→Y↙

“X2”?→A↙

“Y2”?→B↙

Pol((A-X),(B-Y))↙

If

J<0:

Then

J+360→J:

Else

J→J

:

IfEnd

↙

I◢

得出两点间距离

J►DMS◢

得出两点间方位雀脊角（度分秒）

”PIAN

JU:0”?

→V↙

要计算偏距，请按“0”，返回反算请按0以外任意数

If

A≠0:Then

Goto

A:

Else

Lbl

B

:

IfEnd↙

“PX”?→C↙

“PY”?→D↙

√((A-C)^2+(B-D)^2)→F↙

√((C-X)^2+(D-Y)^2)→G↙

(I+F+G)/2→S↙

√(S*(S-I)*(S-F)*(S-G))

→M↙

M/I*2→W↙

Cos-1((I^2+F^2-G^2)/(2I*F))→O↙

O►DMS↙

用反余弦算出夹角度分秒但不显示

I-W/(tan(O))

→T◢

得出直线到垂足的距离（加入正算得出垂足标）

(C-(X+(T*cos(J))))/cos(J-90)◢

得出点到直线垂直距离（（左+，右-））

Goto

B

使用5800自带的公式即可计算：

根据一已知直线（两点坐标）和直线外一物银点，求点到直线距离和垂足坐标

如图

调用方法是：FMLA键，选项2：Built-in，倒数第二个方程式：V-Line&Dist

依次输入直线上两点的Y坐标：YA、YB；X坐标：XA、拍蚂滑XB；直线外一点的坐标YC、XC

重复按EXE键，袭腊系统自动计算出垂足的坐标x、y，还有距离l

---