%   Initialize for phase 2   file is   init3.m
%   enter:  init3 , reg
pt=6  % pause time between iterations, if pt > 20, then a stop occurs
       %    and user hits return to continue
a=[1 2 1 -3 -1 2 4 0 0 0
   2 4 0 5 -3 -4 4 1 0 0
   1 2 0 5 2 3 4 0 1 0
   -2 -3 0 4 5 6 2 0 0 1]
b=[8 9 5 6]'
c=[-5 4  1 -4 -8 2 1  3 -1 0]
bas=[3 8 9 10]
bas0=bas;c0=c;b0=b;a0=a;
