数学のブログ

合成微分律と勾配ベクトル 方向微分係数 点において関数が最も急速に増加する向き

続 解析入門 (原書第2版) (S.ラング(著)、松坂 和夫(翻訳)、片山 孝次(翻訳)、岩波書店)の第4章(合成微分律と勾配ベクトル)、3(方向微分係数)の練習問題4の解答を求めてみる。

a

g r a d f ( X ) = g r a d x X 3 2 = g r a d x ( x 2 + y 2 + z 2 ) 3 4
= 1 ( x 2 + y 2 + z 2 ) 3 2 ( ( x 2 + y 2 + z 2 ) 3 4 - x 3 4 ( x 2 + y 2 + z 2 ) - 1 4 2 x , - x 3 4 ( x 2 + y 2 + z 2 ) - 1 4 · 2 y - x 3 4 ( x 2 + y 2 + z 2 ) - 1 4 · 2 z )

よって問題の✗の 関数が与えられた点において最も急速に増加する向きは、

g r a d f ( 1 , - 1 , 2 )
= 1 6 3 2 ( 6 3 4 - 3 2 · 6 - 1 4 , 3 2 · 6 - 1 4 , - 3 · 6 - 1 4 )
= 1 2 · 6 7 4 ( 2 · 6 - 3 , 3 , - 6 )
= 3 2 · 6 1 4 ( 3 , 1 , - 2 )

b

g r a d f ( X ) = g r a d X 5 = g r a d ( x 2 + y 2 + z 2 + w 2 ) 5 2
= 5 2 ( x 2 + y 2 + z 2 + w 2 ) 3 2 ( 2 x , 2 y , 2 z , 2 w )
= 5 ( x 2 + y 2 + z 2 + w 2 ) 3 2 ( x , y , z , w )
g r a d f ( 1 , 2 , - 1 , 1 ) = 5 · 7 3 2 ( 1 , 2 , - 1 , 1 )

コード(Wolfram Language, Jupyter)

g[x_, y_, z_] := Evaluate[Grad[x / Norm[{x, y, z}]^(3/2), {x, y, z}]]
g[x, y, z]
Output
g[1, -1, 2]
Output
Simplify[%]
Output
g[x_, y_, z_, w_] := Evaluate[Grad[Norm[{x, y, z, w}]^2, {x, y, z, w}]]
g[1, 2, -1, 1]
Output
Simplify[%]
Output