usexiaobo.asv

用于小波变换,调试过很好.可以求出任意多个小波系数.

    clear
    load yuan.TXT;s=jin; 
    t=(1:length(s))*1.0000000000000E-05;
    
    A1=zeros(length(s),1);
    D1=zeros(length(s),1);
    D2=zeros(length(s),1);
    D3=zeros(length(s),1);
    D4=zeros(length(s),1);
    D5=zeros(length(s),1);
    D6=zeros(length(s),1);
    D7=zeros(length(s),1);
    D8=zeros(length(s),1);
    D9=zeros(length(s),1);
    D10=zeros(length(s),1);
  % [A1,D1,D2,D3,D4,D5] =xiaobo( s,5 );
    [A1,D1,D2,D3,D4,D5,D6,D7,D8,D9,D10] =xiaobo( s,10 );
    subplot(6,2,1);plot(t,D1);
    subplot(6,2,2);plot(t,D2);
    subplot(6,2,3);plot(t,D3);
    subplot(6,2,4);plot(t,D4);
    subplot(6,2,5);plot(t,D5);
    subplot(6,2,6);plot(t,D6);
    subplot(6,2,7);plot(t,D7);
    subplot(6,2,8);plot(t,D8);
    subplot(6,2,9);plot(t,D9);
    subplot(6,2,10);plot(t,D10);