summaryrefslogtreecommitdiff
path: root/3281/CH3/EX3.5/ex3_5.sce
blob: 0a21fa91091092f592838b6746e87ed23de5af8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Page Number: 142
//Example 3.5
clc;
//Given
P=12.8D-3; //W
l=3; //cm
lamb=4.2; //cm
vswr=2.2;
jfi=%i*4.49;

//ap
ap=sqrt(2*P);

//Phase shift
bl=(2*%pi*l)/lamb;
//bp
bp=(ap*(vswr-1))/(vswr+1);

a=ap*exp(jfi);
b=bp*exp(jfi);
disp(a,b,'Required Waves:');