www.pudn.com > mimo-code.rar > progress.m, change:2003-06-09,size:1877b

function bar_string = progress(percent,varargin); 
 
%PROGRESS Create a progress bar. 
%   BS = PROGRESS(PERCENT) returns a string showing the ratio of 
%   done/remaining jobs. 
% 
%   BS = PROGRESS(PERCENT,'PropertyName','PropertyValue,...) 
% 
%   Progress Property List 
% 
%   BarSize        {48} 
%   BodyChar       {'|'} 
% 
%   See also MIMO. 
 
%   Copyright 2001-2003 Kamil Anis, anisk@feld.cvut.cz 
%   Dept. of Radioelectronics,  
%   Faculty of Electrical Engineering 
%   Czech Technical University in Prague 
%   $Revision: 1.0 $  $Date: 2003/5/23 20:55:18 $ 
%   -- 
%   <additional stuff goes here> 
 
nopts = length(varargin) / 2; 
opts = reshape(varargin,[2 nopts])'; 
 
ord1 = strmatch('BarSize',opts(:,1)); 
ord2 = strmatch('BodyChar',opts(:,1)); 
 
% BarSize 
if isempty(ord1) % there's no such option 
	barsize = 48; % default value 
else % there's relevant option 
	barsize = opts{ord1,2}; 
end 
 
% BodyChar 
if isempty(ord2) % there's no such option 
	char2 = '|'; % default value 
else % there's relevant option 
	char2 = opts{ord2,2}; 
end 
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BODY BEGIN %%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
 
done = round( barsize * percent / 100); 
remains = barsize - done; 
 
str1 = repmat([char2],1,done); 
str2 = repmat([' '],1,remains); 
str5 = ['[',str1,str2,']']; 
str3 = sprintf('%3.1f',percent); 
str4 = [' ',str3,' % ']; 
 
m = length(str4); n = length(str5); 
p = round(n / 2) - round(m / 2) + 1; 
q = p + m - 1; 
 
str5(p:q) = str4; 
bar_string = str5; 
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BODY END %%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%