summaryrefslogtreecommitdiff
path: root/2414/CH17/EX17.3/Ex17_3.sce
blob: 85231bb08e71450a9484753b60b457ff0ea9929c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc;
close();
clear();
//page no 552
//prob no. 17.3
c=3*10^8;   //speed of light in m/s
f=3.7*10^9;   //Hz
lembda=c/f;   //m
mprintf('The wave length is %.4f cm \n',lembda*100)
theta_3dB=8;    //degree
D=70*lembda/theta_3dB     //m
mprintf('The diameter is, D= %.4f m \n',D);
eta_1=.6;     //illumination efficiency 
G=eta_1*(%pi*D/lembda)^2;    //gain calculation
mprintf('The Gain is G= %.2f \n',G)
G_dB=10*log10(G);   //dB gain
mprintf('The Gain in dB is G(dB)= %.3f dB \n',G_dB)