summaryrefslogtreecommitdiff
path: root/3281/CH4/EX4.18/ex4_18.sce
blob: 4aee6c2a4c90f19cf2532a76eaf976d1161c632b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Page Number: 236
//Example 4.18
clc;
//Given
C=10; //dB
D=30; //dB

//Parameters
bet=10^(-C/20);
x=bet/(10^(D/20));
a=sqrt(1-(bet*bet));
//Scattering matrix
//Assuming symmetery
s=[0 a x (bet*%i);a 0 (bet*%i) x;x (bet*%i) 0 a;(bet*%i) x a 0];
disp(s,'Scattering matrix:');