summaryrefslogtreecommitdiff
path: root/2219/CH4/EX4.5/Ex4_5.sce
blob: 1b510fb016b3add39d4978ffbf9f8acf451ae905 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// chapter 4 example 5
//-----------------------------------------------------------------------------
clc;
clear;
// given data
Pi      = 5*10^-3;            // Input power in W
CF      = 10;                // coupling factor
Piso    = 10*10^-6           // power at isolated port in w
// calculations
// CF   = 10log(Pi/Pc)
Pc      = Pi/(10^(CF/10))  // antilog conversion and coupling power
// D    = 10log(Pc/Piso)    // Directivity
D       = 10*log10(Pc/Piso)
// Output
mprintf('Directivity = %3.0f dB\n',D);
//------------------------------------------------------------------------------