MATLAB: My Excel writing program does not stop

excel writing problemprogram continue to run for everprogram does not stop automaticallywriting arrays in excel file

I have two arrays of vextors V1 and V2. Array V1 has 100 row vectos and array V2 has 100 row vectors. i,e, each vector is a row vector and is of 4 elements, i.e.

V1=[1 2 3 4]

[2 1 4 1]

[15 8 0]

…………

upto 100

likewise

V2=[1 5 7 9]

[1.2 3.4 5.1 6.1]

[2.4 6.1 7.1 9.2]

…………………..

up to 100

I want to write vectors of array V1 in column A and vectors of array2 in column D of excel file.I have written the following program:

tt=1:100;
nn=0;
for n=1:100
            nn=nn+1;
            filename='myfile.xlsx';
            strV1=num2str(V1);
                   for jj=1:size(strV1,1)
                       xlswrite(filename, cellstr(strV1(jj,:)), 'Sheet1', ['A',num2str(jj)]);
                   end
             strV2=num2str(V2);
                   for ll=1:size(strV2,1)
                         xlswrite(filename, cellstr(strV2(ll,:)), 'Sheet1', ['D',num2str(ll)]);
                   end
end

The above program works well, but it does not stop by itself. it continues to run even if you allow it to run for several days. I want that when the task is finished, the program stops automatically because often I have to press CTRL+C several times, only then it stops and when I check the excel file, it has written those vectors already but still it continues to run. What is the problem with this program?

Best Answer

It this a success?

V1 = randi(100,5,5);
for i = 1:size(V1,1)
    vv1 = { num2str(V1(i,:)) };
    xlswrite('data.xls',vv1,'sheet1',['B' num2str(i+1)])
end

I gave an idea from here

Related Solutions

MATLAB: How to read several excel files (30 files) without repeating the program

Ara: Here is an example of how to use ActiveX with Excel (get xlswrite1 from the FileExchange, then save code below as ExcelDemo.m and run):

% Demo macro to write numerical arrays and cell arrays
% to two different worksheets in an Excel workbook file.
% Uses xlswrite1, available from the File Exchange
% http://www.mathworks.com/matlabcentral/fileexchange/10465-xlswrite1
function ExcelDemo
clc;
close all;
clear all;
fullFileName = GetXLFileName();
if isempty(fullFileName)
  % User clicked Cancel.

  return;
end
Excel = actxserver('Excel.Application');   
% Prepare proper filename extension.
% Get the Excel version because if it's version 11 (Excel 2003) the file extension should be .xls,
% but if it's 12.0 (Excel 2007) then we'll need to use an extension of .xlsx to avoid nag messages.
excelVersion = str2double(Excel.Version);
if excelVersion < 12
  excelExtension = '.xls';
else
  excelExtension = '.xlsx';
end
% Determine the proper format to save the files in.  It depends on the extension (Excel version).
switch excelExtension
  case '.xls' %xlExcel8 or xlWorkbookNormal
     xlFormat = -4143;
  case '.xlsb' %xlExcel12
     xlFormat = 50;
  case '.xlsx' %xlOpenXMLWorkbook
     xlFormat = 51;
  case '.xlsm' %xlOpenXMLWorkbookMacroEnabled 
     xlFormat = 52;
  otherwise
     xlFormat = -4143;
end
if ~exist(fullFileName, 'file')
  message = sprintf('I am going to create Excel workbook:\n\n%s\n\nClick OK to continue.\nClick Exit to exit this function', fullFileName);
  button = questdlg(message, 'Creating new workbook', 'OK', 'Exit', 'OK');
  drawnow;  % Refresh screen to get rid of dialog box remnants.
  if strcmpi(button, 'Exit')
    return;
  end
  % Add a new workbook.
  ExcelWorkbook = Excel.workbooks.Add;
  % Save this workbook we just created.
  ExcelWorkbook.SaveAs(fullFileName, xlFormat);
  ExcelWorkbook.Close(false);
