稀疏表示算法

% % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
TS_Vector = dir（‘C:Documents and SettingsAdministrator桌面SRC	rain‘）;
No_Folders_In_Training_Set_Folder=length（TS_Vector）;
Class_Count = 1;
Dic_Count=1;
for k = 3:No_Folders_In_Training_Set_Folder
    Class_Folder = [‘C:Documents and SettingsAdministrator桌面SRC	rain‘ TS_Vector（k）.name‘‘];
    CF_Tensor = dir（Class_Folder）;
    flag=0;
   for p = 3:length（CF_Tensor）
       Tmp_Image_Path = Class_Folder; 
       Tmp_Image_Name = CF_Tensor（p）.name;
       if strcmp（Tmp_Image_Name‘Thumbs.db‘）
             flag=1;
             continue;
         end
       Tmp_Image_Path_Name = [Tmp_Image_PathTmp_Image_Name];
       img=imread（Tmp_Image_Path_Name）;
%        imshow（img）;
%        pause（0.2）;
       [rowline]=size（img）;
       img_new=img（1:10:row1:10:line:）;
       [row2line2]=size（img_new）;
       Dic（:Dic_Count）=img_new（:）;
       Dic_Count=Dic_Count+1;
   end  
   if flag==0
       No_Files_In_Class_Folder（Class_Count）=length（CF_Tensor）-2
   else
       No_Files_In_Class_Folder（Class_Count）=length（CF_Tensor）-3
   end
    Class_Count=Class_Count+1;
end
  Class_Count=Class_Count-1; 
  Dic_Count= Dic_Count-1;  
  Dic=double（Dic）;
  Dic=Dic/（diag（sqrt（diag（Dic‘*Dic））））; %字典
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%稀疏编码


 
correct_num=0;wrong_num=0;
  e=0.05;
  TS_Vector2 = dir（‘C:Documents and SettingsAdministrator桌面SRC	est‘）;
  No_Folders_In_Test_Set_Folder = length（TS_Vector2）;
for k = 1: No_Folders_In_Test_Set_Folder-2  
    class=k;
    Class_Folder = [‘C:Documents and SettingsAdministrator桌面SRC	est‘ TS_Vector2（k+2）.name‘‘];
    CF_Tensor= dir（Class_Folder）;
    num=0;
   for p = 3:length（CF_Tensor）
       Tmp_Image_Path = Class_Folder; 
       Tmp_Image_Name = CF_Tensor（p）.name;
        if strcmp（Tmp_Image_Name‘Thumbs.db‘）
            continue
         end
       Tmp_Image_Path_Name = [Tmp_Image_PathTmp_Image_Name];
       num=num+1;
       img=imread（Tmp_Image_Path_Name）;
%        imshow（img）;
%        pause（0.2）;
%        [rowline]=size（img）;
       img_new=img（1:10:row1:10:line:）;
       img_new=double（img_new（:））;
        r=img_new;        %残差
%         D=[];             %空字典
%         coeff=[];          %去0系数
%         pos_arr=[];         %位置
%         coeff2=zeros（Dic_Count1）;%完整系数
%         Dic2=Dic;
%         disp（[‘正在测试第‘num2str（k）‘类的第‘num2str（num）‘个样本！‘]）;
%         while sqrt（sum（r.^2））>0.005  
%            for col=1:Dic_Count
%                product（col）=abs（Dic2（:col）‘*r）;
%            end 
%                [val pos]=max（product）;
%                D=[DDic2（:pos）];
%                Dic2（:pos）=zeros（length（img_new）1）; 
%                coeff=（D‘*D）^（-1）*D‘*img_new;
%                r=img_new-D*coeff;
%                pos_arr=[pos_arr;pos];              
%        end
%             coeff2（pos_arr）=coeff;
            reconst=zeros

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      10318  2008-09-25 09:34  SRC3.pgm

     文件       5239  2012-09-29 09:56  SRCexperi.asv

     文件       5211  2012-09-29 15:53  SRCexperi.m

     文件       4155  2012-09-27 15:40  SRCface.asv

     文件       4130  2012-09-27 15:58  SRCface.m

     文件       4663  2012-09-27 15:27  SRCface2.asv

     文件       4658  2012-09-27 15:55  SRCface2.m

     文件    3227703  2011-09-01 14:02  SRCFDDLAR_EigenFace.mat

     文件       1620  2012-09-20 09:55  SRCFDDLdemo.asv

     文件       1632  2012-09-20 10:36  SRCFDDLdemo.m

     文件       2048  2011-09-02 09:54  SRCFDDLReadme.txt

     文件       1521  2006-12-19 06:13  SRCFDDLutiliesEigenface_f.m

     文件       6636  2011-09-01 14:54  SRCFDDLutiliesFDDL.m

     文件       2427  2011-08-31 23:48  SRCFDDLutiliesFDDL_Class_Energy.m

     文件       2100  2011-09-01 15:03  SRCFDDLutiliesFDDL_FDL_Energy.m

     文件       2975  2011-08-31 23:57  SRCFDDLutiliesFDDL_Gradient_Comp.m

     文件       7852  2011-09-01 15:05  SRCFDDLutiliesFDDL_INIC.m

     文件       1126  2011-08-31 22:25  SRCFDDLutiliesFDDL_INID.m

     文件       9189  2011-09-01 15:05  SRCFDDLutiliesFDDL_SpaCoef.m

     文件       3470  2011-09-01 00:13  SRCFDDLutiliesFDDL_UpdateDi.m

     文件       6226  2011-09-01 21:32  SRCFDDLutiliesIPM_SC.m

     文件        119  2009-09-24 21:20  SRCFDDLutiliessoft.m

     文件    3245884  2012-08-19 10:11  SRCFDDL.zip

     文件      10318  2008-09-25 09:34  SRCsave tests011.pgm

     文件      10318  2008-09-25 09:34  SRCsave tests012.pgm

     文件      10318  2008-09-25 09:34  SRCsave tests013.pgm

     文件      10318  2008-09-25 09:34  SRCsave tests014.pgm

     文件      10318  2008-09-25 09:34  SRCsave tests015.pgm

     文件      10318  2008-09-25 09:34  SRCsave tests021.pgm

     文件      10318  2008-09-25 09:34  SRCsave tests022.pgm

............此处省略1193个文件信息