% Prop11MultiplierInversionOp: 
% Inversion of Frame multiplier according to Proposition 11
% using the program Prop11InvMultOp(c,r,TPhi,TPsi,m,e)
% requires entry of the input-parameters
%function y= Prop11MultiplierInversionOp;
ltfatstart;
c=input('Please enter the number c of the frame vectors: ');
r=input('Please enter the number r of the coordinates of the frame vectors: ');
TPhi=input('Please enter the synthesis matrix (rxc) of the frame Phi: ');
TPsi=input('Please enter the synthesis matrix (rxc) of an approximate dual frame Psi of Phi: ');
m=input('Please enter the elements of m (c numbers in a row): ');
e=input('Please enter the error bound you aim: ');

v=1;
while(v==1)
   [m,TPsi,M1,M2,M1inv,M2inv,n]=Prop11InvMultOp(c,r,TPhi,TPsi,m,e)
  TPsi=input('Please enter the synthesis matrix of a dual frame Psi of Phi or press zero if you want to stop: ');
   if TPsi==0 
       v=2;
    break 
   end
 e=input('Please enter the error bound you aim: ');
end


   
%end