数模论坛

 找回密码
 注-册-帐-号
搜索
热搜: 活动 交友 discuz
楼主: 宝宝

【编程学习】matlab实用程序百例

  [复制链接]
 楼主| 发表于 2004-6-1 18:52:35 | 显示全部楼层
<><FONT size=1><b><EM>XOR</EM></b></FONT></P><>function [x,st]=sor(a,b,n,x1)
D=zeros(n,n);
L=zeros(n,n);
U=zeros(n,n);
for i=1:n
    for j=1:n
        if j==i
            D(i,j)=a(i,j);
        end
        if j&lt;i
            L(i,j)=-a(i,j);
        end
        if j&gt;i
            U(i,j)=-a(i,j);
        end
    end
end
opt=oumiga(a);
Bsor=inv(D-opt*L)*[(1-opt)*D+opt*U];
fsor=opt*inv(D-opt*L)*b;
k=1;
x2=Bsor*x1+fsor;
e=x2-x1;
while norm(e,2)&gt;1e-6
    k=k+1;
    x1=x2;
    x2=Bsor*x1+fsor;
    e=x2-x1;
end
x=x2;
st=k;</P>
 楼主| 发表于 2004-6-6 05:36:31 | 显示全部楼层
<>为了大家学习,我整理出一个目录:</P>
<>1-32是:图形应用篇</P>
<>33-66是:界面设计篇</P>
<P>67-84是:图形处理篇</P>
<P>85-100是:数值分析篇</P>
发表于 2004-6-12 06:28:06 | 显示全部楼层
<>真作写这些程序很不错。</P>
发表于 2004-6-12 06:28:36 | 显示全部楼层
<>你写的这些程序很不错。</P>
发表于 2004-7-11 17:51:33 | 显示全部楼层
谢谢你啦!
发表于 2004-6-29 01:46:16 | 显示全部楼层
<>我也会!!!!!!!!!!!</P><>这算什么!!!!!!!!</P>
发表于 2004-7-1 21:22:25 | 显示全部楼层
不错的,但是好像对我们建模有用的只有那么几个呀[em03][em03]
发表于 2004-7-3 08:32:38 | 显示全部楼层
在第一页做个导读吧
发表于 2004-7-7 09:52:16 | 显示全部楼层
<>很好的东东!</P>[em01][em01][em01]
发表于 2004-7-11 23:01:00 | 显示全部楼层
<>我看不懂呀</P>[em06]
您需要登录后才可以回帖 登录 | 注-册-帐-号

本版积分规则

小黑屋|手机版|Archiver|数学建模网 ( 湘ICP备11011602号 )

GMT+8, 2024-5-11 13:40 , Processed in 0.051774 second(s), 13 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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