Optimalni L1 i L2 parametri eksponencijalne funkcije

x={0,1,2,3,4};
y={10,12,15,18,8};
m=Length[y];
pod=Table[{x[[i]],y[[i]]},{i,m}];
slpod=ListPlot[pod,PlotRange->{0,Max[y]+1}];
F2[b_,c_]:=Total[(y-b Exp[c x])^2]
F1[b_,c_]:=Total[Abs[y-b Exp[c x]]]
(* Izaberi minimizaciju funkcionala F2 ili F1 *)
min=NMinimize[F2[b,c],{b,c}];
b1=b/.min[[2]];c1=c/.min[[2]];
Print["Optimalni parametri: ",{b1,c1}]
slf=Plot[b1 Exp[c1 t],{t,-1,5}];
Show[slpod,slf]

Slozeno ispodgodisnje ukamacivanje

Konformni i relativni kamatnjak

p=16.;
m=12;
pm=100((1+p/100)^(1/m)-1);
pr=p/m;
Print["Konformna: ",pm,",  Relativna: ",pr]

pm=.3;
m=12;
p=100((1+pm/100)^m-1);
Print["Ispodgodisnja: ",pm,",   Godisnja: ", p]

Korektna formula

p=4.;C0=1000;
r=1+p/100;
K[t_]:=C0 r^t

K[1/365]