
function ShowFrame(h0,h1,h2)

% ShowFrame(h0,h1,h2)
%
% Ivan Selesnick
% selesi@taco.poly.edu

fsa = 6;    % FONT SIZE FOR AXES

R = 3;

n0 = length(h0);
n1 = length(h1);
n2 = length(h2);

[s,t] = scalfn(h0);
[w0,s,t] = wletfn(h0,h1);
[w1,s,t] = wletfn(h0,h2);

ax  = [0 n0-1 -0.5 1];
ax2 = [0 n0-1 -1 1];

subplot(R,3,1), plot(t,s),   set(gca,'fontsize',fsa), axis(ax)
makelab('\phi')
subplot(R,3,4), plot(t,w0),  set(gca,'fontsize',fsa), axis(ax2) 
makelab('\psi_1')
subplot(R,3,7), plot(t,w1),  set(gca,'fontsize',fsa), axis(ax2) 
makelab('\psi_2')

ax  = [-0.5 n0-0.5 -0.5 1];
ax2 = [-0.5 n0-0.5 -1.0 1];

subplot(R,3,2), stem(0:n0-1,h0,'.'),  set(gca,'fontsize',fsa), axis(ax)
makelab('h_0')
subplot(R,3,5), stem(0:n1-1,h1,'.'), set(gca,'fontsize',fsa), axis(ax2)
makelab('h_1',1)
subplot(R,3,8), stem(0:n2-1,h2,'.'), set(gca,'fontsize',fsa), axis(ax2)
makelab('h_2',1)

[H0,w] = freqz(h0);
[H1,w] = freqz(h1);
[H2,w] = freqz(h2);

ax  = [0 1 0 1.5];

subplot(R,3,3), plot(w/pi,abs(H0)), set(gca,'fontsize',fsa), axis(ax)
makelab('|H_0|')
subplot(R,3,6), plot(w/pi,abs(H1)), set(gca,'fontsize',fsa), axis(ax)
makelab('|H_1|',1)
subplot(R,3,9), plot(w/pi,abs(H2)), set(gca,'fontsize',fsa), axis(ax)
makelab('|H_2|',1)



function makelab(lab,K)
% --- make lables ---

A = 0.8;	% horizontal point
B = 0.75;	% vertical point
fsp = 9;	% FONT SIZE FOR \PHI(t) labels

if nargin > 1
	A = 0.1;
end

ax1 = axis;
t1 = text(A*ax1(2),ax1(3)+B*(ax1(4)-ax1(3)),lab);
set(t1,'fontsize',fsp);




