%                       file is  inite.m
% initialize for testing phase2 accuracy parameter - ill-conditioned problem
 '     user must enter value of perturb (small, positive)  '
% e.g.  enter:  perturb=.001 , inite , reg
pt=6  % pause time between iterations, if pt > 20, then a stop occurs
       %    and user hits return to continue
a=[-1 1  1 0  0
  -1-100*perturb 1 0 1 0
 5 1 0 0 1]
b=[1 1-perturb 5]'
c=[-.001 -1 0  0 0]
bas=[3 4 5]
bas0=bas;c0=c;b0=b;a0=a;
