Mathematica プログラム例 ( f(x)= √x のグラフの x=1 における接線と法線 )

1. t[f_, a_][x_]:=f'[a](x-a)+f[a];n[f_, a_][x_]:=-(x-a)/f'[a]+f[a]
2. f[x_]:=Sqrt[x]
3. t[f,1][x] // Simplify
4. n[f,1][x] // Simplify
5. Plot[{f[x],t[f,1][x],n[f,1][x]},{x,0,2},AspectRatio -> Automatic]

計算結果

Mathematica プログラム例 ( f(x)= x^2 のグラフの接線群と法線群 )

1. t[f_, a_][x_]:=f'[a](x-a)+f[a];n[f_, a_][x_]:=-(x-a)/f'[a]+f[a]
2. f[x_]:=x^2
3. Plot[{f[x],Table[t[f,a][x], {a,-2.5,2.5,0.2}]} //Evaluate, {x,-5,5}, PlotRange -> {-2,6}, AspectRatio -> Automatic]
4. Plot[{f[x],Table[n[f,a][x], {a,-2.5,2.5,0.2}]} //Evaluate, {x,-5,5}, PlotRange -> {-2,6}, AspectRatio -> Automatic]

計算結果