%---------------------------------------------------% rsynthond1.m%% function [approx,tapprox,napprox]=rsynthond1(regu,wsf,nbvoies);%-------------------------------------------------function [approx,tapprox,napprox]=rsynthond1(regu,wsf,nbvoies);%---  initialisation ---%%clf;hold offtest=wsf;tee=1;debut=2;sens=1;%--- appel ondelettes ---%clear h;if ~(regu<11 & regu>0),	mess=[' Ondelette non implantee'];	disp(mess);	return;else	if regu==1,   h=[1/sqrt(2) 1/sqrt(2)]; %  g=[1/sqrt(2) -1/sqrt(2)];endif regu==2,   h(1:2)=[0.482962913145 0.836516303738];   h(3:4)=[0.224143868042 -0.129409522551];endif regu==3,   h(1:2)=[0.332670552950 0.806891509311];   h(3:4)=[0.459877502118 -0.135011020010];   h(5:6)=[-0.085441273882 0.035226291882];endif regu==4,   h(1:2)=[0.230377813309 0.714846570553];   h(3:4)=[0.630880767930 -0.027983769417];   h(5:6)=[-0.187034811719 0.030841381836];   h(7:8)=[0.032883011667 -0.010597401785];endif regu==5,   h(1:2)=[0.160102397974 0.603829269797];   h(3:4)=[0.724308528438 0.138428145901];   h(5:6)=[-0.242294887066 -0.032244869585];   h(7:8)=[0.077571493840 -0.006241490213];   h(9:10)=[-0.012580751999 0.003335725285];endif regu==6,   h(1:2)=[0.111540743350 0.494623890398];   h(3:4)=[0.751133908021 0.315250351709];   h(5:6)=[-0.226264693965 -0.129766867567];   h(7:8)=[0.097501605587 0.027522865530];   h(9:10)=[-0.031582039318 0.000553842201];   h(11:12)=[0.004777257511 -0.001077301085];endif regu==7,   h(1:2)=[0.077852054085 0.396539319482];   h(3:4)=[0.729132090846 0.469782287405];   h(5:6)=[-0.143906003929 -0.224036184994];   h(7:8)=[0.071309219267 0.080612609151];   h(9:10)=[-0.038029936935 -0.016574541631];   h(11:12)=[0.012550998556 0.000429577973];   h(13:14)=[-0.001801640704 0.000353713800];endif regu==8,   h(1:2)=[0.054415842243 0.312871590914];   h(3:4)=[0.675630736297 0.585354683654];   h(5:6)=[-0.015829105256 -0.284015542962];   h(7:8)=[0.000472484574 0.128747426620];   h(9:10)=[-0.017369301002 -0.044088253931];   h(11:12)=[0.013981027917 0.008746094047];   h(13:14)=[-0.004870352993 -0.000391740373];   h(15:16)=[0.000675449406 -0.000117476784];endif regu==9,   h(1:2)=[0.038077947364 0.243834674613];   h(3:4)=[0.604823123690 0.657288078051];   h(5:6)=[0.133197385825 -0.293273783279];   h(7:8)=[-0.096840783223 0.148540749338];   h(9:10)=[0.030725681479 -0.067632829061];   h(11:12)=[0.000250947115 0.022361662124];   h(13:14)=[-0.004723204758 -0.004281503682];   h(15:16)=[0.001847646883 0.000230385764];   h(17:18)=[-0.000251963189 0.000039347320];endif regu==10,   h(1:2)=[0.026670057901 0.188176800078];   h(3:4)=[0.52720118932 0.688459039454];   h(5:6)=[0.281172343661 -0.249846424327];   h(7:8)=[-0.195946274377 0.127369340336];   h(9:10)=[0.093057364604 -0.071394147166];   h(11:12)=[-0.029457536822 0.033212674059];   h(13:14)=[0.003606553567 -0.010733175483];   h(15:16)=[0.001395351747 0.001992405295];   h(17:18)=[-0.000685856695 -0.000116466855];   h(19:20)=[0.000093588670 -0.000013264203];endendnpb=0;nph=0;g=(-1).^(nph:nph-1+max(size(h))).*fliplr(h);hh=h;clear hh2=hh*sqrt(2);g2=g*sqrt(2);    clear hh g %%%%%%%%%%%%% phi ou psi  %%%%%%%%%%%%%%%%%%if test==1,   approx=h2;   napprox=npb;   b=h2;   nb=npb;   for k=1:1:nbvoies-1      fprintf('%d  ',k)      [b,nb]=upsample(b,nb);      [approx,napprox]=convoluteur(approx,napprox,b,nb);   endendif test==2,   approx=g2;   napprox=nph;   for k=1:1:nbvoies-1      [approx,napprox]=upsample(approx,napprox);   end   b=h2;   nb=npb;   for k=1:1:nbvoies-1      %fprintf('%d  ',k)      [approx,napprox]=convoluteur(approx,napprox,b,nb);       [b,nb]=upsample(b,nb);   endend%approx=approx*2^(-nbvoies/2);tapprox=0:1:max(size(approx))-1;tapprox=tapprox+napprox;tapprox=tapprox*2^(-nbvoies);%plot(tapprox,approx)