function fu = ffin(tt)
#
global Vini Vonn Tdel Tris Tfal Tonn Tper;
#
dummy=size(tt);
row=dummy(1);
col=dummy(2);
for n=1:row
  for m=1:col
    if tt(n,m) < Tdel
      fu(n,m)=Vini;
    endif
    if Tdel <= tt(n,m) && tt(n,m) < Tdel+Tris
      fu(n,m)=Vini+Vonn*(tt(n,m)-Tdel)/Tris;
    endif
    if Tdel+Tris <= tt(n,m) && tt(n,m) < Tdel+Tris+Tonn
      fu(n,m)=Vonn;
    endif
    if Tdel+Tris+Tonn <= tt(n,m) && tt(n,m) < Tdel+Tris+Tonn+Tfal
      fu(n,m)=Vini-Vonn*(tt(n,m)-Tdel-Tris-Tonn-Tfal)/Tfal;
    endif
    if Tdel+Tris+Tonn+Tfal <= tt(n,m) && tt(n,m) <= Tper
      fu(n,m)=Vini;
    endif
  endfor
endfor
#
endfunction
#