summaryrefslogtreecommitdiff
path: root/1697/CH3/EX3.3/Exa3_3.sce
blob: c4ccec5ad4c252c4c2db2a88baa6e1c13a6c4157 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Exa 3.3
clc;
clear;
close;
//given data :
le=125;//in m
Irms=5;//in A
lambda=1.25;//in Km
lambda=lambda*10^3;//in m
Rl=10;//in Ohm
//radiation Resistance
Rr=(80*%pi^2)*(le/lambda)^2;//in Ohm
Rr=round(Rr);//in Ohm : approx
disp(Rr,"Radiation resistance in Ohm : ");
//Power radiated
W=(Irms^2)*Rr;//in 
disp(W,"Power radiated in W : ")
//Antenna efficiency 
ETA=Rr/(Rr+Rl)
disp(ETA*100,"Antenna efficiency in % : ");