util1_jan/input_num.m

   1 function value=input_num(prompt,default,force)
   2 % value=input_num(prompt,default)
   3 % numeric input with default
   4 % if force present and true, do not ask and use default in any case
   5 if exist('force','var'),
   6     use_default=force;
   7 else
   8     use_default=0;
   9 end
  10
  11 disp(['Enter ',prompt])
  12 s=['[',num2str(default),'] '];
  13 if use_default,
  14     value=[];
  15 else
  16     value = input(s);
  17 end
  18 if isempty(value),
  19     value=default;
  20 end
  21 disp(value)
  22 end