From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3773/CH25/EX25.2/Ex25_2.sce | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 3773/CH25/EX25.2/Ex25_2.sce

(limited to '3773/CH25/EX25.2/Ex25_2.sce')

diff --git a/3773/CH25/EX25.2/Ex25_2.sce b/3773/CH25/EX25.2/Ex25_2.sce
new file mode 100644
index 000000000..789d4a66d
--- /dev/null
+++ b/3773/CH25/EX25.2/Ex25_2.sce
@@ -0,0 +1,18 @@
+//Chapter 25: Sky Wave Propagation
+//Example 25-5.2
+clc;
+
+//Variable Initialization
+fE = 3e6        //Critical frequency for E layer (Hz)
+fF1 = 5e6       //Critical frequency for F1 layer (Hz)
+fF2 = 9e6       //Critical frequency for F2 layer (Hz)
+
+//Calculations
+N_E = (fE**2)/81    //Concentration of electrons in E layer (per cubic cm)
+N_F1 = (fF1**2)/81 //Concentration of electrons in F1 layer (per cubic cm)
+N_F2 = (fF2**2)/81 //Concentration of electrons in F2 layer (per cubic cm)
+
+//Result
+mprintf( "The concentration of electrons in E layer is %e per cubic cm",N_E)
+mprintf( "\nThe concentration of electrons in F1 layer is %e per cubic cm", N_F1)
+mprintf( "\nThe concentration of electrons in F2 layer is %e per cubic cm", N_F2)
-- 
cgit