声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1347|回复: 2

[共享资源] [求助]ABS算法 ,请指点一、二

[复制链接]
发表于 2006-5-5 00:32 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
刚编的程序,还是很不完整的,希望借助大家的力量最终能够完成,请帮我看看,谢谢!!<BR>这是原题

                               
登录/注册后可看大图
<BR>

                               
登录/注册后可看大图
<BR>

                               
登录/注册后可看大图
程序如下:clear
x=input('输入x1的值')
h=input('输入h1的值')
a=input('输入方程的系数矩阵A')
b=input('输入方程的常熟矩阵B')
m=input('输入迭代次数')
i=1
iflag=0
syms xi t w p hi
t=a'*x-b%表示不出来一个带x矩阵和实数阵相减
s=h*a
while s~=0
z=input('输入Z')
break
while z'*h*a=0
z=input('重新输入Z')
break
end
p=h'*z
i=i+1
while i~=m
xi=x-(t/(a'*p))*p%倒数不会,t也表示不出来
end
%应该有一个循环,不知道怎么弄(好像还少一个x=xi)
fprintf('X是Ax=b的一个解'),x
w=1/(h*a)
h=h-h*a*w'*h
i=i+1
%不知道如何转到第2步
end
if t==0
xi=x
hi=h
iflag=iflag+1
while i<m
i=i+1
%转到第二步,不会
end
fprintf('X是Ax=b的一个解'),x
else iflag=-i
break
fprinf('方程组Ax=b不相容')
end
h=h
iflag=iflag+1
if i<m
i=i+1
else fprintf('X是Ax=b的一个解'),x
end
else iflag=-i
break
fprinf('方程组Ax=b不相容')
end
不论是什么批评指正,都欢迎,再次谢谢大家的热心帮助!!

[ 本帖最后由 lxq 于 2007-4-26 18:12 编辑 ]
回复
分享到:

使用道具 举报

发表于 2006-5-10 15:48 | 显示全部楼层

回复:(anitagyt)[求助]ABS算法 ,请指点一、二

不错
发表于 2006-6-9 19:15 | 显示全部楼层

偶也是做ABS算法的!

希望可以讨论!QQ:386079617,540263301!编过简单的Huang算法,隐式LU,LX算法,希望跟你讨论!
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-14 08:09 , Processed in 0.062001 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表