summaryrefslogtreecommitdiff
path: root/605/CH11/EX11.4/11_4.sce
blob: 42113cae32fc73026bcf7d6ec33a40ffc0eac564 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

//for transistor A
function x=mod(n)
    r=real(n)
    i=imag(n)
    x=sqrt(r^2+i^2)
endfunction

S11=0.45*exp(%i*%pi/180*150)
S12=0.01*exp(-%i*%pi/180*10)
S21=2.05*exp(%i*%pi/180*10)
S22=0.4*exp(-%i*%pi/180*150)
UA=(mod(S12)*mod(S21)*mod(S11)*mod(S22))/(1-mod(S11)^2)/(1-mod(S22)^2)
disp(UA,"UA=")
//for transistor B
S11=0.641*exp(-%i*%pi/180*171.3)
S12=0.057*exp(%i*%pi/180*16.3)
S21=2.058*exp(%i*%pi/180*28.5)
S22=0.572*exp(-%i*%pi/180*95.7)
UB=(mod(S12)*mod(S21)*mod(S11)*mod(S22))/(1-mod(S11)^2)/(1-mod(S22)^2)
disp(UB,"UB=")