home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d499 / matlab / matlab.lzh / sinc.exe < prev    next >
Text File  |  1991-04-13  |  499b  |  13 lines
  1. for i=1:20,for j=1:20, x(i,j)=0;
  2. for i=1:20 , x(i,1)=12.55-i*1.26;
  3. for i=2:20, for j=1:20,x(i,j)=x(i,1);
  4. for i=1:20, for j=1:20, y(i,j)=0;
  5. for i=1:20, y(1,i)=9.7-i*.875;
  6. for i=1:20, for j=2:20, y(i,j)=y(1,j);
  7. for i=1:20, for j=1:20, if x(i,j)<>0, x(i,j)=sin(x(i,j))/x(i,j);
  8. for i=1:20, for j=1:20, if x(i,j)=0, x(i,j)=1;
  9. for i=1:20, for j=1:20, if y(i,j)<>0, y(i,j)=sin(y(i,j))/y(i,j);
  10. for i=1:20, for j=1:20, if y(i,j)=0, y(i,j)=1;
  11. for i=1:20, for j=1:20, z(i,j)=x(i,j)*y(i,j);
  12. plot(z,'sinc2.plt')
  13.