excute.m

随机神经网络工具箱

            iter  = last_iter;
            plot(err(1:iter));
            title('Average Mean Squared Error versus Iteration number');
            xlabel('Iteration number');
            ylabel('Average Mean Squared Error');
            axis([1 iter 0 max(err(1:iter))]); 
         else 
            close(PlotErrorFigHndl);
            excute('plot_error');
         end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     case 'resume'
         STOP_FLAG = 0;
         OVER_TRAINED = 0;
         WTS_FLAG_OLD = 1;
         WTS_FLAG_NEW = 0;
         
         qqq1 = 'Resume   :';
         qqq2 = '     Resume Training the RNN';  
         qqq = str2mat(qqq1,qqq2);
         display_message(qqq);    
         
         set(StopPBHndl,'Enable', 'on');
         set(ResumePBHndl,'Enable', 'off');
         
         set(PlotErrorPBHndl,'Enable', 'off');
         set(TrainPBHndl,'Enable', 'off');
         set(TestPBHndl,'Enable', 'off');
         set(ShowLogPBHndl,'Enable', 'off');
         set(RnnFigQuitPBHndl,'Enable', 'off');
         set(DemoPBHndl,'Enable', 'off');
         set(AboutPBHndl,'Enable', 'off');
         set(HelpPBHndl,'Enable', 'off');
         set(RNNTutorialPBHndl,'Enable', 'off');
         set(RNNTutorialPBHndl,'Enable', 'off');
         set(DrawNetPBHndl,'Enable', 'off');
         set(ResetPBHndl,'Enable', 'off');
         set(EditTestFilePBHndl,'Enable','off');
         
         set(StopMnuHndl,'Enable', 'on');
         set(ResumeMnuHndl,'Enable', 'off');
         
         set(PlotErrorMnuHndl,'Enable', 'off');
         set(TrainMnuHndl,'Enable', 'off');
         set(TestMnuHndl,'Enable', 'off');
         set(ShowLogMnuHndl,'Enable', 'off');
         set(RnnFigQuitMnuHndl,'Enable', 'off');
         set(DemoMnuHndl,'Enable', 'off');
         set(AboutMnuHndl,'Enable', 'off');
         set(HelpMnuHndl,'Enable', 'off');
         set(RNNTutorialMnuHndl,'Enable', 'off');
         set(RNNTutorialMnuHndl,'Enable', 'off');
         set(DrawNetMnuHndl,'Enable', 'off');
         set(ResetMnuHndl,'Enable', 'off');
         set(EditTestFileMnuHndl,'Enable','off');
         
         %prob1_trn;
         FileName1 = extract_name(Train_File_Name);
         eval(FileName1);
         prep_trn;
         prep_wts;
         
         train_rnn3;
   if(OVER_TRAINED == 1)
        if (MSEaveg <= Mse_Threshold) 
           message1 = sprintf('Current Iteration = %d',last_iter);
           message2 = sprintf('Stop Iteration = %d',N_Iterations);
           message3 = sprintf('Current MSE = %12.9f',MSEaveg);
           message4 = sprintf('Stop MSE = %12.9f',Mse_Threshold);
           message5 = sprintf('Can not Resume because Current MSE <= Stop MSE');
           message6 = sprintf('Try to reduce the value of the Stop MSE');
           message = str2mat(message1,message2,message3,message4,message5,message6);
           display_message(message);
        end
        if (iter >= N_Iterations -1) 
           message1 = sprintf('Current Iteration = %d',last_iter);
           message2 = sprintf('Stop Iteration = %d',N_Iterations);
           message3 = sprintf('Current MSE = %12.9f',MSEaveg);
           message4 = sprintf('Stop MSE = %12.9f',Mse_Threshold);
           message5 = sprintf('Can not Resume because Current Iteration ');
           message6 = (' >= Stop Iteration');
           message7 = sprintf('Try to reduce the value of the Stop ');
           message8 = ('Iteration Parameter');
           message = str2mat(message1,message2,message3,message4,message5,message6,...
                      message7,message8);
           display_message(message);
        end
        set(ResumePBHndl,'Enable', 'off'); 
      set(ResumeMnuHndl,'Enable', 'off');         
    end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%               
     case 'edit_test'   
        qqq1 = 'Edit   :'; 
        qqq2 = '       Edit the File Containig the Test Data';
        FileName4 = get(TestFileNameEdTHndl,'String');
        qqq3 = sprintf('---->  File (%s) is opened successfully',FileName4);
        qqq4 = sprintf('---->  Invalid Test File (%s)',FileName4);
        qqq5 = sprintf('---->  Error opening File (%s)',FileName4);
        qqq6 = '---->  Check the Test file name';    
        ff=check_tst_file(FileName4);
        
        if(ff == 1)
           qqq = str2mat(qqq1,qqq2,qqq3);
           display_message(qqq);    
           comm = sprintf('edit %s',FileName4);
           eval(comm);
        end
        if(ff == 0)
           qqq = str2mat(qqq1,qqq2,qqq4);
           display_message(qqq);    
           comm = sprintf('edit %s',FileName4);
           edit;
        end
        if(ff == -1)
           qqq = str2mat(qqq1,qqq2,qqq5,qqq6);
           display_message(qqq);    
           edit;
        end
        if(ff == -2)
           qqq = str2mat(qqq1,qqq2,qqq5,qqq6);
           display_message(qqq);    
           edit;
        end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%                
     case 'show_log'   
        qqq1 = 'Show   :'; 
        qqq2 = '       Show the Test Results';
        FileName4 = get(LogFileNameEdTHndl,'String');
        qqq3 = sprintf('---->  File (%s) is opened successfully',FileName4);
        qqq4 = sprintf('---->  Error opening File (%s)',FileName4);
        qqq5 = '---->  Check the Log file name';    
        ff = exist(FileName4);
        if(ff ~= 0)
           qqq = str2mat(qqq1,qqq2,qqq3);
           display_message(qqq);    
           comm = sprintf('edit %s',FileName4);
           eval(comm);
        else 
           qqq = str2mat(qqq1,qqq2,qqq4,qqq5);
           display_message(qqq);    
        end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     case 'test'
         set(ResumePBHndl,'Enable', 'off');
         set(TrainPBHndl,'Enable', 'off');
         set(PlotErrorPBHndl,'Enable', 'off');
         set(TrainPBHndl,'Enable', 'off');
         set(TestPBHndl,'Enable', 'off');
         set(RnnFigQuitPBHndl,'Enable', 'off');
         set(DemoPBHndl,'Enable', 'off');
         set(AboutPBHndl,'Enable', 'off');
         set(HelpPBHndl,'Enable', 'off');
         set(RNNTutorialPBHndl,'Enable', 'off');
         set(RNNTutorialPBHndl,'Enable', 'off');
         set(DrawNetPBHndl,'Enable', 'off');
         set(ResetPBHndl,'Enable', 'off');
         
         set(ResumeMnuHndl,'Enable', 'off');
         set(TrainMnuHndl,'Enable', 'off');
         set(PlotErrorMnuHndl,'Enable', 'off');
         set(TrainMnuHndl,'Enable', 'off');
         set(TestMnuHndl,'Enable', 'off');
         set(RnnFigQuitMnuHndl,'Enable', 'off');
         set(DemoMnuHndl,'Enable', 'off');
         set(AboutMnuHndl,'Enable', 'off');
         set(HelpMnuHndl,'Enable', 'off');
         set(RNNTutorialMnuHndl,'Enable', 'off');
         set(RNNTutorialMnuHndl,'Enable', 'off');
         set(DrawNetMnuHndl,'Enable', 'off');
         set(ResetMnuHndl,'Enable', 'off');
         
         
         qqq1 = 'Test   :';
         qqq2 =  '       Start Testing the RNN';  
         qqq = str2mat(qqq1,qqq2);
         display_message(qqq);    
         
         %prob1_tst;
         FileName1 = extract_name(Test_File_Name);
         eval(FileName1);
         prep_tst;
         prep_wts;
         
         test_rnn3;
         
         qqq1 = 'Test   :';
         qqq2 =  '       Start Testing the RNN';  
         qqq3 =  '       Testing Complete ...';
         qqq4 =  'See the results by clicking Show button';
         qqq = str2mat(qqq1,qqq2,qqq3,qqq4);
         display_message(qqq);    
         
         set(StopPBHndl,'Enable', 'off');         
         set(TrainPBHndl,'Enable', 'off');
         
         set(PlotErrorPBHndl,'Enable', 'on');
         set(TestPBHndl,'Enable', 'on');
         set(RnnFigQuitPBHndl,'Enable', 'on');
         set(DemoPBHndl,'Enable', 'on');
         set(AboutPBHndl,'Enable', 'on');
         set(HelpPBHndl,'Enable', 'on');
         set(RNNTutorialPBHndl,'Enable', 'on');
         set(DrawNetPBHndl,'Enable', 'on');
         set(ResetPBHndl,'Enable', 'on');
         set(ShowLogPBHndl,'Enable', 'on');         
         
         set(StopMnuHndl,'Enable', 'off');         
         set(TrainMnuHndl,'Enable', 'off');
         
         set(PlotErrorMnuHndl,'Enable', 'on');
         set(TestMnuHndl,'Enable', 'on');
         set(RnnFigQuitMnuHndl,'Enable', 'on');
         set(DemoMnuHndl,'Enable', 'on');
         set(AboutMnuHndl,'Enable', 'on');
         set(HelpMnuHndl,'Enable', 'on');
         set(RNNTutorialMnuHndl,'Enable', 'on');
         set(DrawNetMnuHndl,'Enable', 'on');
         set(ResetMnuHndl,'Enable', 'on');
         set(ShowLogMnuHndl,'Enable', 'on');         
         
         if(OVER_TRAINED == 1)
            set(ResumePBHndl,'Enable', 'off');
            set(ResumeMnuHndl,'Enable', 'off');            
            else
            set(ResumePBHndl,'Enable', 'on');
            set(ResumeMnuHndl,'Enable', 'on');               
         end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     case 'accept'
         qqq1 = 'Accept   :';
         qqq2 =  '       Accept All Options';  
         qqq = str2mat(qqq1,qqq2);
         display_message(qqq);    
         
    %%%%%%%%%%%%%%%%%%%%%%%%%%%
     FileName = get(NetFileNameEdTHndl,'String');
     Net_File_Name = FileName;   
     NET_FLAG = 0;
     NET_FLAG = check_net_file(FileName);
        if(NET_FLAG == 1)
           qqq1 = 'Network File : O.K';
        else
           qqq1 = 'Network File : ERR';
        end            
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%     
    
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%    
       FileName = get(TrainFileNameEdTHndl,'String');
       Train_File_Name = FileName;
       TRN_FLAG = 0;
       TRN_FLAG = check_trn_file(FileName);
       if(TRN_FLAG == 1)
           qqq2 = 'Train File : O.K';
       else
           qqq2 = 'Train File : ERR';
       end            
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        
    
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%    
       FileName = get(TestFileNameEdTHndl,'String');
       Test_File_Name = FileName ;      
       TST_FLAG = 0;
       TST_FLAG = check_tst_file(FileName);
       if(TST_FLAG == 1)
           qqq3 = 'Test File : O.K';
        else
           qqq3 = 'Test File : ERR';
       end            
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    if(WTS_FLAG == 1)
      if(WTS_FLAG_OLD == 0 & WTS_FLAG_NEW == 1)
         if(Save_Weights == 1)
            qqq4 = 'Weights File : O.K';
         else
            qqq4 = 'Weights File : O.K';
         end
      elseif(WTS_FLAG_OLD == 1 & WTS_FLAG_NEW == 0)
              qqq4 = 'Weights File : O.K';
      end
    else
              qqq4 = 'Weights File : ERR';
    end
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%    
    N_Total = N_Input + N_Hidden + N_Output;   %Total Number of Neurons
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        
           Hidden_Nodes_FLAG = 0;
           excute Hidden_Nodes;
             if(Hidden_Nodes_FLAG == 1)
                qqq5 = 'Hidden Nodes : O.K';
             else
                qqq5 = 'Hidden Nodes : ERR';
             end            
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%        
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
     Learning_Rate_FLAG = 0;
     excute Learning_Rate;
        if(Learning_Rate_FLAG == 1)
           qqq6 = 'Learning Rate : O.K';