a=fid fid=fopen('c:\12356.txt','wt'); for i=0:29 fprintf(fid,'%s \n ',prod(1:i)/[prod(1:r)*prod(1:i-r)]);