summaryrefslogtreecommitdiff
path: root/3773/CH17/EX17.2/Ex17_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3773/CH17/EX17.2/Ex17_2.sce')
-rw-r--r--3773/CH17/EX17.2/Ex17_2.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/3773/CH17/EX17.2/Ex17_2.sce b/3773/CH17/EX17.2/Ex17_2.sce
new file mode 100644
index 000000000..8c14ef9b1
--- /dev/null
+++ b/3773/CH17/EX17.2/Ex17_2.sce
@@ -0,0 +1,25 @@
+//Chapter 17: Antenna Temperature, Remote Sensing and Radar Cross Section
+//Example 17-1.2
+clc;
+
+//Variable Initialization
+eff_aper = 500 //Antenna effective aperture (m^2)
+wave_lt = 20e-2 //Wavelength (m)
+Tsky = 10.0 //Sky temperature (K)
+Tgnd = 300.0 //Ground temperature (K)
+beam_eff = 0.7 //Beam efficiency (unitless)
+aper_eff = 0.5 //Aperture efficiency (unitless)
+
+//Calculations
+phy_aper = aper_eff/eff_aper //Physical aperture (m^2)
+diam = 2*sqrt(phy_aper/%pi) //Antenna diameter (m)
+diam_l = diam/wave_lt //Antenna diameter (lambda)
+
+ta_sky = Tsky*beam_eff //Sky contribution to antenna temp. (K)
+ta_side = 0.5*Tsky*(1-beam_eff) //Side-lobe contribution to antenna temp. (K)
+ta_back = 0.5*Tgnd*(1-beam_eff) //Back-lobe contribution to antenna temp. (K)
+
+Ta = ta_sky + ta_side + ta_back
+
+//Result
+mprintf("The total antenna temperature is %.1f K", Ta)