summaryrefslogtreecommitdiff
path: root/3773/CH8/EX8.2/Ex8_2.sce
blob: e56ba6995e28efdd3956c8fb3654137e3789b821 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Chapter 8: Helical Antennas
//Example 8-5.2
clc;

//Variable Initialization
n = 16.0        //Number of turns (unitless)
C = 1       //Circumference (lambda)
S = 0.25        //Turn Spacing (lambda)

//Calculation
hpbw = 52/(C*sqrt(n*S)) //Half power beamwidth (degrees)
ax_rat = (2*n + 1)/(2*n)    //Axial ratio (unitless)
gain = 12*(C**2)*n*S        //Gain of antenna (unitless)
gain_db = 10*log10(gain)    //Gain of antenna (in dBi)

mprintf("The half power beam width is %d degrees", hpbw)
mprintf("\nThe axial ratio is %.2f",ax_rat)
mprintf("\nThe gain is %d or %.1f dBi",gain,gain_db)