// chapter 7 example 7
//-----------------------------------------------------------------------------
clc;
clear;
// given data
// given (lamda/10) wire dipole
// Radiation resistance of short dipoles is Rr  = 790*(1/lamda)^2;
// Rr   = 790*(lamda/(10*lamda))^2;
// Rr   = 7.9;
mprintf('Radiation resistance = 7.9 ohms');
//------------------------------------------------------------------------------