searchpeaks.asv

一些个 人收集的小波变换的程序

A=[6.04	 19.085	-5.1682	-25.239	-0.47096 4.1894	23.078	21.294	-0.99687	-11.193	9.7342	5.3722	13.295	-7.5899	-36.081	-13.037	47.87	-24.763	31.248	-34.096	13.244	-17.246	-23.117	53.467	-73.074	-29.745	54.939	-80.442	100.37	-13.487	-24.669	61.895	-43.656	61.665	-16.396	-40.313	42.804	-71.077	65.379	-26.079	-40.902	61.5	-8.3291	-6.5388	-6.189	3.2186	15.813	-16.372	-16.565	0.87635	12.969	0.13989	-7.1965	-10.439	-21.541	-17.896	-4.002	-14.097	-13.15	-11.558	-5.6446	-10.351	-6.551	-17.222	-0.27559	-8.1967	3.8072	-17.41	-7.4167	15.639];
[Row,Clom]=size(A);
Max=max(A);
Aa=100*A/Max;
Aa=abs(Aa);
peak=A*0;
for m=1:Clom-1
    peak(m)=Aa(m+1)-Aa(m);
end 
    peak(Clom)=0;
    fdPTfL=forwardPeakTransform(A, peak);
    fdPTfL=forwardPeakTransform(fdPTfL, peak);

figure
stem(A)
figure
stem(peak)
figure
stem(fdPTfL)
figure
stem(fdPTfL)