function [Z]=Zinsen;      %
global R TZ p0 p1 p2 K n
%Kreditzinsen für monatlisches einzahlen 
i=1;
for i=1:n;
  if i==1
    Z=K*p0/12
    elseif n<=12*TZ 
      Z(i)=K(i)*p0/12;
    elseif i>12*TZ && i<12*2*TZ
      Z(n)=K(i)*p1/12;
    elseif i>=12*2*TZ
      Z(i)=K(i)*p2/12;
  endif
  i=i+1;
endfor
endfunction