% Plotter sannsynlighetstetthetsfunksjon og kumulativ fordelingsfunksjon
% for en trekantfordeling på intervallet [0,1] med forventningsverdi 1/2
clc, clear all, close all

x = linspace(0,1,1000);
f = @(x) 2 - 4.*abs(x - 1/2); % Definer tetthetsfunksjonen
% Definer den kumulative fordelingsfunksjonen
F = @(x) 2.*x.^2.*(x <= 1/2) + (4.*x - 2.*x.^2 - 1).*(x > 1/2);

figure(1), hold on % Åpne figurvindu og sett på hold
plot(x,f(x),'b-','LineWidth',2) % Plott f
plot(x,F(x),'r-','LineWidth',2) % Plott F
legend('f_X(x)','F_X(x)','Location','NorthWest'); % Lag tegnforklaring
xlabel('x')
xlim([0 1]) % Sett grensene til utsnittet i x-retning
ylim([0 2.2]) % Sett grensene til utsnittet i y-retning
grid on % Sett på grid-linjer