% Reproduce Example 1

% K0 = 4, K1 = K2 = 2

K0 = 4;
K1 = 2;
N = K0+K1;
format long

[h0,h1,h2] = wframe(K0,K1); 
figure(1), clf
ShowFrame(h0,h1,h2);
[0:N-1; h0; h1; h2]'

for k = 1:2
   h0 = h0;
   h1 = h1;
   h2 = [0 0 h2(1:N-2)];
   [h1,h2] = makez(h1,h2,N);
   figure(k+1), clf
   ShowFrame(h0,h1,h2);
   [0:N-1; h0; h1; h2]'
end