else
  % Delete the existing file.
  delete(fullFileName);
end
% Open up the workbook named in the variable fullFileName.
invoke(Excel.Workbooks,'Open', fullFileName);
Excel.visible = true;
% Create some sample data.
myData = magic(20);
myOtherData = rand(10);
% Then run the new xlswrite1 function as many times as needed or in a loop 
% (for example xlswrite1(fullFileName, yourArrayName, XL_CellLocation). 
% IMPORTANT NOTE: the Excel object variable MUST exist in the routine that calls xlswrite1()
% and it MUST be named "Excel" EXACTLY because xlswrite1() has this line it it:
%   Excel = evalin('caller', 'Excel');
xlswrite1(fullFileName, myData, 'mySheetName', 'B2');
ca = {'Column Header 1', 'Column Header 2'};
xlswrite1(fullFileName, ca, 'mySheetName', 'B1');
ca = {'Row Header 1'; 'Row Header 2'};
xlswrite1(fullFileName, ca, 'mySheetName', 'A2');
xlswrite1(fullFileName, myOtherData, 'myOtherSheetName', 'B2');
% Delete all empty sheets in the active workbook.
DeleteEmptyExcelSheets(Excel);
% For fun, add comments to cells A1:A12 on sheet #1.
worksheets = Excel.sheets;
thisSheet = get(worksheets, 'Item', 1); 
for k = 1 : 12
  myComment = sprintf('Comment for cell A%d', k);
  cellReference = sprintf('A%d', k);
  theCell = thisSheet.Range(cellReference);
  theCell.AddComment(myComment);
end
% Then run the following code to close the activex server:
invoke(Excel.ActiveWorkbook,'Save');
Excel.Quit;
Excel.delete;
clear Excel;
message = sprintf('Done!\nThis Excel workbook has been created:\n%s', fullFileName);
msgbox(message);
% End of main function: ExcelDemo.m -----------------------------
%--------------------------------------------------------------------
% Gets the name of the workbook from the user.
function fullExcelFileName = GetXLFileName()
  fullExcelFileName = [];  % Default.
  % Ask user for a filename.
  FilterSpec = {'*.xls', 'Excel workbooks (*.xls)'; '*.*', 'All Files (*.*)'};
  DialogTitle = 'Save workbook file name';
  % Get the default filename.  Make sure it's in the folder where this m-file lives.
  % (If they run this file but the cd is another folder then pwd will show that folder, not this one.
  thisFile = mfilename('fullpath');
  [thisFolder, baseFileName, ext] = fileparts(thisFile);
  DefaultName = sprintf('%s/%s.xls', thisFolder, baseFileName);
  [fileName, specifiedFolder] = uiputfile(FilterSpec, DialogTitle, DefaultName);
  if fileName == 0
    % User clicked Cancel.
    return;
  end
  % Parse what they actually specified.
  [folder, baseFileName, ext] = fileparts(fileName);
  % Create the full filename, making sure it has a xls filename.
  fullExcelFileName = fullfile(specifiedFolder, [baseFileName '.xls']);
% --------------------------------------------------------------------
% DeleteEmptyExcelSheets: deletes all empty sheets in the active workbook.
% This function looped through all sheets and deletes those sheets that are
% empty. Can be used to clean a newly created xls-file after all results
% have been saved in it.
function DeleteEmptyExcelSheets(excelObject)
%   excelObject = actxserver('Excel.Application');
%   excelWorkbook = excelObject.workbooks.Open(fileName);
  worksheets = excelObject.sheets;
  sheetIdx = 1;
  sheetIdx2 = 1;
  numSheets = worksheets.Count;
  % Prevent beeps from sounding if we try to delete a non-empty worksheet.
  excelObject.EnableSound = false;
  % Loop over all sheets
  while sheetIdx2 <= numSheets
    % Saves the current number of sheets in the workbook
    temp = worksheets.count;
    % Check whether the current worksheet is the last one. As there always
    % need to be at least one worksheet in an xls-file the last sheet must
    % not be deleted.
    if or(sheetIdx>1,numSheets-sheetIdx2>0)
      % worksheets.Item(sheetIdx).UsedRange.Count is the number of used cells.
      % This will be 1 for an empty sheet.  It may also be one for certain other
      % cases but in those cases, it will beep and not actually delete the sheet.
      if worksheets.Item(sheetIdx).UsedRange.Count == 1
        worksheets.Item(sheetIdx).Delete;
      end
    end
    % Check whether the number of sheets has changed. If this is not the
    % case the counter "sheetIdx" is increased by one.
    if temp == worksheets.count;
      sheetIdx = sheetIdx + 1;
    end
    sheetIdx2 = sheetIdx2 + 1; % prevent endless loop...
  end
  excelObject.EnableSound = true;
  return;

MATLAB: How to initialize an iterative vectors in optimization

Thanks Mr Jan, your counsels help me to reduce some errors. But my real problem is increlentation of this command line which no mismatch of three columns of 'agent' with 'best_agent'

buffalo(i,:,:)=Lb+(Ub-Lb).*rand(size(Lb));%%%% (1) I want to have the matrix of 59*3 for each iteration as this follow line command when we replace this by
buffalo(:,:,:)=Lb+(Ub-Lb).*rand(size(Lb)); %%% (2) I obtain matrix 59*3 only for one iteration as i expect when i write my program
%%%% With line (1), i obtain mismatch matrix between 'agent' and 'w', 's' and 'best_agent'. I want to obtain the same dimensions between 'agent' and 'w', 's' and 'best_agent'
%%%% With line (2), i obtain the final result but i only have during this simulation one iteration
%%%% How can i declare well the command line (1) to obtain each matrix 59*3 for each iteration and how declare 'w','s' to have for each iteration 59*3?

You can try this code and have a good simulation but with only one iteration

function [best_agent,fmin]=Ago_algorithmv6(n)
clear
clc
if nargin<1,
% Number of agents (or different solutions)

n=10;
end
 
%% Change this if you want to get better results

 
% list of paramters 

 
m_k=0;
 
lp1=0.7;
lp2=0.5;
 
 
bg=0;
w_k=0;
 
 
 
N_IterTotal=2000;
nd=59; %% Simple bounds of the search domain

%beata function

%   [ x  ,   y , z ]

Lb = repmat([36.5, 50, 0.73], nd, 1); 
Ub = repmat([41.5, 396, 0.94], nd, 1);
% tuning = 20;

sum =0;
% overall_best = fobj(Lb+(Ub-Lb).*rand(size(Lb)));

for t=1:3;
 
% Random initial solutions

disp('agent(i,:)    bp_k(i)');
for i=1:n,
    for j=1:n
agent(:,:,:)=Lb(:,:)+(Ub(:,:)-Lb(:,:)).*rand(size(Lb));%%%%%%%% Please check this line
w_array(:,:,:)= agent(:,:,:);
bp_k(:,:,:)= agent(:,:,:);
 
 
 
disp(strcat(num2str(agent(:,:,:))));
    end
 
end
 
 
% Get the current best

fitness=10^10*ones(n,1);
 
[fmin,best_agent,agent,fitness]=get_best_agent(agent,agent,fitness);
N_iter=0;
%% Starting iterations

for iter=1:N_IterTotal,
    
     
       for jj=1:n
           
            s=agent(jj,:,:);
            w=w_array(jj,:,:);
            %disp(strcat(num2str(jj),'  -  agent before:[',num2str(s),']'));

            % Step2.    Update the agents exploitation using Equation  (3.1)

            s=s + lp1*(best_agent-w)*rand + lp2*(bp_k(jj,:,:)*rand - w);
            disp(strcat(num2str(jj),'  -  agent after :[',num2str(s),']=',num2str(fobj(s))));
            
            %Step2 Update the location of agents using (3.2):

            w =((w+ s ))/rand;
            
           
           
            % Apply simple bounds/limits

            s=simplebounds(s,Lb,Ub);
            w_array(jj,:,:)=w;
          %disp(strcat('agent :[',num2str(s),']'));

         % disp(strcat('w :[',num2str(w),']'));

            % Evaluating all new solutions



            
                        
            if fobj(s)< fobj(agent(jj,:,:))  %fnew<fitness(jj),

                 agent(jj,:,:)=s;
            end
 
            if fobj(s)<fobj(bp_k(jj,:,:)),
                 %agent(jj,:,:)=s;

                 bp_k(jj,:,:)=s;%fobj(bp_k(jj,:, :));

            end
            
            % find global best

            %fnew=fobj(s);

            if fobj(s)<fobj(best_agent),
                 %fitness(jj)=fnew;

                 best_agent=s;
            end            
            
          end
    
        % Find the current agent

        %[fmin,K]=min(fitness) ;

        %best_agent=agent(K,:);

        best_agent
        fmin= fobj(best_agent)
        
        
       
end %% End of iterations

 
 
end
 
%% --------------- All subfunctions are list below ------------------

 
 
%% Find the current best agent

function [fmin,best,agent,fitness]=get_best_agent(agent,newagent,fitness)
% Evaluating all new solutions
for j=1:size(agent,3),
    fnew=fobj(newagent(j,:));
    if fnew<=fitness(j),
       fitness(j)=fnew;
       agent(j,:)=newagent(j,:);
    end
end
% Find the current best

[fmin,K]=min(fitness) ;
best=agent(K,:);
 
 
 
% Application of simple constraints

function s=simplebounds(s,Lb,Ub)
  % Apply the lower bound

  ns_tmp=s;
  I=ns_tmp<Lb;
  ns_tmp(I)=Lb(I);
  
  % Apply the upper bounds 

  J=ns_tmp>Ub;
  ns_tmp(J)=Ub(J);
  % Update this new move 

  s=ns_tmp;
 
%% You can replace the following by your own functions

% A d-dimensional objective function

function f=fobj(x)
filename = 'D_test2.xlsx';
sheet = 1;
xlRange = 'A2:E60';
 
Mm = xlsread(filename, sheet, xlRange);
% 

% %Get the data

HB=(Mm(:,2));   %%% home ball 

P=(Mm(:,3));     %%% poney

QTU=(Mm(:,1));%%quantity unit

Rg=(Mm(:,4));
k=0.00981;
m=(Mm(:,5));
 
x1=QTU(:);
f =sum((x1 - x(2)./(k.*x(1).*x(3))).^ 2);%stu 

dbstop if error

i expect to have the same dimensions with this code below

function [best_agent,fmin]=Ago_algorithmv6(n)
clear
clc
if nargin<1,
% Number of agents (or different solutions)
n=10;
end
 
%% Change this if you want to get better results
 
% list of paramters 
 
m_k=0;
 
lp1=0.7;
lp2=0.5;
 
 
bg=0;
w_k=0;
 
 
 
N_IterTotal=2000;
nd=3; %% Simple bounds of the search domain
%beata function
%   [ x  ,   y , z ]
Lb = repmat([36.5, 50, 0.73], nd, 1); 
Ub = repmat([41.5, 396, 0.94], nd, 1);
% tuning = 20;
sum =0;
% overall_best = fobj(Lb+(Ub-Lb).*rand(size(Lb)));
for t=1:1;
 
% Random initial solutions
disp('agent(i,:)    bp_k(i)');
for i=1:n,
    for j=1:n
agent(i,:,:)=Lb(:,:)+(Ub(:,:)-Lb(:,:)).*rand(size(Lb));%%%%%%%% I can't obtain for each iteration matrix 59*3 as i expect but blocks of 10*59*3
w_array(i,:,:)= agent(i,:,:);
bp_k(i,:,:)= agent(i,:,:);
 
 
 
%%%%%disp(strcat(num2str(agent(i,:,:))));
    end
 
end
 
 
% Get the current best
fitness=10^10*ones(n,1);
 
[fmin,best_agent,agent,fitness]=get_best_agent(agent,agent,fitness);
N_iter=0;
%% Starting iterations
for iter=1:N_IterTotal,
    
     
       for jj=1:n
           
            s=agent(jj,:,:);%%%% I expect to have matrix 59*3 but i have matrix 1*177 
            w=w_array(jj,:,:);%%% I expect to have matrix 59*3 but i have matrix 1*177 
            %disp(strcat(num2str(jj),'  -  agent before:[',num2str(s),']'));
            % Step2.    Update the agents exploitation using Equation  (3.1)
            s=s + lp1*(best_agent-w)*rand + lp2*(bp_k(jj,:,:)*rand - w);%%%I expect to have matrix 59*3 but i have matrix 1*177 
            %%%%%disp(strcat(num2str(jj),'  -  agent after :[',num2str(s),']=',num2str(fobj(s))));
            
            %Step2 Update the location of agents using (3.2):
            w =((w+ s ))/rand;
            
           
           
            % Apply simple bounds/limits
            s=simplebounds(s,Lb,Ub);
            w_array(jj,:,:)=w;%%%%I expect to have matrix 59*3 but i have matrix 1*177 
          %disp(strcat('agent :[',num2str(s),']'));
         % disp(strcat('w :[',num2str(w),']'));
            % Evaluating all new solutions
            
                        
            if fobj(s)< fobj(agent(jj,:,:))  %fnew<fitness(jj),
                 agent(jj,:,:)=s;
            end
 
            if fobj(s)<fobj(bp_k(jj,:,:)),
                 %agent(jj,:,:)=s;
                 bp_k(jj,:,:)=s;%fobj(bp_k(jj,:, :));
            end
            
            % find global best
            %fnew=fobj(s);
            if fobj(s)<fobj(best_agent),
                 %fitness(jj)=fnew;
                 best_agent=s;
            end            
            
          end
    
        % Find the current agent
        %[fmin,K]=min(fitness) ;
        %best_agent=agent(K,:);
        best_agent
        fmin= fobj(best_agent)
        
        
       
end %% End of iterations
 
 
end
 
%% --------------- All subfunctions are list below ------------------
 
 
%% Find the current best agent
function [fmin,best,agent,fitness]=get_best_agent(agent,newagent,fitness)
% Evaluating all new solutions
for j=1:size(agent,3),
    fnew=fobj(newagent(j,:));
    if fnew<=fitness(j),
       fitness(j)=fnew;
       agent(j,:)=newagent(j,:);
    end
end
% Find the current best
[fmin,K]=min(fitness) ;
best=agent(K,:);
 
 
 
% Application of simple constraints
function s=simplebounds(s,Lb,Ub)
  % Apply the lower bound
  ns_tmp=s;
  I=ns_tmp<Lb;
  ns_tmp(I)=Lb(I);
  
  % Apply the upper bounds 
  J=ns_tmp>Ub;
  ns_tmp(J)=Ub(J);
  % Update this new move 
  s=ns_tmp;
 
%% You can replace the following by your own functions
% A d-dimensional objective function
function f=fobj(x)
filename = 'D_test2.xlsx';
sheet = 1;
xlRange = 'A2:E60';
 
Mm = xlsread(filename, sheet, xlRange);
% 
% %Get the data
HB=(Mm(:,2));   %%% home ball 
P=(Mm(:,3));     %%% poney
QTU=(Mm(:,1));%%quantity unit
Rg=(Mm(:,4));
k=0.00981;
m=(Mm(:,5));
 
x1=QTU(:);
f =sum((x1 - x(2)./(k.*x(1).*x(3))).^ 2);%stu

Please run the two code to understand my requests. You will see below the attach document for running this code.

Best Answer

Related Solutions

MATLAB: How to read several excel files (30 files) without repeating the program

MATLAB: How to initialize an iterative vectors in optimization

Related Question