% Generates Figure 7.2

session_p151

subplot(1,2,1), spy(A(perm,perm)); 
subplot(1,2,2), spy(R');