5 files changed, 58 insertions, 0 deletions
diff --git a/2708/CH7/EX7.1/ex_7_1.sce b/2708/CH7/EX7.1/ex_7_1.sce
new file mode 100755
index 000000000..771b247ba
--- /dev/null
+++ b/2708/CH7/EX7.1/ex_7_1.sce
@@ -0,0 +1,9 @@
+//Example 7.1 // Energy of plane wave
+clc;
+clear;
+//given data :
+u=(4D-7*%pi);// permeability(free space) in H/m
+e=8.85D-12;// permitivity(free space) in Farad/m
+H=1;// magnetic field in amp/m
+E=H*sqrt(u/e);// formula to calculate
+disp(E,"magnitude of Energy of plane wave in V/m")
diff --git a/2708/CH7/EX7.2/ex_7_2.sce b/2708/CH7/EX7.2/ex_7_2.sce
new file mode 100755
index 000000000..b6dcebbe5
--- /dev/null
+++ b/2708/CH7/EX7.2/ex_7_2.sce
@@ -0,0 +1,19 @@
+//Example 7.2
+clc;
+clear;
+// 1st part //impedence of medium
+ur=1;//relative permeability
+er=2;//relative permitivity
+uo=(4D-7*%pi);// permeability(free space) in H/m
+eo=8.85D-12;// permitivity(free space) in Farad/m
+u=ur*uo;//permeability(medium) in H/m
+e=er*eo;//permitivity(medium) in Farad/m
+Z=sqrt(u/e);// impedence of medium
+disp(Z,"impedence of medium in ohm")
+// 2nd part //peak magnetic field intensity
+Eo=5;//peak electric field strength in V/m
+Ho=Eo/Z;// Intensity of magnetic field in A/m
+disp(Ho,"Intensity of magnetic field in A/m")
+// 3rd part //velocity of electromagnetic wave
+v=1/sqrt(u*e);//velocity in m/s
+disp(v,"velocity of magnetic field in m/s")
diff --git a/2708/CH7/EX7.3/ex_7_3.sce b/2708/CH7/EX7.3/ex_7_3.sce
new file mode 100755
index 000000000..53e58d58f
--- /dev/null
+++ b/2708/CH7/EX7.3/ex_7_3.sce
@@ -0,0 +1,13 @@
+//Example 7.3
+clc;
+clear;
+// 1st part //wavelength of wave
+f=3D11;//frequency of wave in Hz
+c=3D8;// speed of light in m/s
+w=c/f;// wavelength in m
+disp(w,"wavelength of wave in m")
+// 2nd part // amplitude of Oscillating magnetic field
+Eo=50;// amplitude of electric field in V/m
+Bo=Eo/c;// ocillating magnetic field in Tesla
+format('e',10);Bo
+disp(Bo,"approx amplitude of oscillating magnetic field in T")
diff --git a/2708/CH7/EX7.4/ex_7_4.sce b/2708/CH7/EX7.4/ex_7_4.sce
new file mode 100755
index 000000000..a43fe3ce4
--- /dev/null
+++ b/2708/CH7/EX7.4/ex_7_4.sce
@@ -0,0 +1,10 @@
+//Example 7.4 // solar energy
+clc;
+clear;
+//given data :
+r=1.5D11;//distance from sun to earth
+P=3.8D26;//power radiated by sun
+N=P/(4*%pi*(r^2));// poyting vector (average energy)
+N=N*60/4.2D4 ;//to convert watt/m2 into cal/cm2.min
+N=ceil(N);
+disp(N," average solar energy in cal/cm2.min")
diff --git a/2708/CH7/EX7.5/ex_7_5.sce b/2708/CH7/EX7.5/ex_7_5.sce
new file mode 100755
index 000000000..dc0f0a297
--- /dev/null
+++ b/2708/CH7/EX7.5/ex_7_5.sce
@@ -0,0 +1,7 @@
+//Example 7.5 // Dielelctric constant
+clc;
+clear;
+//given data :
+v=.62;// velocity factor of coaxial
+Er=1/v^2;// relative permittivity constant
+disp(Er,"dielectric constant of insulator")