summaryrefslogtreecommitdiff
path: root/728/CH6/EX6.5/Ex6_5.sce
blob: 444a76bccbbcf68df0701172ad49aaa236a3deca (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Caption:Determine the powers in the remaining ports
//Exa:6.5
clc;
clear;
close;
b_1=20;
b_2=20;
p_1=abs((60-50)/(60+50));
p_2=abs((75-50)/(75+50));
P_1=b_1*(1-p_1^2)/2;
P_2=b_2*(1-p_2^2)/2;
disp(P_1,'Power in port1 (in mW) =');
disp(P_2,'Power in port2 (in mW) =');