);<br/>end<br/>W=zeros(length(A),1);<br/>for i=1:length(A)<br/> W(i)=b(i)/sum(b); <font style="BACKGROUND-COLOR: #d52bb3;">%W即为特征根</font><br/>end<br/><br/>c=A*W;d=0;<br/>for i=1:length(A)<br/> d=d+c(i)/W(i);<br/>end<br/>r=1/length(A)*d <font style="BACKGROUND-COLOR: #bb44bb;"> %r即为特征根</font>






| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |