computeLipschitzConstant: Compute the lipschitz constant of the operator % % C. Ortiz % Las Modified: 3/31/2011 %*****************************************************************
0001 %computeLipschitzConstant: Compute the lipschitz constant of the operator 0002 %% 0003 %% C. Ortiz 0004 %% Las Modified: 3/31/2011 0005 %%***************************************************************** 0006 function [L] = DSA_BD_computeLipschitzConstant(blk,At,par) 0007 if par.vers == 1 0008 %L = 80; 0009 if nargin > 2 && par.normalize >= 2 0010 L = 1; 0011 else 0012 L = DSA_BD_normOfOperator(blk,At,par.tol);%L = normOfOperator3(A,At,n,par.tol); 0013 end 0014 elseif par.vers == 2 0015 L = 0; 0016 end 0017