電流素片

関数の定義

r[x_, y_, z_]:=(Sqrt[(x^2)+(y^2)+(z^2)])

min = -1;
max= 1;

電流素片がつくる磁場

F1=VectorPlot3D[{((-y)/((r[x,y,z])^2)),(x/((r[x,y,z])^2)),0},{x,min,max},{y,min,max},{z,min,max}, PerformanceGoal->"Quality",VectorStyle->"Arrow3D",VectorScale->{Automatic,Scaled[0.5]},VectorPoints->5,Ticks->None]

F2=Graphics3D[{Red,Arrowheads[0.12],Arrow[Tube[{{0,0,-0.5},{0,0,0.5}},0.1]]}]

Show[F1,F2]