## [77a22a]: frames / framered.m  Maximize  Restore  History

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47``` ```function red=framered(F); %FRAMERED Redundancy of a frame % Usage red=framered(F); % % `framered(F)` computes the redundancy of a given frame *F*. If the % redundancy is larger than 1 (one), the frame transform will produce more % coefficients than it consumes. If the redundancy is exactly 1 (one), % the frame is a basis. % % Examples: % --------- % % The following simple example shows how to obtain the redundancy of a % Gabor frame::: % % F=frame('dgt','gauss',30,40); % framered(F) % % The redundancy of a basis is always one::: % % F=frame('wmdct','gauss',40); % framered(F) % % See also: frame, frana, framebounds % Default value: works for all the bases. red=1; switch(F.type) case 'gen' red=size(F.g,2)/size(F.g,1); case 'dgt' red=F.M/F.a; case 'dgtreal' red=F.M/F.a; case {'ufilterbank','filterbank'} red=sum(1./F.a); case {'ufilterbankreal','filterbankreal'} red=2*sum(1./F.a); case 'fusion' red=sum(cellfun(@framered,F.frames)); case 'tensor' red=prod(cellfun(@framered,F.frames)); end; ```