function f1=Wavelettrans2D(A,h,k0,g,k1)

% berechnet die zweidimensionale periodische Wavelet-Transformation der (M x N)- Matrix A 
%J=1 (ein Zerlegungslevel)
%M,N gerade!


[M,N]=size(A); %Dimension von A


B=zeros(M,N);
for j=1:M for k=1:N B(j,k)=A(j,k); end; end;

f2=zeros(N,M);
f1=zeros(M,N);

for k=1:N f2(k,:)=zerlegungper(B(:,k)',h,k0,g,k1,1); end
f3=f2';
for j=1:M f1(j,:)= zerlegungper(f3(j,:),h,k0,g,k1,1);  end	
	
