%KURS: STK1100
%NAVN: INGUNN FRIDE TVETE
%MATLABOPPGAVE 2

%a)Vi leser inn vitalkapasiteten for 12 voksne mennesker:
  vk=[3.9 5.6 4.1 4.2 4.0 3.6 5.9 4.5 3.6 5.0 2.9 4.3];

%b)Vi skal beregne gjennomsnitt, empirisk median, empirisk standardavvik og
%kvartildifferanse:

gjsnittvk=mean(vk);%4.3000
medianvk=median(vk);%4.1500
sdvk=std(vk);%0.8539
iqrvk=iqr(vk);%1

%c)Histogram:
hist(vk)%default, 10 intervall
hist(vk,5)%5 intervall
hist(vk,12)%12 intervall

%Hvis vi vil se paa mange,feks:
n=15;
hist(vk,n);

%d)
edges=[2,3,4,5,6];
k=histc(vk,edges);
bar(edges,k,'histc');
figure(gcf);

%e)Et normert histogram
%Vi deler inn i 4 intervaller: [2.5,3.5>,[3.5,4.5>,[4.5,5.5>,[5.5,6.5>.
%I det 1. intervallet er det 1 person, i den 2. intervallet er det 7
%personer, i det 3. intervallet er det 2 personer
%og i det 4. intervallet er det 2 personer.
%De tillhoerende relative frekvenser blir:
%for intervall 1: 1/12=0.0833
%for intervall 2: 7/12=0.5833
%for intervall 3: 2/12=0.1667
%for intervall 4: 2/12=0.1667

edges=[2.5,3.5,4.5,5.5,6.5];
k=histc(vk,edges);
k=k/12;
bar(edges,k,'histc');
figure(gcf);

figure;

%Til slutt: Hvis vi vill ha alle plottene generert ovenfor i et plott:
subplot(3,2,1)
hist(vk)%default, 10 intervall
title('c) histogram, 10 intervaller (default)')
subplot(3,2,2)
hist(vk,5)%5 intervall
title('c) histogram, 5 intervaller')
subplot(3,2,3)
hist(vk,12)%12 intervall
title('c) histogram, 12 intervaller')
subplot(3,2,4)
hist(vk,n);
title('c) histogram, n=15 intervaller')

subplot(3,2,5)
edges=[2,3,4,5,6];
k=histc(vk,edges);
bar(edges,k,'histc');
figure(gcf);
title('d)')
subplot(3,2,6)
edges=[2.5,3.5,4.5,5.5,6.5];
k=histc(vk,edges);
k=k/12;
bar(edges,k,'histc');
figure(gcf);
title('e) normert histogram')