function skjdemo5
% SKJDEMO5 pohtii termiä "informaatio" kuvaesimerkin kautta.

% Jukka Parviainen, parvi@hut.fi, 15.1.2002, 17.1.2001.
% Tiedostot saatavilla
% http://www.cis.hut.fi/Opinnot/T-61.140/ -> Vinkkejä ja linkkejä

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

close all; % sulkee kaikki ikkunat
clc; % puhdistaa ruudun

fprintf(1,'****************************************\n');
fprintf(1,'****************************************\n');
fprintf(1,'************ SKJDEMO5.m **************\n');
fprintf(1,'****************************************\n');
fprintf(1,'******* Informaatio ********\n');
fprintf(1,'****************************************\n');
fprintf(1,'****************************************\n');
fprintf(1,'\n\n');

% Luetaan xfig:llä tehty piirros sisään muuttujaks D1
D1 = imread('skjdemo5.tif');
% Luodaan satunnainen 256:n harmaasävykuva, joka on saman kokoinen
D2 = floor(256*rand(287,370));

figure(15), clf;
imagesc(D1), axis equal
title('Kuva 1 - kuvio');

figure(16), clf,
imagesc(D2), axis equal
title('Kuva 2 - satunnaisia harmaasävyjä, 256 sävyä');
colormap(gray);

clc;

fprintf(1,'Kuvan 1 tiedoston koko (tavua) eri formaateilla\n');
fprintf(1,'KUVA 1 JPG GIF XFIG PNG TIFF\n');
fprintf(1,'----------------------------------------------\n');
fprintf(1,' 30310 2516 420 3056 318894\n');

fprintf(1,'\n');
fprintf(1,'Mikä lienee Kuvan 2 informaatiomäärä?\n');
fprintf(1,'Mikä voisi olla tiedoston koon määrä?');