24小时热门版块排行榜    

查看: 1011  |  回复: 1

忘忧谷3987

银虫 (小有名气)

[求助] 有关非负矩阵的MATLAB程序优化

亲们:我编了一个有关非负矩阵分解算法的MATLAB程序,但是与别人的实验结果相比,迭代次数和时间比原始数据差很多,但是我不会优化程序,麻烦大神们给指导指导,非常感谢
function [W,iter_W,gradW]=QRPBB(V,Winit,H,maxiter,tol)
W=Winit;
alpha_max=1.0e+20;
alpha_min=1.0e-20;
M=5;
row=0.25;
gama=1.0e-4;
HHt=H*H';
VHt=V*H';
L=norm(HHt);
delta0=-sum(sum(H.*(W'*V)));
dQd0=sum(sum((H.*(W'*W*H))));
f0=delta0+0.5*dQd0;
for k=1:maxiter;
    gradW=W*HHt-VHt;%计算W的梯度;
    projgrad = norm(gradW(gradW<0 | W>0),'fro');%W的投影范数;
    if projgrad<tol;%终止条件的判断;
        break;
    end
    if k==1;
        alpha=1;%初始alpha
    end
    Z=max(0,W-gradW/L);%由构造的严格凸二次函数求出的封闭解;
    gradZ=Z*HHt-VHt;
    Zn=max(0,Z-alpha*gradZ);%为定义方向而定义的一个中间变量;
    D=Zn-Z;%迭代方向;
    delta=sum(sum(D.*gradZ));
    dQd=sum(sum((H.*(Z'*Z*H))));
    %搜步长
    if k==1;
        func(k)=f0 ;
    else
        func(k)=fn;
    end
    jj=min(k-1,M-1);
    fmax=max(func(k-jj:k));
  
    m=0;maxm=20;mk=0;
    while (m<maxm);
        fn=func(k)+row^m*delta+0.5*row^(2*m)*dQd;
        if(fn<=fmax+gama*row^m*delta),%判断目标函数下降;
            mk=m;%满足使的目标函数下降的最小正整数;
            break;
        end
        m=m+1;
    end
    lamda=row^mk;%更新lamda用于产生新的迭代点W;
    %迭代格式
    W=Z+lamda*D;
    %BB步更新方向D;
    s=D;
    y=D*HHt;
    b=sum(sum(s.*s));
    c=sum(sum(s.*y));
    alphaBB=b/c;
    if (c<=0),
        alpha=alpha_max;
    else
        alpha=min(alpha_max,max(alpha_min,alphaBB));
    end
    iter_W=k;
   
end
if k==maxiter,
    fprintf('Max k in QRPBB\n');
end
测试问题

clear
clc

l= 100;
n = 200;
r =15;
% V = rand(;l,n);
Winit= rand(l,r);
Hinit= rand(r,n);
V = abs(rand(l,r))*abs(rand(r,n));
tol=1.e-7;
maxtime=1000;
maxiter=5000;%最大迭代次数
tic
[W,iter_W,gradW]=QRPBB(V,Winit,H,maxiter,tol);
toc
希望可以教教我具体怎样优化一个程序,才能使得它的迭代次数和时间降低,谢谢!!
回复此楼

» 猜你喜欢

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

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

hyk2006

木虫 (小有名气)

2楼2018-02-06 11:06:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 忘忧谷3987 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 hKe7U1kad5Sg 2026-10-31 4/200 2026-11-02 03:50 by xzcv0Tehd8lQ
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 hKe7U1kad5Sg 2026-10-31 5/250 2026-11-02 03:39 by xzcv0Tehd8lQ
[硕博家园] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 hKe7U1kad5Sg 2026-10-31 8/400 2026-11-02 03:24 by xzcv0Tehd8lQ
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 xvJS1BYDxvBS 2026-10-31 7/350 2026-11-02 03:18 by xzcv0Tehd8lQ
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 xvJS1BYDxvBS 2026-10-31 12/600 2026-11-02 03:11 by xzcv0Tehd8lQ
[论文投稿] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 xvJS1BYDxvBS 2026-10-31 9/450 2026-11-02 03:11 by xzcv0Tehd8lQ
[硕博家园] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 1uaZt2kAZj2S 2026-10-30 16/800 2026-11-02 02:47 by xzcv0Tehd8lQ
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +7 X5bHxOULxFqb 2026-10-30 24/1200 2026-11-02 02:39 by xzcv0Tehd8lQ
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +6 X5bHxOULxFqb 2026-10-30 16/800 2026-11-02 02:34 by xzcv0Tehd8lQ
[基金申请] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 hKe7U1kad5Sg 2026-10-31 6/300 2026-11-01 22:11 by xzcv0Tehd8lQ
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 1uaZt2kAZj2S 2026-10-30 11/550 2026-11-01 21:35 by xzcv0Tehd8lQ
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 1uaZt2kAZj2S 2026-10-31 8/400 2026-11-01 16:58 by BCdvBAEpt3zm
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 1uaZt2kAZj2S 2026-10-30 15/750 2026-11-01 16:52 by BCdvBAEpt3zm
[论文投稿] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 13/650 2026-11-01 16:45 by BCdvBAEpt3zm
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 X5bHxOULxFqb 2026-10-30 22/1100 2026-11-01 16:35 by BCdvBAEpt3zm
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 xvJS1BYDxvBS 2026-10-31 5/250 2026-11-01 12:51 by BCdvBAEpt3zm
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 1uaZt2kAZj2S 2026-10-31 7/350 2026-11-01 12:40 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 1uaZt2kAZj2S 2026-10-30 17/850 2026-11-01 12:24 by BCdvBAEpt3zm
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 1uaZt2kAZj2S 2026-10-30 11/550 2026-11-01 12:24 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 X5bHxOULxFqb 2026-10-30 18/900 2026-11-01 12:11 by BCdvBAEpt3zm
信息提示
请填处理意见