시컨트와 접선의 시각화
DifferenceQuotient를 사용하여 시컨트 라인 
와 
간의 함수 
를 정의합니다.
In[1]:=
f[x_] := 10 Exp[-((x^2 - x)/4)] Sin[2 x];In[2]:=
g[h_, b_][x_] =
f[b] + (DifferenceQuotient[f[x], {x, h}] /. (x -> b)) (x - b);기반점이 이동함에 따라 시컨트가 어떻게 변화하는지 시각화합니다. 그러나 모든 기반점에서 시컨트는 
에서 접선으로 다가옵니다.
In[3]:=
Manipulate[
Plot[{f[x], g[h, b][x]}, {x, -3, 3}, PlotRange -> 12,
ImageSize -> Medium,
Epilog -> {AbsolutePointSize[7],
Point[{{b, f[b]}, {b + h, f[b + h]}}]}], {{b, 0}, -2, 2,
Appearance -> "Labeled"}, {{h, 1}, -1, 1, Appearance -> "Labeled"}]
