example3_10.m

来自「Matlab 6.X辅助优化计算与设计----源代码」· M 代码 · 共 16 行

function summe=pr01(name,x)
% check for row or column vector
[m,n]=size(x);row=(m==1);col=(n==1);n=max(m,n); 
if ~(row|col), error('x must be a vector'); end;

text=[name,': '];summe=0;
for k=1:n, 
  if x(k), 
    text=[text,'1'];
    summe=summe+1;
  else 
    text=[text,'0']; 
  end;
end;
dip([text,'   ',num2str(summe),' nonzeros']);