有没有大神可以帮忙看一下这个mathematica程序,想把一系列曲线画在同一个图中.程序如下

题目

有没有大神可以帮忙看一下这个mathematica程序,想把一系列曲线画在同一个图中.程序如下
c=0.01;
a=5;
While[
c

答案

这样就可以了a=5;Show[Table[ContourPlot[(3*Sqrt[x^2 + z^2] - a^2/(Sqrt[x^2 + z^2]))*x^2/(x^2 + z^2) == c,{x,0,20},{z,0,20}],{c,0.01,1,0.1}]]mathematica做循环的时候最好使用table,少用while.把很多个图放在...