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_M00 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