plot_7_9_abcd.m
上传用户:kendun0711
上传日期:2007-06-03
资源大小:32k
文件大小:1k
源码类别:

技术管理

开发平台:

Matlab

  1. % make figure 7.9abcd
  2. base=3;
  3. strb=['a'; 'b'; 'c'; 'd'];
  4. for i=1:4,
  5.    figure;
  6.    eval(['load run' num2str(i)])
  7.    z=sum(real(E).^2,2);
  8.    [y ind]=sort(z);
  9.    newE=E(ind,:);
  10.    t=66;
  11.    z_dct=sum((real(newE(1:400-t,:)).^2))/(400-t);
  12.    semilogy(z_dct);
  13.    hold on
  14.    eval(['load ../Chap_5_EQ/run' num2str(i)])
  15.    semilogy(mean(E'.^2),'r')
  16.    eval(['load ../Chap_9/run' num2str(i)])
  17.    semilogy(mean(A.^2),'m')
  18.    hold off
  19.    str=['title(''figure 7.9' strb(i) ''')'];
  20.    eval(str)
  21.    eval(['print -dpsc 7_9' strb(i) ]);
  22. end