多変数の関数 反復偏微分 3次の偏導関数、順序、指数関数、三角関数(正弦と余弦と逆正接)、累乗、合成関数の微分
続 解析入門 (原書第2版) (S.ラング(著)、松坂 和夫(翻訳)、片山 孝次(翻訳)、岩波書店)の第3章(多変数の関数)、4(反復偏微分)の練習問題11、12、13、14、15、16、17、18.の解答を求めてみる。
11
12
13
14
15
16
17
18
コード(Wolfram Language, Jupyter)
fs = {x y z, x^2 y z, Exp[x y z], Sin[x y z], Cos[x + y + z],
Sin[x+y+z], (x^2+y^2+z^2)^(-1), x^3 y^2 z +2(x+y+z)}
Column[
Table[
{f, D[f, x, y, z], D[f, z, y, x],
D[f, x, y, z] == D[f, x, z, y] == D[f, y, x, z] == D[f, y, z, x] == D[f, z, x, y] == D[f, z, y, x]},
{f, fs}
]
]
Column[
Table[
{f, Factor[D[f, x, y, z]], D[f, z, y, x],
D[f, x, y, z] == D[f, x, z, y] == D[f, y, x, z] == D[f, y, z, x] == D[f, z, x, y] == D[f, z, y, x]},
{f, fs}
]
]
TraditionalForm[%]
Manipulate[
Plot3D[x y z, {x, -5, 5}, {y, -5, 5}, PlotRange -> {-5, 5}],
{z, -5, 5}
]