summaryrefslogtreecommitdiff
path: root/3014/CH7
diff options
context:
space:
mode:
Diffstat (limited to '3014/CH7')
-rwxr-xr-x3014/CH7/EX7.1/Ex7_1.sce13
-rwxr-xr-x3014/CH7/EX7.1/Ex7_1.txt3
-rwxr-xr-x3014/CH7/EX7.10/Ex7_10.sce15
-rwxr-xr-x3014/CH7/EX7.10/Ex7_10.txt4
-rwxr-xr-x3014/CH7/EX7.11/Ex7_11.sce13
-rwxr-xr-x3014/CH7/EX7.11/Ex7_11.txt4
-rwxr-xr-x3014/CH7/EX7.12/Ex7_12.sce14
-rwxr-xr-x3014/CH7/EX7.12/Ex7_12.txt3
-rwxr-xr-x3014/CH7/EX7.13/Ex7_13.sce17
-rwxr-xr-x3014/CH7/EX7.13/Ex7_13.txt3
-rwxr-xr-x3014/CH7/EX7.2/Ex7_2.sce15
-rwxr-xr-x3014/CH7/EX7.2/Ex7_2.txt4
-rwxr-xr-x3014/CH7/EX7.3/Ex7_3.sce13
-rwxr-xr-x3014/CH7/EX7.3/Ex7_3.txt3
-rwxr-xr-x3014/CH7/EX7.5/Ex7_5.sce19
-rwxr-xr-x3014/CH7/EX7.5/Ex7_5.txt4
-rwxr-xr-x3014/CH7/EX7.7/Ex7_7.sce18
-rwxr-xr-x3014/CH7/EX7.7/Ex7_7.txt4
-rwxr-xr-x3014/CH7/EX7.8/Ex7_8.sce13
-rwxr-xr-x3014/CH7/EX7.8/Ex7_8.txt3
-rwxr-xr-x3014/CH7/EX7.9/Ex7_9.sce12
-rwxr-xr-x3014/CH7/EX7.9/Ex7_9.txt3
22 files changed, 200 insertions, 0 deletions
diff --git a/3014/CH7/EX7.1/Ex7_1.sce b/3014/CH7/EX7.1/Ex7_1.sce
new file mode 100755
index 000000000..0209dc224
--- /dev/null
+++ b/3014/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,13 @@
+
+clc
+//Given that
+p = 1000 // power in watt
+d = 2 // Distance from lamp in m
+epsilon_0 = 8.854e-12 // Permittivity of free space
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+printf("Example 7.1")
+s = p/(4*%pi*d^2)// Calculation of pointing vector
+E_H_ratio = sqrt(mu_0/epsilon_0) // Calculation of ratio of Electric field and magnetic field
+E= sqrt(E_H_ratio*s) // Calculation of Electric field
+printf("\n Average value of electric field at distance %d m is %f Volt/m \n\n\n",d,E)
+// Answer in book is 48.87 volt/m which is due to wrong calculation at intermediate steps
diff --git a/3014/CH7/EX7.1/Ex7_1.txt b/3014/CH7/EX7.1/Ex7_1.txt
new file mode 100755
index 000000000..a7be705dc
--- /dev/null
+++ b/3014/CH7/EX7.1/Ex7_1.txt
@@ -0,0 +1,3 @@
+ Example 7.1
+ Average value of electric field at distance 2 m is 86.573038 Volt/m
+
diff --git a/3014/CH7/EX7.10/Ex7_10.sce b/3014/CH7/EX7.10/Ex7_10.sce
new file mode 100755
index 000000000..d2bbf802e
--- /dev/null
+++ b/3014/CH7/EX7.10/Ex7_10.sce
@@ -0,0 +1,15 @@
+
+clc
+//Given that
+p = 500 // power in watt
+d = 1 // Distance from lamp in m
+epsilon_0 = 8.854e-12 // Permittivity of free space
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+printf("Example 7.10")
+s = p/(4*%pi*d^2)// Calculation of pointing vector
+E_H_ratio = sqrt(mu_0/epsilon_0) // Calculation of ratio of Electric field and magnetic field
+H = s/E_H_ratio // Calculation of Electric field
+h = ceil(H*100)/100 // rounding off for 2 decimal places
+E= p/(4*%pi*h) // Calculation of Electric field
+printf("\n Average value of electric field at distance %d m is %f Volt/m ",d,E)
+printf("\n Average value of magnetic field at distance %d m is %f Amp-turn/m \n\n\n",d,h)
diff --git a/3014/CH7/EX7.10/Ex7_10.txt b/3014/CH7/EX7.10/Ex7_10.txt
new file mode 100755
index 000000000..762603d79
--- /dev/null
+++ b/3014/CH7/EX7.10/Ex7_10.txt
@@ -0,0 +1,4 @@
+
+Example 7.10
+ Average value of electric field at distance 1 m is 122.432765 Volt/m
+ Average value of magnetic field at distance 1 m is 0.324984 Amp-turn/m
diff --git a/3014/CH7/EX7.11/Ex7_11.sce b/3014/CH7/EX7.11/Ex7_11.sce
new file mode 100755
index 000000000..c262d1919
--- /dev/null
+++ b/3014/CH7/EX7.11/Ex7_11.sce
@@ -0,0 +1,13 @@
+
+clc
+//Given that
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+mu = mu_0 //Permeability of silver
+sigma = 3.5e7 // conductivity in simens /m
+delta = 0.03 // Skin depth penetration in mm
+
+printf("Example 7.11")
+
+f = 2/((delta*1e-3)^2*sigma*mu*2*%pi) // Calculation of skin depth penetration
+printf("\n Required frequency is %d MHz.",f/1e6)
+printf("\n The incident electromagnetic wave is the radio part of spectrum")
diff --git a/3014/CH7/EX7.11/Ex7_11.txt b/3014/CH7/EX7.11/Ex7_11.txt
new file mode 100755
index 000000000..5050c1461
--- /dev/null
+++ b/3014/CH7/EX7.11/Ex7_11.txt
@@ -0,0 +1,4 @@
+
+
+Example 7.11
+ Required frequency is 8 MHz.
diff --git a/3014/CH7/EX7.12/Ex7_12.sce b/3014/CH7/EX7.12/Ex7_12.sce
new file mode 100755
index 000000000..af83bfbb0
--- /dev/null
+++ b/3014/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,14 @@
+
+clc
+//Given that
+p = 3.8e26 // power radiated by moon in watt
+d_sun = 1.44e11 // Distance between sun and earth in meter
+d_moon = 3e8 //Distance between moon and earth in meter
+epsilon_0 = 8.854e-12 // Permittivity of free space
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+printf("Example 7.12")
+s = p/(4*%pi*d_sun^2)// Calculation of solar energy received during solar eclipse in watt /m^2
+S = s*60/(4.2*1e4) // Unit conversion
+
+printf("\n Solar energy received during solar eclipse is %f Cal per min per m^2 \n\n\n",S)
+// Ansewr in book is 2.1 cal per min per m^2
diff --git a/3014/CH7/EX7.12/Ex7_12.txt b/3014/CH7/EX7.12/Ex7_12.txt
new file mode 100755
index 000000000..37fd989bc
--- /dev/null
+++ b/3014/CH7/EX7.12/Ex7_12.txt
@@ -0,0 +1,3 @@
+
+Example 7.12
+ Solar energy received during solar eclipse is 1.999130 Cal per min per m^2
diff --git a/3014/CH7/EX7.13/Ex7_13.sce b/3014/CH7/EX7.13/Ex7_13.sce
new file mode 100755
index 000000000..89f689d15
--- /dev/null
+++ b/3014/CH7/EX7.13/Ex7_13.sce
@@ -0,0 +1,17 @@
+
+
+clc
+//Given that
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+mu = mu_0 //Permeability of silver
+sigma = 3.5e7 // conductivity in simens /m
+lambda = 6328 // Wavelength in angstrom
+c = 3e8// Speed of light in m/sec
+
+printf("Example 7.13")
+f = c/(lambda*1e-10)
+omega = 2*%pi/f // Calculation of time period
+f = c/(lambda*1e-10) // Calculation of frequency in Hz
+delta = sqrt(1/(%pi*f*sigma*mu)) // Calculation of skin depth penetration
+printf("\n Skin depth penetration is %f nm. \n\n\n",delta*1e9)
+// Answer in book is 3.9 mm, unit used in book is wrong
diff --git a/3014/CH7/EX7.13/Ex7_13.txt b/3014/CH7/EX7.13/Ex7_13.txt
new file mode 100755
index 000000000..7d9f55b4c
--- /dev/null
+++ b/3014/CH7/EX7.13/Ex7_13.txt
@@ -0,0 +1,3 @@
+
+Example 7.13
+ Skin depth penetration is 3.907138 nm.
diff --git a/3014/CH7/EX7.2/Ex7_2.sce b/3014/CH7/EX7.2/Ex7_2.sce
new file mode 100755
index 000000000..41b1cd005
--- /dev/null
+++ b/3014/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,15 @@
+
+clc
+//Given that
+p = 2 // power in cal/min/cm^2
+
+epsilon_0 = 8.854e-12 // Permittivity of free space
+mu_0 = 4*%pi*1e-7 // permeability of free space
+printf("Example 7.2")
+s = p*4.2e4/60 // Calculation of pointing vector
+E_H_ratio = sqrt(mu_0/epsilon_0) // Calculation of ratio of Electric field and magnetic field
+E= sqrt(E_H_ratio*s) // Calculation of Electric field
+H = s/E // Calculation of Electric field
+
+printf("\n Average value of electric field is %f Volt/m ",E*sqrt(2))
+printf(" \nAverage value of magnetic field is %f Amp turn/m \n\n\n",H*sqrt(2))
diff --git a/3014/CH7/EX7.2/Ex7_2.txt b/3014/CH7/EX7.2/Ex7_2.txt
new file mode 100755
index 000000000..2959e8640
--- /dev/null
+++ b/3014/CH7/EX7.2/Ex7_2.txt
@@ -0,0 +1,4 @@
+
+Example 7.2
+ Average value of electric field is 1027.061861 Volt/m.
+Average value of magnetic field is 2.726223 Amp turn/m. \ No newline at end of file
diff --git a/3014/CH7/EX7.3/Ex7_3.sce b/3014/CH7/EX7.3/Ex7_3.sce
new file mode 100755
index 000000000..167f73ce2
--- /dev/null
+++ b/3014/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,13 @@
+
+clc
+//Given that
+mu_0 = 4*%pi*1e-7 // permeability of free space
+mu = mu_0 //permeability of silver
+sigma = 3e7 // conductivity in mhos/m
+f = 1e8 // frequency in Hz
+printf("Example 7.3")
+omega = 2*%pi/f // Calculation of time period
+delta = sqrt(2/(omega*sigma*mu)) // Calculation of skin depth penetration
+Delta = floor (delta/100)*100 // Rounding off
+printf("\n Skin depth penetration is %e cm. \n\n\n",Delta*1e-6)
+
diff --git a/3014/CH7/EX7.3/Ex7_3.txt b/3014/CH7/EX7.3/Ex7_3.txt
new file mode 100755
index 000000000..6cc9f7539
--- /dev/null
+++ b/3014/CH7/EX7.3/Ex7_3.txt
@@ -0,0 +1,3 @@
+
+Example 7.3
+ Skin depth penetration is 9.188815e-04 cm.
diff --git a/3014/CH7/EX7.5/Ex7_5.sce b/3014/CH7/EX7.5/Ex7_5.sce
new file mode 100755
index 000000000..5d50688ed
--- /dev/null
+++ b/3014/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,19 @@
+
+clc
+//Given that
+k = 80 // relative Dielectric constant of sea water
+epsilon_0 = 1/9e9 // Permittivity of free space
+epsilon = 80*epsilon_0 // Permittivity of free space
+sigma = 4.3 // conductivity in mho/m
+delta = 10 // penetration depth in cm
+mu_0 = 4*%pi*1e-7 // permeability f free space
+F = 1e8 // Given frequency in Hz
+printf("Example 7.5")
+f = (1/(%pi*mu_0*sigma))/(delta*1e-2)^2 // Calculation of frequency
+f1= ceil(f/1e8)*1e8 // Rounding off
+printf("\nFrequency required for penetration of depth %d cm is %e Hz",delta,f1)
+omega = 2*%pi*F
+x = 2*sigma/(epsilon*omega)
+if x>1 then
+ printf("\n Sea water is good conductor at frequency lesser than 1e8 Hz\n\n ")
+end
diff --git a/3014/CH7/EX7.5/Ex7_5.txt b/3014/CH7/EX7.5/Ex7_5.txt
new file mode 100755
index 000000000..136f4d936
--- /dev/null
+++ b/3014/CH7/EX7.5/Ex7_5.txt
@@ -0,0 +1,4 @@
+
+Example 7.5
+Frequency required for penetration of depth 10 cm is 1.716212e+03 Hz.
+ Sea water is good conductor at frequency lesser than 1e8 Hz.
diff --git a/3014/CH7/EX7.7/Ex7_7.sce b/3014/CH7/EX7.7/Ex7_7.sce
new file mode 100755
index 000000000..5ff36e6e0
--- /dev/null
+++ b/3014/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,18 @@
+
+clc
+//Given that
+k = 12 // relative Dielectric constant of sea water
+epsilon_0 = 1/9e9 // Permittivity of free space
+sigma = 2 // conductivity in mho/cm
+mu_0 = 4*%pi*1e-7 // permeability f free space
+f= 1e9 // Given frequency in Hz
+F = 1e6 // Given frequency in Hz
+printf("\nExample 7.7")
+delta = sqrt(2/(2*%pi*F*mu_0*sigma*100)) // Calculation of frequency
+printf("\n For %eHz frequency, Penetration depth is %f cm",F,delta*100)
+omega = 2*%pi*f
+x = 2*sigma*100/(k*epsilon_0*omega)
+if x>1 then
+ printf("\n Silicon is good conductor at frequency lesser than 1e9 Hz \n\n\n")
+end
+// Answer in book is 3.6 cm
diff --git a/3014/CH7/EX7.7/Ex7_7.txt b/3014/CH7/EX7.7/Ex7_7.txt
new file mode 100755
index 000000000..854cd5f3b
--- /dev/null
+++ b/3014/CH7/EX7.7/Ex7_7.txt
@@ -0,0 +1,4 @@
+
+Example 7.7
+ For frequency 1.000000e+06 Penetration depth is 3.558813 cm
+ Silicon is good conductor at frequency lesser than 1e9 Hz
diff --git a/3014/CH7/EX7.8/Ex7_8.sce b/3014/CH7/EX7.8/Ex7_8.sce
new file mode 100755
index 000000000..198827463
--- /dev/null
+++ b/3014/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,13 @@
+clc
+//Given that
+mu_0 = 4*%pi*1e-7 // permeability of free space
+mu = mu_0 //permeability of silver
+sigma = 5.8e7 // conductivity in simens /m
+delta = 0.1 // Skin depth penetration in mm
+
+printf("Example 7.8")
+f = 2/((delta*1e-3)^2*sigma*mu*2*%pi) // Calculation of skin depth penetration
+printf("\n Required frequency is %.2e Hz",f)
+printf("\n The incident electromagnetic wave is the radio part of spectrum.")
+// Answer in book is 3.36e5 Hz. Difference is due to approximation at intermediate stages
+
diff --git a/3014/CH7/EX7.8/Ex7_8.txt b/3014/CH7/EX7.8/Ex7_8.txt
new file mode 100755
index 000000000..175c8f6f8
--- /dev/null
+++ b/3014/CH7/EX7.8/Ex7_8.txt
@@ -0,0 +1,3 @@
+
+Example 7.8
+ Required frequency is 4.367292e+05 Hz
diff --git a/3014/CH7/EX7.9/Ex7_9.sce b/3014/CH7/EX7.9/Ex7_9.sce
new file mode 100755
index 000000000..04c29812e
--- /dev/null
+++ b/3014/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,12 @@
+
+
+clc
+//Given that
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+mu = mu_0 //Permeability of silver
+sigma = 3e7 // conductivity in mhos/m
+f = 1e10 // frequency in Hz
+printf("Example 7.9")
+delta = sqrt(1/(%pi*sigma*f*mu)) // Calculation of skin depth penetration
+printf("\n Skin depth penetration is %f micrometre. \n\n\n",delta*1e6)
+// Answer in book is 0.93 micrometer
diff --git a/3014/CH7/EX7.9/Ex7_9.txt b/3014/CH7/EX7.9/Ex7_9.txt
new file mode 100755
index 000000000..7eec8e2be
--- /dev/null
+++ b/3014/CH7/EX7.9/Ex7_9.txt
@@ -0,0 +1,3 @@
+
+Example 7.9
+ Skin depth penetration is 0.918881 micrometre.
generated by cgit (git 2.34.1) at 2024-12-20 17:05:44 +0000