Programmeringskonferens Gbg Uppgift 3 Avkastning

% Städa bort gamla variabler och grafer
clear
clf

maxforandring = 0.005;
startvarde = 2000;
ff_start = 1.02;
AntalIterationer=1000;
totalVarde=0;

% Upprepa simulering av 5-årsutveckling 1000 gånger 
for n=1:AntalIterationer
  varde = startvarde;
  ff_m = ff_start ^ (1/12);

  % Simulera en 5-årsutveckling (60 månader) 
  for m=1:60
  varde = varde * ff_m;

  % Beräkna ny månadsutveckling baserad på
  % ändrad årsutveckling
  ff_y = ff_m ^ 12;
  ff_y = ff_y + maxforandring * (2 * rand() - 1);
  ff_m = ff_y ^ (1/12);
  end

  % Spara slutvärdet efter 5 år, avrundat till 10-tal
  % Spara i en vektor för att kunna rita histogram
  varde_vektor(n)=round(varde / 10) * 10;
  
  % Spara totalvärdet för att kunna räkna genomsnitt
  totalVarde=totalVarde + round(varde / 10) * 10;
end

% Matlab-specifika kommandon för att analysera data
% Skapa ett histogram
%hist(varde_vektor,30)

# Bestäm antalet simuleringar som gav en minskning och räkna ut sannolikheten
antalMinskande=0;
for m =varde_vektor
    if m <= startvarde
      antalMinskande=antalMinskande+1;
    end
end
disp(["Genomsnittligt värde: ",num2str(mean(varde_vektor))])
disp(["Sannolikhet att det minskar: ",num2str(antalMinskande/length(varde_vektor))])