三次多項式的切線

作者：
羅驥韡 (Pegasus Roe)
作圖步驟：
  1. 畫一點 A
  2. 畫一多項式 f(x)
  3. 設 g(x) = (x - x(A)) f'(x) - f(x) + y(A)
  4. 求出 g(x) = 0 的根：s = {Root[g]}
  5. 畫切點：Zip[(x(P), f(x(P))), P, s]
  6. 畫切線：Zip[Tangent[P, f], P, s]
參考資料：