Wolfram / 三次元勾配ベクトル場

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]

f:id:ti-nspire:20170403112444p:plain
参考: レクチャーズオンMathematica, pp.144-145