Вот еще несколько примеров выполнения
Пример 4
Наконец, определяем дивергенцию. divergence[f_List,x_List]:=Inner[D,f ,x] Вот пример ее вычисления.
divergence [ {f [x, у, z], g [x, у, z], h [x, y, z] }, {x, y, z} ] h(0,1,0)[x, y, z] + g(0,0,1)[x, y, z]+f(1,0,0)[x, y, z]
Вот еще несколько примеров выполнения операций векторного анализа.
f=x^2+x y^2+x y z^2;g=Exp[xyz];h=Sin[xyz]; gradient[f, {x,y, z}] {2x+y2+yz2, 2xy +xz2, 2xyz} jacobian[{f,g,h}, {x,y, z} ] //MatrixForm
