24小时热门版块排行榜

返回列表

当前主题已经存档。

【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 foolishstar 的 5 个金币

foolishstar

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 2359.1
散金: 375
红花: 1
帖子: 266
在线: 92.9小时
虫号: 434695
注册: 2007-08-19
性别: GG
专业: 工程热物理相关交叉领域

[交流] 【求助，5金币】matlab赛德尔迭代求解非线性方程组

请见附件，运行结果出错（计算出来有复数结果）
有高手看看怎么回事吗？

[ Last edited by csfn on 2008-12-29 at 20:10 ]

回复此楼

» 猜你喜欢

有没有人能给点建议已经有5人回复
假如你的研究生提出不合理要求已经有12人回复
实验室接单子已经有7人回复
全日制（定向）博士已经有5人回复
萌生出自己或许不适合搞科研的想法，现在跑or等等看？已经有4人回复
Materials Today Chemistry审稿周期已经有4人回复
参与限项已经有3人回复
对氯苯硼酸纯化已经有3人回复
所感已经有4人回复
要不要辞职读博？已经有7人回复

1楼 2008-03-06 18:27:02

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

RE：matlab赛德尔迭代求解非线性方程组

★ ★ ★
lei0736(金币+3,VIP+0):多谢

可以参考一下C代码，（VC++6.0编译通过）

---------------------------------------------------------------------------------------
               b[1]=m_b21;
   b[2]=m_b22;
   b[3]=m_b23;
   a[1][1]=1;
   a[1][2]=0.5;
   a[1][3]=0.5;
   a[2][1]=0.5;
   a[2][2]=1;
   a[2][3]=0.5;
   a[3][1]=0.5;
   a[3][2]=0.5;
   a[3][3]=1;
   X2[0]=m_X20;
   Y2[0]=m_Y20;
   Z2[0]=m_Z20;
   wcx2=m_wcx2;
   X2[1]=(b[1]-a[1][2]*Y2[0]-a[1][3]*Z2[0])/a[1][1];
   Y2[1]=(b[2]-a[2][1]*X2[1]-a[2][3]*Z2[0])/a[2][2];
   Z2[1]=(b[3]-a[3][1]*X2[1]-a[3][2]*Y2[1])/a[3][3];
   i=1;
   while(fabs(X2-X2[i-1])+fabs(Y2-Y2[i-1])+fabs(Z2-Z2[i-1])>wcx2)
   {  i=i+1;
      X2=(b[1]-a[1][2]*Y2[i-1]-a[1][3]*Z2[i-1])/a[1][1];
      Y2=(b[2]-a[2][1]*X2-a[2][3]*Z2[i-1])/a[2][2];
      Z2=(b[3]-a[3][1]*X2-a[3][2]*Y2)/a[3][3];
   }
   m_x_2=X2;
   m_y_2=Y2;
   m_z_2=Z2;
   UpdateData(FALSE);

赞一下(10人)