24小时热门版块排行榜    

查看: 250  |  回复: 0

hxgxtu

木虫 (小有名气)

[交流] mathematica 运行问题

各位虫友,有使用mathematica的吗。
我试着写了一个求解线性方程组的语句,但是问题就在这,不管我怎么变换,第一次运算出来的结果不对,但再重新运行一下就出正确的结果,这是肿么个原因呢,贴出语句在下面,我用的是7.0纯英文版的。
注:每重新对M赋值一次都会是第一次运行数据不对,再运行才对
Clear[AA, BB, M]
M = 2
AA = Array[a, {2 M + 1, 2 M + 1}]
BB = Array[b, {2 M + 1}]
Table[a[i, j] = 2*(j - M - 1)^(2*(i - 1))/(2*(i - 1))!, {i, 1,
  2 M + 1}, {j, M + 2, 2 M + 1}]
Table[a[i, j] = a[i - 1, M + 1 + j], {i, 2, 2 M + 1}, {j, 1, M}]
Table[a[1, j] = 0, {j, 1, M}]
a[1, M + 1] = 1
Table[a[i, M + 1] = 0, {i, 2, 2 M + 1}]
Table[b = 0, {i, 1, 2 M + 1}]
b[2] = -1
LinearSolve[AA, BB]
问题已经解决,呵呵,多谢各位劳神

[ Last edited by hxgxtu on 2011-12-8 at 21:24 ]
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 hxgxtu 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见