电偶极子是两个正电子吗?
F[x_,y_] := ArcTan[y/(x + 5)] - ArcTan[y/(x - 5)]
StreamPlot[
Evaluate[{D[F[x,y],x],D[F[x,y],y]}],{x,-10,10},{y,-10,10}]
怎么用mathematica生成电偶极子电场图像?
电偶极子是两个正电子吗?
F[x_,y_] := ArcTan[y/(x + 5)] - ArcTan[y/(x - 5)]
StreamPlot[
Evaluate[{D[F[x,y],x],D[F[x,y],y]}],{x,-10,10},{y,-10,10}]