alert.m

地震、测井方面matlab代码,解释的比较详细

function alert(message)
% Function displays an alert message unless the global variable ALERT is
% present and false (0)
% Written by: E. R., August 3, 2001
% Last updated:
%
%          alert(message)
% INPUT
% message  message to dispay (the message is preceeded by the string
% 'Alert from "calling_program": ' 
% where "calling_program" is the name of the program that called "alert".

global S4M

if S4M.matlab_version >= 7
   disp(message)
   return
end

if S4M.alert
  disp(' ')
% 	Find name of the calling program 
  temp=dbstack;  
  if length(temp) > 2       % Presets is called from another program      
    temp=temp(3).name;
    idx1=findstr(temp,filesep);
    idx2=findstr(temp,'.');
    program=(temp(idx1(end)+1:idx2(end)-1));
    if iscell(message)
      disp([' Alert from "',program,'": ',message{1}])
      for ii=2:length(message)
        disp(['     ',message{ii}])
      end
    else
      disp([' Alert from "',program,'": ',message])
    end
  else
    if iscell(message)
      disp([' Alert: ',message{1}])
      for ii=2:length(message)
        disp(['        ',message{ii}])
      end
    else
      disp([' Alert: ',message])
    end 
  end
disp(' ')
end