数学建模社区-数学中国

标题: matlab程序 [打印本页]

---

作者: tianpengyun    时间: 2013-8-21 20:52
标题: matlab程序
急求程序全集，请哪位大神给我发些？？？？

---

作者: gt93    时间: 2013-8-21 23:28

1. fid=fopen('txt3.txt','r');
   
2. n1=6;n2=3; %准则层和方案层
   
3. a=[];
   
4. for i=1:n1
   
5. tmp=str2num(fgetl(fid));
   
6. a=[a;tmp]; %读准则层判断矩阵
   
7. end
   
8. for i=1:n1
   
9. str1=char(['b',int2str(i),'=[];']);
   
10. str2=char(['b',int2str(i),'=[b',int2str(i),';tmp];']);
    
11. eval(str1);
    
12. for j=1:n2
    
13. tmp=str2num(fgetl(fid));
    
14. eval(str2); %读方案层的判断矩阵
    
15. end
    
16. end
    
17. ri=[0,0,0.58,0.90,1.12,1.24,1.32,1.41,1.45]; %一致性指标
    
18. [x,y]=eig(a);
    
19. lamda=max(diag(y));
    
20. num=find(diag(y)==lamda);
    
21. w0=x(:,num)/sum(x(:,num));
    
22. cr0=(lamda-n1)/(n1-1)/ri(n1)
    
23. for i=1:n1
    
24. [x,y]=eig(eval(char(['b',int2str(i)])));
    
25. lamda=max(diag(y));
    
26. num=find(diag(y)==lamda);
    
27. w1(:,i)=x(:,num)/sum(x(:,num));
    
28. cr1(i)=(lamda-n2)/(n2-1)/ri(n2);
    
29. end
    
30. cr1, ts=w1*w0, cr=cr1*w0

复制代码

---

作者: magic2728    时间: 2013-8-23 00:43
希望对你有帮助！

matlab常用算法程序集.rar

2013-8-23 00:43 上传

点击文件名下载附件

下载积分: 体力 -2 点

2.71 MB, 下载次数: 7, 下载积分: 体力 -2 点

---

作者: tianpengyun    时间: 2013-8-23 07:52
谢谢你们！！！！！！！！！！！

---

作者: 1269977095    时间: 2013-10-1 22:22
大哥，怎么才能增加体力？

---

作者: tianpengyun    时间: 2013-10-1 22:42
签到加回复

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5