Kredit

Povezava med mesečnim obrokom in dobo odplačevanja

Mesečni obrok pri odplačevanju kredita znaša:

MesecniObrok[n_] := a r^n (r-1)/(r^n - 1)/. {a -> 100000, r -> 1.005183};
Poplacilo[n_]:=MesecniObrok[n]*n/100;

Narišimo graf spreminjanja mesečnega obroka ter koliko nas stane poplačanje kredita v odvisnosti od dobe odplačevanja

Plot[{MesecniObrok[n],Poplacilo[n]} , {n, 1, 12*30},AxesLabel->{"cas [mesec]"},PlotLegends->Placed[{"mesečni obrok","poplacilo/100"}, Right],PlotRange->Automatic,AspectRatio->0.5,ImageSize->600,GridLines->Automatic]

Koliko nas stane poplačanje kredita v odvisnosti od dobe odplačevanja.

Oglejmo si še, kako se spreminja naš dolg banki v odvisnosti od pretečenih mesecev. Za osnovne podatke vzemimo:

a = 100000;
r = 1.005183;

Mejni mesečni obrok (v tem primeru so mesečne obresti enake anuiteti in je dolg ves čas enak a):

bMejni = a*(r-1)

Če je mesečni obrok rahlo višji od tega, bomo kredit res odplačali (variraj dodatek +100).

b = bMejni + 100;
Dolg[0] := a;
Dolg[n_] := r*Dolg[n-1]-b;

DiscretePlot[Dolg[n], {n, 0, 30*12}, PlotStyle->{Red}]

Dolg v odvisnosti od glavnice, obrestovalnega faktorja in mesečnega plačila

Manipulate[DiscretePlot[a r^n - b Sum[r^i, {i, 0, n-1}], {n, 0, 30*12}, AxesOrigin -> {0,0}, PlotStyle -> {Red,Thick}],{{a,100000,"Glavnica"},1000, 10^6},{{r,1.005183,"Obrestovalni faktor"},1,1.05}, {{b, 650, "Mesečno plačilo"}, 100, 1000}]

Primerjava z varčevanjem

a = 100000;
r = 1.005183;
n = 30*12;
anuiteta = MesecniObrok[n]

Kaj če ta mesečni obrok raje damo vsak mesec na banko in varčujemo n časa?

Banka nam ponudi obrestno mero 2.72% na leto.

rVarcevalni = 1.0272^(1/12);
Stanje[0] := anuiteta;
Stanje[n_] := rVarcevalni*Stanje[n-1]+anuiteta;

DiscretePlot[Stanje[n], {n, 0, 30*12}, PlotStyle->{Red,Thick}]

Če vzamemo kredit, stanovanje preplačamo:

anuiteta*n - a

Če ta denar raje dajemo vsak mesec na varčevalni račun, je stanje na računu na koncu enako:

Stanje[n]