Section 16.5: Curl and Divergence
MAT329, Fall, 2015
Andy Long

#7, p. 1121

Clear[F]
F[x_,y_,z_]:={E^x Sin[y],E^y Sin[z],E^z Sin[x]}
VectorPlot3D[F[x,y,z],{x,-1,1},{y,-1,1},{z,-1,1}]

Needs["VectorAnalysis`"]
v:={E^Xx  Sin[Yy],E^Yy  Sin[Zz],E^Zz  Sin[Xx]}
Div[v]
Curl[v]

#15

Needs["VectorAnalysis`"]
v:={3 Xx Yy^2 Zz^3,2 Xx^2 Yy Zz^3,3 Xx^2 Yy^2 Zz^2}
Div[v]
Curl[v]