作业帮有没有大神可以帮忙看一下这个mathematica程序,想把一系列曲线画在同一个图中.程序如下
来源：学生作业帮 编辑：拍题作业网作业帮 分类：数学作业 时间：2024/04/30 20:07:14
有没有大神可以帮忙看一下这个mathematica程序,想把一系列曲线画在同一个图中.程序如下
c=0.01;
a=5;
While[
c
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.
把很多个图放在一起,用show函数.
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.
把很多个图放在一起,用show函数.