1 files changed, 19 insertions, 0 deletions
diff --git a/3739/CH2/EX2.10/EX2_10.sce b/3739/CH2/EX2.10/EX2_10.sce
new file mode 100644
index 000000000..7a5116df2
--- /dev/null
+++ b/3739/CH2/EX2.10/EX2_10.sce
@@ -0,0 +1,19 @@
+//Chapter 2, Example 2.10, page 50
+clc
+//Initialisation
+ri1=1.00025                         //refractive index
+ri2=1.00023                        //refractive index
+h1=1                                //height in Km
+h2=1.5                              //height in Km
+n=1.00026                           //variation
+
+
+//Calculation
+deln=ri1-ri2
+delh=h2-h1
+d=deln/delh
+R=n/d                              //radius of curvature
+
+
+//Result
+printf("Radiowave curvature radius, R = %.d Km",R)