f=x^2+y^2+z^2; v=VectorPlot3D[gradf,{x,-1,1},{y,-1,1},{z,-1,1}, VectorStyle -> "Segment"]; c=ContourPlot3D[f,{x,-1,1},{y,-1,1},{z,-1,1},Mesh->None,ContourStyle->Opacity[0.5,Blue]]; Show[v,c]
参考: レクチャーズオンMathematica, pp.144-145
f=x^2+y^2+z^2; v=VectorPlot3D[gradf,{x,-1,1},{y,-1,1},{z,-1,1}, VectorStyle -> "Segment"]; c=ContourPlot3D[f,{x,-1,1},{y,-1,1},{z,-1,1},Mesh->None,ContourStyle->Opacity[0.5,Blue]]; Show[v,c]
参考: レクチャーズオンMathematica, pp.144-145