三次多項式的切線
作圖步驟：
- 畫一點 A
- 畫一多項式 f(x)
- 設 g(x) = (x - x(A)) f'(x) - f(x) + y(A)
- 求出 g(x) = 0 的根：s = {Root[g]}
- 畫切點：Zip[(x(P), f(x(P))), P, s]
- 畫切線：Zip[Tangent[P, f], P, s]