Jednostavni dekurzivni obračun kamata

(%i1) load("FINMAT.mac");
(%o1)	"/home/damir/.maxima/FINMAT.mac"

Broj dana između datuma 26.5.2010. i 18.9.2015.

(%i2) broj_dana(26,5,2010,18,9,2015);
(%o2)	1941

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

(%i3) JDOK(1000,5,9/12);
(%o3)	1037.5

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 jejednostavni i dekurzivni.

(%i6) Cn:7441.40$
p:7$
n:101$

početni dug bez kamata

(%i7) C0:Cn/(1+p·n/36500);
(C0)	7300.0

broj dana između datuma 12.5.2009. i 19.6.2009.

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

koliko dana kasni na datum 12.5.2009.

(%i9) d2:101d1;
(d2)	63

dug na datum 12.5.2009.

(%i10) JDOK(C0,d2,p/365);
(%o10)	7388.2

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

(%i11) wxplot2d([JDOK(C0,d,p/365)], [d,0,200],[y,7000,8000], grid2d,
        [xlabel,"dani"],[ylabel,"DUG"],[xtics,20,20])$
rat: replaced -730000.0 by -730000/1 = -730000.0<BR>
rat: replaced -730000.0 by -730000/1 = -730000.0<BR>
rat: replaced -730000.0 by -730000/1 = -730000.0<BR>
rat: replaced -730000.0 by -730000/1 = -730000.0
(%t11)
 (Graphics)

Složeni dekurzivni obračun kamata

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

(%i12) KKS(9,4);
(%o12)	2.18
(%i13) KKS(9,4),FIN_dec:10;
(%o13)	2.1778180865

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

(%i14) KKS(0.54,1/12);
(%o14)	6.68
(%i15) KKS(0.54,1/12),FIN_dec:10;
(%o15)	6.6759626641

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.

(%i18) C0:8000$
n:32$
C32:9500$

Možemo globalno promijeniti vrijednost varijable FIN_dec

(%i19) FIN_dec:15;
(FIN_dec)	15

mjesečna kamatna stopa

(%i20) pm:rate(C0,n,C32);
(pm)	0.538476654859142

ekvivalentna godišnja kamatna stopa

(%i21) rate(C0,32/12,C32);
(%o21)	6.656568500420538

Mjesečni rast glavnice

(%i22) wxplot2d([SDOK(C0,1+pm/100,x)], [x,0,300], grid2d,
        [xlabel,"mjeseci"],[ylabel,"GLAVNICA"],[xtics,20,20])$
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859<BR>
rat: replaced 1.005384766548591 by 8549035/8503247 = 1.00538476654859
(%t22)
 (Graphics)

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.

(%i23) FIN_dec:2;
(FIN_dec)	2

a) dio

(%i24) SDOK(1200,1.05^(1/12),8);
(%o24)	1239.67

b) dio

(%i25) pr:5/12;
(pr)	5/12
(%i26) SDOK(1200,1+pr/100,8);
(%o26)	1240.59

Usporedba relativnog i konformnog ukamaćivanja

(%i27) 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"])$
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
rat: replaced 1.004074123783648 by 51417187/51208557 = 1.004074123783648<BR>
plot2d: expression evaluates to non-numeric value somewhere in plotting range.
(%t27)
 (Graphics)

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%.

(%i28) r:1.111^(1/12);
(r)	1.008810293396665

a) dio

(%i29) C42:SDOK(10000,r,42)SDOK(3800,r,27);
(C42)	9638.880000000001

b) dio

(%i30) rj:solve_exp(C42,r,10000);
(rj)	4.19
(%i31) ceiling(rj);
(%o31)	5

c) dio

(%i32) izraz:C42·r^18X·r^12;
(izraz)	11287.49736485735-1.111000000000001*X
(%i33) solve(izraz=5000,X),numer;
rat: replaced 6287.497364857345 by 1072515013/170579 = 6287.497364857339<BR>
rat: replaced -1.111000000000001 by -1111/1000 = -1.111<BR>
rat: replaced 6287.497364857339 by 1072515013/170579 = 6287.497364857339<BR>
rat: replaced -1.111 by -1111/1000 = -1.111<BR>
rat: replaced -0.586238634298478e-8 by -1/170579000 = -0.586238634298478e-8<BR>
rat: replaced -5659.313559727578 by -5203501127/919458 = -5659.313559727579
(%o33)	[X=5659.313559727579]

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%.

(%i34) r:1.0725^(1/12);
(r)	1.005849740952646

a) dio

(%i35) izraz:X·r^481/2·X·r^40+1/5·X·r^25;
(izraz)	0.9231013138372741*X
(%i36) solve(izraz=8000,X),numer;
rat: replaced 0.9231013138372741 by 21878103/23700652 = 0.9231013138372733<BR>
rat: replaced 0.9231013138372733 by 21878103/23700652 = 0.9231013138372733<BR>
rat: replaced 0.42192932076299e-7 by 1/23700652 = 0.42192932076299e-7<BR>
rat: replaced -8666.43767057866 by -5090136835/587339 = -8666.43767057866
(%o36)	[X=8666.43767057866]

b) dio

(%i37) X:8666.44;
(X)	8666.44

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

(%i38) [X·r^8,2·X];
(%o38)	[9080.413001981802,17332.88]

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

(%i39) r2:1.0725^(1/4);
(r2)	1.017652081440606
(%i40) t:solve_exp(8000,r2,2·X);
(t)	44.19
(%i41) ceiling(t);
(%o41)	45

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

(%i42) 45+16;
(%o42)	61
(%i43) kill(X);
(%o43)	done

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?

(%i44) r:1.0825^(1/12);
(r)	1.006627966804368

a) dio

(%i45) izraz:7/9·(X·r^10+1/6·X·r^4r^2;
(izraz)	0.9768153373396248*X
(%i46) solve(izraz=2950,X),numer;
rat: replaced 0.9768153373396248 by 14486022/14829847 = 0.9768153373396232<BR>
rat: replaced 0.9768153373396232 by 14486022/14829847 = 0.9768153373396232<BR>
rat: replaced 1.348631580622511e-7 by 2/14829847 = 1.348631580622511e-7<BR>
rat: replaced -3020.018100897541 by -1589184865/526217 = -3020.018100897538
(%o46)	[X=3020.018100897538]

b) dio

(%i47) r2:1.0825^(1/2);
(r2)	1.040432602334241
(%i48) t2:solve_exp(2950,r2,4500);
(t2)	10.65
(%i49) ceiling(t2);
(%o49)	11

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?

(%i50) r:1.0102;
(r)	1.0102
(%i51) 3/4·(17000·r^7+3000·r^3r^17;
(%o51)	19022.55165527997

Created with wxMaxima.