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
| function c = coeffAsym (x)
len = length (x);
m = mean (x);
s = std (x,1);
mu = sum ((x-m).^4)/len;
c = mu/s^4;
endfunction
rep='../';
mean_start=100; % Where do we start our time-averages?
full_file=importdata([rep,'timevar']);
timevar=transpose(full_file.data);
nvar=size(timevar,1);
var_name=strread(full_file.textdata{1},'%s',nvar);
for i=1:nvar
assignin('base',var_name{i},timevar(i,:));
end
%for i=1:621
% S(i)=skewness([vxmin(i),vymin(i),vzmin(i)]);
%end
%for i=1:621
% k(i)=kurtosis([vxmin(i),vymin(i),vzmin(i)]);
%end
for i=1:621
k(i)= coeffAsym([vxmin(i),vymin(i),vzmin(i)]);
end
%figure (1);
%plot(t/3,S);
%title('skewness');
figure (2);
plot (t/3,k);
title ('kurtosis'); |
Partager