登录论坛

查看完整版本 : [问题] 程序求助


qqinllei
2011-04-26, 16:42
\[Beta] = 0.2; \[CapitalGamma] = 20; a1 =
12.3026 (v^2 - \[CapitalGamma]) - 22.3729; b2 =
46.0501 (v^2 - \[CapitalGamma]) - 61.6727; a4 =
6.684 v Sqrt[\[Beta]];
For[v = 0, v < 6, v = v + 0.1,
z = Solve[w^4 - (a1 - a4^2 + b2) w^2 + a1 b2 == 0, w];
Print[v, " ", z]
Clear[z]
]


可是运行的结果却全一样……怎么回事呢?本人刚学习mathematica不懂的很多,请大家帮帮忙。谢谢了