%-bayes门限去噪主程序-.doc

%-------------------bayes门限去噪主程序----------------------------------------------- wave_name=coif5; a=imread(lena6.bmp); a=double(a); r1=1; r2=1; [t1,t2,t3,t4]=dwt2(a,wave_name); figure subplot(221) imshow(uint8(t1)) subplot(222) imshow(uint8(t2)) subplot(223) imshow(uint8(t3)) subplot(224) imshow(uint8(t4)) t2=bayes_thr(t2); t3=bayes_thr(t3); t4=bayes_thr(t4); %-------------------level 2-------------------- [t1_1,t1_2,t1_3,t1_4]=dwt2(t1,wave_name); t1_2=bayes_thr(t1_2); t1_3=bayes_thr(t1_3); t1_4=bayes_thr(t1_4); %--------------level 3--------------------------- [t3_1,t3_2,t3_3,t3_4]=dwt2(t1_1,