summaryrefslogtreecommitdiff
path: root/2219/CH7/EX7.2/Ex7_2.sce
blob: 3a8f569d50771b6dc003a2ed2d2de6ea9ac3c692 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// chapter 7 example 2
//-----------------------------------------------------------------------------
clc;
clear;
// given data
Rr      = 72;       // Radiation resistance in ohms
Rl      = 8;        // Loss resistance in ohms
Ap      = 27;       // power gain 

// Calculations
n       = Rr/(Rr + Rl);     // radiation efficiency
D       = Ap/n;             // Directivity
D_dB    = 10*log10(D);      // directivity in dB

// Output
mprintf('Directivity = %3.2f dB',D_dB );
//------------------------------------------------------------------------------