24小时热门版块排行榜    

查看: 495  |  回复: 2

meng-erni

新虫 (初入文坛)

[求助] 请教如何提高matlab运行以下程序的效率

我们想对大型稀疏阵(比如3万阶以上)的进行scale , 即the matrix is scaled by row and column , 使得scaled 矩阵中的每个元素的模小于或等于1.  更精确的来说, 选取对角矩阵D1 与D2

\begin{equation*}
D1(i,j) = \left\{\begin{array}{ll}
\frac{1}{max|A(i,|} \text{if} i=j, \\
0 \text{if} i\neq j,
\end{array}\right.
\end{equation*}

\begin{equation*}
D2(i,j) = \left\{\begin{array}{ll}
\frac{1}{max|A(:,j|} \text{if} i=j, \\
0 \text{if} i\neq j,
\end{array}\right.
\end{equation*}


我们编写的是如下程序,
%%%%%
function [DA] = scaling(A)
        r1(i) = max(abs(A(i,));   % Row
        r2(i) = max(abs(A(:,i)));   % Column
        D1 = spdiags(sqrt(1./r1),0,n,n);
        D2 = spdiags(sqrt(1./r2),0,n,n);
        DA = A * D2;
        DA = D1 * DA;
%%%%%%%%%%%%%
但处理大维矩阵(>30000)运行时间非常慢.
如果改以上程序,能够提高运行效率???
请大虾们不惜赐教。。。谢谢了。。。非常感谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

meng-erni

新虫 (初入文坛)

我们想对大型稀疏阵(比如3万阶以上)的进行scale , 即the matrix is scaled by row and column , 使得scaled 矩阵中的每个元素的模小于或等于1.  更精确的来说, 选取对角矩阵D1 与D2






我们编写的是如下程序,
%%%%%
CODE:
function [DA] = scaling(A)

CODE:
r1(i) = max(abs(A(i,));   % Row

CODE:
r2(i) = max(abs(A(:,i)));   % Column

CODE:
D1 = spdiags(sqrt(1./r1),0,n,n);

CODE:
D2 = spdiags(sqrt(1./r2),0,n,n);

CODE:
  DA = A * D2;

CODE:
DA = D1 * DA;

%%%%%%%%%%%%%
但处理大维矩阵(>30000)运行时间非常慢.
如果改以上程序,能够提高运行效率???
请大虾们不惜赐教。。。谢谢了。。。非常感谢
2楼2013-12-12 22:15:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meng-erni

新虫 (初入文坛)

我们想对大型稀疏阵(比如3万阶以上)的进行scale , 即the matrix is scaled by row and column , 使得scaled 矩阵中的每个元素的模小于或等于1.  更精确的来说, 选取对角矩阵D1 与D2
} \text{if} i=j, \\
0 \text{if} i\neq j,
\end{array}\right.
\end{equation*} ">



使得中的每个元素的模小于或等于1.

我们编写的是如下程序,
%%%%%
CODE:
function [DA] = scaling(A)
         r1(i) = max(abs(A(i,));   % Row
         r2(i) = max(abs(A(:,i)));   % Column
         D1 = spdiags(sqrt(1./r1),0,n,n);
         D2 = spdiags(sqrt(1./r2),0,n,n);
         DA = A * D2;
         DA = D1 * DA;

%%%%%%%%%%%%%
但处理大维矩阵(>30000)运行时间非常慢.
如果改以上程序,能够提高运行效率???
请大虾们不惜赐教。。。谢谢了。。。非常感谢
3楼2013-12-12 22:28:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 meng-erni 的主题更新
信息提示
请填处理意见