savematrix.m

vTools is a toolbox for Matlab 5.3 developed within the Department of Electrical Systems and A

function savematrix(row,column,label,varargin)
%SAVE MATRIX (general function) 
%
%  savematrix(row,column,label,pos_matrix,pos_flag,pos_flags)
%
% row         = # righe dela matrice
% column      = # colonne della matrice
% label       = char che indica il nome della matrice per poter 
%               fare i controlli necessari (vedi il codice)
% varargin    = numero variabile di stringhe rappresentanti i campi
%               della struttura stack.temp relativi ai flag di 
%               memorizzazione delle matrici
%
% Massimo Davini 25/05/99 --- revised 31/05/99


global stack;
matrice=findobj('tag','matrice');

set(findobj('tag','BEVAL'),'enable','off');
set(findobj('tag','BSIMU'),'enable','off');

if (row < 11)&(column < 11)
  %verifica la consistenza dei coefficienti inseriti 
  coeff=zeros(1,row*column);
  for i=1:length(matrice)
    if isempty(str2num(get(matrice(length(matrice)+1-i),'string')))
         messag(gcf,'pi');return;
    elseif ~isreal(str2num(get(matrice(length(matrice)+1-i),'string')))
         messag(gcf,'pi');return;
    else coeff(i)=str2num(get(matrice(length(matrice)+1-i),'string'));
    end;
  end;

  matrix=zeros(row,column);
  for i=1:row , for j=1:column
         matrix(i,j)=coeff(j+(i-1)*column);
  end , end;
  
  switch label
   case 'Q'
      if (norm(matrix'-matrix,1)>100*eps*norm(matrix,1))|(min(real(eig(matrix)))<0)
         %se la matrice Q non