# Jednostavni dekurzivni obračun kamata

load("FINMAT.mac");

Broj dana između datuma 26.5.2010. i 18.9.2015.

broj_dana(26,5,2010,18,9,2015);

Vrijednost glavnice C0=1000 nakon 5 mjeseci uz godišnju kamatnu stopu p=9% kod jednostavnog dekurzivnog obračuna kamata

JDOK(1000,5,9/12);

1. zadatak
Julija je 19.6.2009. podmirila dug sa zakašnjenjem od 101 dana plativši ukupno 7441.40 kn uz godišnju kamatnu stopu 7%. Odredite iznos kojim se taj dug mogao podmiriti 12.5.2009. Obračun kamata je
jednostavni i dekurzivni.

Cn:7441.40$
p:7$
n:101$

početni dug bez kamata

C0:Cn/(1+p*n/36500);

broj dana između datuma 12.5.2009. i 19.6.2009.

d1:broj_dana(12,5,2009,19,6,2009);

koliko dana kasni na datum 12.5.2009.

d2:101-d1;

dug na datum 12.5.2009.

JDOK(C0,d2,p/365);

Kako se početni dug povećava sa zakašnjenjem u danima

wxplot2d([JDOK(C0,d,p/365)], [d,0,200],[y,7000,8000], grid2d, 
         [xlabel,"dani"],[ylabel,"DUG"],[xtics,20,20])$

# Složeni dekurzivni obračun kamata

Kvartalna konformna kamatna stopa ako je zadana godišnja kamatna stopa p=9%.

KKS(9,4);

KKS(9,4),FIN_dec:10;

Godišnja konformna kamatna stopa ako je zadana mjesečna kamatna stopa p=0.54%.

KKS(0.54,1/12);

KKS(0.54,1/12),FIN_dec:10;

2. zadatak
Uz koju je mjesečnu kamatnu stopu posuđeno 8000 kn ako nakon 32 mjeseca dužnik treba vratiti 9500 kn? Kolika je ekvivalentna godišnja kamatna stopa? Obračun kamata je složeni i dekurzivni.

C0:8000$
n:32$
C32:9500$

Možemo globalno promijeniti vrijednost varijable FIN_dec

FIN_dec:15;

mjesečna kamatna stopa

pm:rate(C0,n,C32);

ekvivalentna godišnja kamatna stopa

rate(C0,32/12,C32);

Mjesečni rast glavnice

wxplot2d([SDOK(C0,1+pm/100,x)], [x,0,300], grid2d, 
         [xlabel,"mjeseci"],[ylabel,"GLAVNICA"],[xtics,20,20])$

3. zadatak
Zadana je glavnica od 1200 kn i godišnja kamatna stopa 5%.
a) Odredite vrijednost glavnice nakon 8 mjeseci uz konformno ukamaćivanje.
b) Odredite vrijednost glavnice nakon 8 mjeseci uz relativno mjesečno ukamaćivanje.
Obračuna kamata je složeni i dekurzivni.

FIN_dec:2;

a) dio

SDOK(1200,1.05^(1/12),8);

b) dio

pr:5/12;

SDOK(1200,1+pr/100,8);

Usporedba relativnog i konformnog ukamaćivanja

wxplot2d([SDOK(C0,1.05^(1/12),x),SDOK(C0,1+pr/100,x)], [x,0,130], grid2d, 
         [xlabel,"mjeseci"],[ylabel,"GLAVNICA"],[xtics,20,20],
         [legend,"konformno ukamaćivanje","relativno ukamaćivanje"])$

4. zadatak
Stipe uplati 10000 kn, a nakon 15 mjeseci podigne 3800 kn.
a) Koliko novaca ima Stipe tri i pol godine nakon prve uplate?
b) Nakon koliko će mjeseci, u odnosu na zadnje stanje, Stipe ponovo raspolagati s 10000 kn?
c) Koliko bi novaca morao podići četiri godine nakon prve uplate tako da bi pet godina nakon prve uplate imao polovicu iznosa kojeg je uplatio?
Godišnja kamatna stopa je 11.1%.

r:1.111^(1/12);

a) dio

C42:SDOK(10000,r,42)-SDOK(3800,r,27);

b) dio

rj:solve_exp(C42,r,10000);

ceiling(rj);

c) dio

izraz:C42*r^18-X*r^12;

solve(izraz=5000,X),numer;

5. zadatak
Martina uplati nepoznati iznos. Nakon 8 mjeseci podigne polovinu tog iznosa, a 5 kvartala nakon toga uplati još 1/5 tog nepoznatog iznosa.
a) Koliki je iznos uplaćen ako četiri godine nakon prve uplate Martina ima 8000 kn? Skicirajte tijek novca!
b) Nakon koliko će kvartala u odnosu na prvu uplatu Martina raspolagati s dvostruko većim iznosom od prve uplate?
Godišnja dekurzivna kamatna stopa je 7.25%.

r:1.0725^(1/12);

a) dio

izraz:X*r^48-1/2*X*r^40+1/5*X*r^25;

solve(izraz=8000,X),numer;

b) dio

X:8666.44;

U prvih osam mjeseci uplaćeni iznos se neće udvostručiti.

[X*r^8,2*X];

Od zadnjeg stanja treba čekati 45 kvartala da iznos naraste na 2X.

r2:1.0725^(1/4);

t:solve_exp(8000,r2,2*X);

ceiling(t);

Od prve uplate treba čekati 61 kvartal da se početni iznos udvostruči.

45+16;

kill(X);

6. zadatak
Viktorija uplati nepoznati iznos. Nakon pola godine uloži još šestinu tog iznosa, a četiri mjeseca nakon toga podigne dvije devetine svote s kojom raspolaže u tom trenutku.
a) Koliki je početni ulog ako na kraju godine Viktorija na računu ima 2950 kn, a godišnja kamatna stopa je 8.25%?
b) Nakon koliko će polugodišta, u odnosu na zadnje stanje, Viktorija raspolagati s 4500 kn?

r:1.0825^(1/12);

a) dio

izraz:7/9*(X*r^10+1/6*X*r^4)*r^2;

solve(izraz=2950,X),numer;

b) dio

r2:1.0825^(1/2);

t2:solve_exp(2950,r2,4500);

ceiling(t2);

7. zadatak
Netko uloži 17000 kn uz mjesečnu kamatnu stopu 1.02%. Nakon četiri mjeseca uloži još 3000 kn, a tri mjeseca poslije podigne četvrtinu iznosa s kojim raspolaže u tom trenutku. S kojom svotom raspolaže dvije godine nakon prve uplate?

r:1.0102;

3/4*(17000*r^7+3000*r^3)*r^17;