//Page Number: 250
//Example 4.24
clc;
//Given
//As it is perfectly matched
S12=1/sqrt(2);
S21=S12;
s=[0 S12;S21 0];
disp(s,'Scattering matrix:');