6 files changed, 41 insertions, 0 deletions
diff --git a/3648/CH21/EX21.1/Ex21_1.sce b/3648/CH21/EX21.1/Ex21_1.sce
new file mode 100644
index 000000000..333ba6609
--- /dev/null
+++ b/3648/CH21/EX21.1/Ex21_1.sce
@@ -0,0 +1,8 @@
+//Example 21_1
+clc();
+clear;
+//To find the wavelength of the electromagnetic wave
+v=3*10^8      //Units in meters/sec
+f=1.02*10^6       //Units in Hz
+lamda=v/f   //Units in Meters
+printf("The Wavelength of the Electromagnetic wave is lamda=%d meters",lamda)
diff --git a/3648/CH21/EX21.1/Ex21_1.txt b/3648/CH21/EX21.1/Ex21_1.txt
new file mode 100644
index 000000000..6ed704004
--- /dev/null
+++ b/3648/CH21/EX21.1/Ex21_1.txt
@@ -0,0 +1 @@
+The Wavelength of the Electromagnetic wave is lamda=294 meters 
+\ No newline at end of file
diff --git a/3648/CH21/EX21.2/Ex21_2.sce b/3648/CH21/EX21.2/Ex21_2.sce
new file mode 100644
index 000000000..7bc9ea779
--- /dev/null
+++ b/3648/CH21/EX21.2/Ex21_2.sce
@@ -0,0 +1,10 @@
+//Example 21_2
+clc();
+clear;
+//To find the value of magnetic field
+eo=4.2*10^-3   //units in V/m
+c=3*10^8          //Units in meters/sec
+bo=eo/c       //Units in T
+printf("The value of the magnetic field is Bo=")
+disp(bo)
+printf("T")
diff --git a/3648/CH21/EX21.2/Ex21_2.txt b/3648/CH21/EX21.2/Ex21_2.txt
new file mode 100644
index 000000000..95923a34d
--- /dev/null
+++ b/3648/CH21/EX21.2/Ex21_2.txt
@@ -0,0 +1,3 @@
+The value of the magnetic field is Bo= 
+    1.400D-11  
+T 
+\ No newline at end of file
diff --git a/3648/CH21/EX21.3/Ex21_3.sce b/3648/CH21/EX21.3/Ex21_3.sce
new file mode 100644
index 000000000..699a89f1c
--- /dev/null
+++ b/3648/CH21/EX21.3/Ex21_3.sce
@@ -0,0 +1,15 @@
+//Example 21_3
+clc();
+clear;
+//To find the values of Eo and Bo in the wave
+power=1000       //Units in W
+r=10000       //units in meters
+area=4*%pi*r^2      //units in meter^2
+P_a=power/area        //unts in W/meter^2
+c=3*10^8       //units in meters/sec
+eeo=8.85*10^-12     //units in C^2/N*meter^2%.5f 
+eo=sqrt((2*P_a)/(c*eeo))           //units in N/C
+bo=eo/c        //Units in T
+printf("The value of Eo=%.5f N/C\n The value of Bo=",eo)
+disp(bo)
+printf("T")
diff --git a/3648/CH21/EX21.3/Ex21_3.txt b/3648/CH21/EX21.3/Ex21_3.txt
new file mode 100644
index 000000000..898f90138
--- /dev/null
+++ b/3648/CH21/EX21.3/Ex21_3.txt
@@ -0,0 +1,4 @@
+The value of Eo=0.02448 N/C
+ The value of Bo= 
+    8.161D-11  
+T 
+\ No newline at end of file