level 1
U = If[x^2 + z^2 \[GreaterSlantEqual] 1/4,
1/Sqrt[x^2 + (z - 1)^2] - 0.5/Sqrt[x^2 + (z - 0.25)^2], 0];
Ex = -\!\(
\*SubscriptBox[\(\[PartialD]\), \(x\)]U\); Ez = -\!\(
\*SubscriptBox[\(\[PartialD]\), \(z\)]U\);
StreamPlot[{Ex, Ez}, {x, -1.5, 1.5}, {z, -1, 2},
BaseStyle -> {FontFamily -> "", FontSize -> 16},
FrameLabel -> {"x/a", "z/a"}]
2019年01月21日 09点01分
5
为啥运行出来不对,有谁可以帮忙看一下?“
2019年01月21日 09点01分