usexiaobo2.m

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

    function [D1,D2,D3,D4,D5,D6,D7,D8,D9,D10]=usexiaobo2(s)
    %load jin.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(10,1,1);plot(t,D1);
    %subplot(10,1,2);plot(t,D2);
    % subplot(10,1,3);plot(t,D3);
    %subplot(10,1,4);plot(t,D4);
     %subplot(10,1,5);plot(t,D5);
    %subplot(10,1,6);plot(t,D6);
     %subplot(10,1,7);plot(t,D7);
    %subplot(10,1,8);plot(t,D8);
     %subplot(10,1,9);plot(t,D9);
    %subplot(10,1,10);plot(t,D10);