- 在线时间
- 4 小时
- 最后登录
- 2017-8-7
- 注册时间
- 2010-3-30
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 55 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 21
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 9
- 主题
- 1
- 精华
- 0
- 分享
- 0
- 好友
- 4
升级   16.84% TA的每日心情 | 难过 2014-1-13 16:40 |
---|
签到天数: 4 天 [LV.2]偶尔看看I
 |
如题,我的问题如下:
$ i- x* a' ^5 I- ?6 l+ n/ x& P如果不赋值的话,- Clear["`*"];+ O6 M3 [2 [0 \\" x7 A; [. Z
- Solve[4 (a + b (c - 2 w)) (a + b (c + 4 c r - 2 (w + 2 r w))) + - ], f1 Q/ l, m
- 4 b (-a + b c) r (c - w)^2 (a +
' `0 E8 W; h( a! W# B! U5 T2 m - b (c + 2 c r - 2 (1 + r) w)) \[Rho]r == 0, w]
复制代码 这样会得到数值结果,看起来应该是1个实数根和两个复根,这个我比较满意,而且我也希望是这个结果。0 ~- ~) V' u3 v, k: i" h: Z, C! Q
然而,我赋值进去算过之后发现:- Clear["`*"];* W\" G# a5 L' l
- a = 10; b = 2; c = 3; r = 1; \[Rho]r = 1.5;
\" H( s# M$ Z. l y - Solve[4 (a + b (c - 2 w)) (a + b (c + 4 c r - 2 (w + 2 r w))) + ' I) W* ]) o- E# w3 N! ~6 W( D* Q! s
- 4 b (-a + b c) r (c - w)^2 (a +
0 F. @+ [! O3 G/ q; ^3 O4 U - b (c + 2 c r - 2 (1 + r) w)) \[Rho]r == 0, w]
复制代码 其结果如下:
! C) o3 p. ?7 E9 U! i9 ~3 X# Q1 R{{w -> 2.0793}, {w -> 3.28456}, {w -> 3.63614}}( s9 \0 M7 _1 m( u( X& Q
可以看到,分明是同样的一个方程,为什么赋值与不赋值得到的复根数量不一样呢?为什么赋值之后是3个实数根。太奇怪了,应该也是2个复根和一个实数根才对啊?$ k( e1 u' b) X4 u t' `1 @
还有,我将不赋值的情况所求得的那三个根分别赋值计算发现,这3个又都是复根了,连那个看上去是实数根(看上去是实数根是因为我在里面没有发现复根的标志i)的根都变成了复根了。真的太奇怪了。求高人解释为什么会出现这种情况呢?到底最后有几个复根和几个实数根啊?难道mathematica算的结果不可以令人相信吗?大家只要代入算一下就马上又结果,很快的。 |
zan
|