function [] = prog1main()
for j=1:3
n=j*10;%n=10,20,30
k=1/n;
x(1,1)=0;    %x(*,1) sind t(*) 
x(1,2)=1/10; %x(*,2) sind y(t(*))
  for i=1:n  %Iteration
    x(i+1,1)=x(i,1)+k; 
    x(i+1,2)=x(i,2)+k*f(x(i,2));
  end  
disp(ff(n))
disp(x)  

fid=fopen(ff(n),'w');
fprintf(fid,'%g\t',x);
fclose(fid);%schreiben auf eine file y*.txt

x=0; 

end
  
 function Fy = f(y) 
  Fy=8*y*(1-y);
 
 function Fname=ff(n)  
  nn=strcat(num2str(n),'.txt');
  Fname=strcat('y',nn);

    


