小波分析Haar一层分解合成程序谢谢了,这有个程序,帮我改个样子,实现同样的功能clear;x1=0:10;x=[x1,0];s=zeros(1,12);a=ones(1,6);b=a;fori=1:6a(i)=(x(2*i-1)+x(2*i))/2;b(i)=(x(2*i-1)-x(2*i))/2;enddisp(a)disp(b)f

Question

小波分析Haar 一层分解合成 程序谢谢了,
这有个程序,帮我改个样子,实现同样的功能 clear; x1=0:10; x=[x1,0]; s=zeros(1,12); a=ones(1,6); b=a; fori=1:6 a(i)=(x(2*i-1)+x(2*i))/2; b(i)=(x(2*i-1)-x(2*i))/2; end disp(a) disp(b) fork=1:12 for j=1:6 if k==2*j-1 s(k)=a(j)+b(j); elseif k==2*j s(k)=a(j)-b(j); end end end disp(s)

Answer 1

clear all,; x1=0:10; x=[x1,0]; s=zeros(1,12); a=ones(1,6); b=a; fori=1:6 a(i)=(x(2*i-1)+x(2*i))/2; b(i)=(x(2*i-1)-x(2*i))/2; end disp(a) disp(b) fork=1:12 for j=1:6 if k==2*j-1 s(k)=a(j)+b(j); elseif k==2*j s(k)=a(j)-b(j); end end end s