summaryrefslogtreecommitdiff
path: root/3773/CH15/EX15.4/Ex15_4.sce
blob: e806a6e7ad5513c7199776fa6a83429606a15583 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Chapter 15: Antennas for Special Applications
//Example 15-13.1
clc;

//Variable Initialization
fre = 3e9  //Frequency (Hz)
Re_Zc = 14.4e-3 //Real part of intrinsic impedance of copper (ohm)
Zd = 377    //Intrinsic impedance of air (ohm)

//Calculation
tau = atan(Re_Zc/Zd)*180/%pi //Tilt angle (degrees)

//Result
mprintf("The tilt angle is %.4f degrees",tau)