兩點的距離、斜率及y截距(兩點式)

兩點的距離、斜率及y截距(兩點式)

更新日期: 2011年8月23日

程式一較短，但斜率及Y-截距的誤差會大一點，如果需要將答案以分數形式表示，建議使用程式二分數版。

程式一 (36 bytes，小數版)

?→A: ?→B: ?→X: ?→Y: Pol( A-X, B-Y◢

tan( Y→M◢ B - MA→C

程式二 (49 bytes，分數版)

?→A: ?→B: ?→X: ?→Y: A - X→X:

B - Y→Y: √( X² + Y²→D◢

Y┘X→M◢ B - MA→C

程式三由網友 tony200910041 提供

程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。

注意: 藍色的英文字為統計模式中的變數(按 xσn SHIFT S-VAR 1 2，yσn 按 SHIFT S-VAR 1 → 2，b 按 SHIFT S_VAR 1 → → 2，a 按SHIFT S_VAR 1 → → 1)

程式三 (34 bytes，小數版)

ClrStat: For 0→D To 1: ?→A: ?→B: A , B DT:

Next: Pol(2xσn , 2yσn◢ b◢ a

例題: A(3,-2) 及 B(4,1) 是兩點，求AB的距離、AB直線的斜率、Y-截距及直線方程。

按 Prog 1 再按 3 EXE -2 EXE 4 EXE 1 EXE (顯示距離為3.163) EXE (顯示斜率為3)

EXE (顯示y截距為 -11)

所以直線方程為 y = 3x - 11

程式一執行完成後，按 RCL X顯示兩點的距離，RCL M顯示直線的斜率，RCL C顯示直線的Y- 截距，RCL Y顯示直線與X-軸的夾角。

程式二執行完成後，按 RCL D顯示兩點的距離，RCL M顯示直線的斜率，RCL C顯示直線的Y- 截距。

程式三執行完成後，按 RCL X 顯示兩點的距離，SHIFT S_VAR 1 → → 2 EXE 顯示直線的斜率，SHIFT S_VAR 1 → → 1 EXE顯示直線的Y- 截距，RCL Y顯示直線與X-軸的夾角。