函數的切線及法線方程 (Tangent and normal to a function)

程式由網友skwai提供。

更新日期: 2013年6月1日

注意: E是按 EXP。

程式(90 bytes，不包括綠色函數方程)

Lbl 0: ?→X: X→A: MM-: Goto 1:

Lbl 2: Ans→C: D→Y: B→D: C→B:

X + E - 4( 1 - 3M→X: M≠2M+ => Goto 1:

5E3( D - C→B◢ Y - AnsA◢ -B - 1◢

Y - AnsA◢ Goto 0: Lbl 1: X² - 2X: Goto 2

註1: 綠色的X² - 2X是函數方程(變數是X)，若果想計算其它方程，只要修改綠色的部份。

註2: 函數只可以有一個因變數的函數。

例題: 求函數 f(x)=x² - 2x 曲線，於 (-1, 3) 的切線方程及法線方程。

按 Prog 1 再按 -1 EXE 3 EXE (顯示 - 4) EXE (顯示 - 1，即切線方程為 y= - 4x - 1)

EXE (顯示 0.25) EXE (顯示 3.25，即法線方程為y= 0.25x +3.25)

計算完結後按 AC 終止程式，否則再按EXE輸入其它點的x-座標。