function [Km K_M]=Aktienvermoegen(K_M0,EK);
global K_M K_M0 n EK
TER=0.0029/12+0.0128/12;                    %Kapitalkosten pro Monat
TAX=0.012;                                  %Ausgabeaufschlag

p=0.052;                                    %Rendite
P=(1+p);

Km=K_M0*(1-(TAX+TER));                      %Netto Einzahlung (Aufschlag + TER)
dyn=0.0;                                    %jährliche änderung der Einzahlung
K_M0_max=10000;                             %maximale monatliche Einzahlung

i=1;
for i=1:n
  if (mod(i,12)==0 && K_M0<K_M0_max) && dyn>0
      K_M0=K_M0*(1+dyn)*(1-(TAX+TER));      %Dynamik von 5% jährlich
  endif
  if i>1
    Km(i)=(Km(i-1)+K_M0)*(1+p)^(1/12);
    EK(i)=EK((i)-1)*(1+p)^(1/12);
  else
    Km(i)=(Km(i)+K_M0)*(1+p)^(1/12)
    EK(i)=EK(i)*(1+p)^(1/12);
  endif
  K_M(i)=K_M0;
  if i==n
    Km=Km+EK;
  endif
end
endfunction