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

更新日期: 2014年8月22日

程式一較短,但斜率及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: √( X2 + Y2→D◢

Y┘X→M◢ B - MA→C

 

程式三由網友 tony200910041 提供

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

程式三 (34 bytes,小數 fx-50FH版)

注意: 紅色的英文字為統計模式中的變數(按 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)

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

Next: Pol(2xσn , 2yσnba

 

程式三 (34 bytes,小數 fx-50FH II及fx-3650P II版)

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

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

Next: Pol(2σx , 2σyba

 

例題: 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-軸的夾角。

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集