[95fe2b]: wavelets / went_compa.m  Maximize  Restore  History

Download this file

13 lines (10 with data), 232 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
function E = went_compa(x,p)
% 0<p<=2
assert(0<p&&p<=2,'Parameter p have to be in the range ]0,2]');
N = numel(x);
%u = x./norm(x);
v = sort(abs(x(:)),'descend');
wnom = cumsum(v.^p);
wden = sum(v.^p);
w = wnom./wden;
E=N-sum(w);

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks