% Generates Figure 7.2

Sitzung_S183
Sitzung_S185

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