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

---
 3739/CH2/EX2.3/EX2_3.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 3739/CH2/EX2.3/EX2_3.sce

(limited to '3739/CH2/EX2.3/EX2_3.sce')

diff --git a/3739/CH2/EX2.3/EX2_3.sce b/3739/CH2/EX2.3/EX2_3.sce
new file mode 100644
index 000000000..db77bc868
--- /dev/null
+++ b/3739/CH2/EX2.3/EX2_3.sce
@@ -0,0 +1,25 @@
+//Chapter 2, Example 2_3, page 37
+clc
+
+//Initialisation
+s=0.08                                     //medium conductivit
+w=10**7                                    //angular velocity
+e=8.85*10**-7                              //permitivity if free space
+u=14                                       //medium permeability
+uo=4*3.14*10**-7                           //permeability of free space
+pi=3.14
+
+//Calculation
+f=w*(2*pi)**-1                          //frequency
+a1=sqrt(f*pi*s*uo)                       //attenuation
+b=a1                                       //phase
+d=complex(a1,b)
+y=d                                       //propagation constants
+z=log10(0.5)/(-log10(exp(1))*2*a1)          //Depth of the land
+
+//Result
+printf("(1) Attenuation = %.1f Np/m",a1)
+printf("\n    Phase = %.1f Rad/m",b)
+printf("\n    Propagation constant = %.1f",real(y))
+printf("\n                           + %.1f j rad/m",imag(y))
+printf("\n(2) Depth of land = %.2f m",z)
-- 
cgit