33 lines
652 B
Text
33 lines
652 B
Text
exec('.\entropy.sci',0);
|
|
|
|
final_length = 37;
|
|
|
|
word_n = '';
|
|
word_n_1 = '';
|
|
word_n_2 = '';
|
|
|
|
N = [1:final_length]';
|
|
word_length = zeros(N);
|
|
entropies = zeros(N);
|
|
|
|
tic();
|
|
for i = 1:final_length
|
|
if i == 1 then
|
|
word_n = '1';
|
|
elseif i == 2
|
|
word_n = '0';
|
|
elseif i == 3
|
|
word_n = '01';
|
|
word_n_1 = '0';
|
|
else
|
|
word_n_2 = word_n_1;
|
|
word_n_1 = word_n;
|
|
word_n = word_n_1 + word_n_2;
|
|
end
|
|
word_length(i) = length(word_n);
|
|
entropies(i) = entropy(word_n);
|
|
end
|
|
time = toc();
|
|
|
|
disp('EXECUTION TIME: '+string(time)+'s.');
|
|
disp(['N', 'LENGTH', 'ENTROPY'; string([N word_length entropies])]);
|