4 files changed, 49 insertions, 0 deletions
diff --git a/1535/CH2/EX2.1/Ch02Ex1.sci b/1535/CH2/EX2.1/Ch02Ex1.sci
new file mode 100755
index 000000000..f7df1fa41
--- /dev/null
+++ b/1535/CH2/EX2.1/Ch02Ex1.sci
@@ -0,0 +1,11 @@
+// Scilab Code Ex2.1 :  Page-46 (2010)
+function V = f(t)
+    V = 0.2*sin(120*%pi*t);
+endfunction
+t = 0;    // Time when peak value of current occurs
+C = 10e-012;    // Capacitance of the capacitor, farad
+I = C*derivative(f,t);
+printf("\nThe peak value of displacement current = %6.4e A", I);
+
+// Result 
+// The peak value of displacement current = 7.5398e-010 A
diff --git a/1535/CH2/EX2.2/Ch02Ex2.sci b/1535/CH2/EX2.2/Ch02Ex2.sci
new file mode 100755
index 000000000..7c16ba606
--- /dev/null
+++ b/1535/CH2/EX2.2/Ch02Ex2.sci
@@ -0,0 +1,12 @@
+// Scilab Code Ex2.2 : Page-46 (2010)
+function E = fn(t)
+    E = sin(120*%pi*t);
+endfunction
+epsilon_r = 1;    // Relative electrical permittivity of free space
+epsilon_0 = 8.854e-012;    // Absolute electrical permittivity of free space, farad per metre
+t = 0;    // Time when peak value of current occurs
+J2 = epsilon_0*epsilon_r*derivative(fn,t);
+printf("\nThe peak value of displacement current = %4.2e ampere per metre square", J2);
+
+// Result 
+// The peak value of displacement current = 3.34e-009 ampere per metre square
diff --git a/1535/CH2/EX2.4/Ch02Ex4.sci b/1535/CH2/EX2.4/Ch02Ex4.sci
new file mode 100755
index 000000000..389798653
--- /dev/null
+++ b/1535/CH2/EX2.4/Ch02Ex4.sci
@@ -0,0 +1,8 @@
+// Scilab Code Ex2.4 : Page-47 (2010)
+p = 60;    // Power rating of bulb, watt
+d = 0.5;    // Distance from the blb, m
+P = p/(4*%pi*d^2);    // Value of Poynting vector, watt per metre square
+printf("\nThe value of Poynting vector = %4.1f watt per metre square", P);
+
+// Result 
+// The value of Poynting vector = 19.1 watt per metre square 
+\ No newline at end of file
diff --git a/1535/CH2/EX2.5/Ch02Ex5.sci b/1535/CH2/EX2.5/Ch02Ex5.sci
new file mode 100755
index 000000000..ce30913d2
--- /dev/null
+++ b/1535/CH2/EX2.5/Ch02Ex5.sci
@@ -0,0 +1,18 @@
+// Scilab Code Ex2.5 : Page-47 (2010)
+E_peak = 6;    // Peak value of electric field intensity, V/m
+c = 3e+08;    // Speed of electromagnetic wave in free space, m/s
+mu_0 = 4*%pi*1e-07;    // Absolute permeability of free space, tesla metre per ampere
+epsilon_0 = 8.854e-012;    // Absolute permittivity of free space, farad/m
+mu_r = 1;    // Relative permeability of medium
+epsilon_r = 3;    // Relative permittivity of the medium
+v = c/sqrt(mu_r*epsilon_r);    // Wave velocity, m/s
+eta = sqrt((mu_0/epsilon_0)*(mu_r/epsilon_r));    // Intrinsic impedance of the medium, ohm
+H_P = E_peak*sqrt((epsilon_0*epsilon_r)/(mu_0*mu_r));    // Peak value of the magnetic intensity, ampere per metre
+printf("\nThe wave velocity = %5.3e m/s", v);
+printf("\nThe intrinsic impedance of the medium = %6.2f ohm", eta);
+printf("\nThe peak value of the magnetic intensity = %4.2e A/m", H_P);
+
+// Result 
+// The wave velocity = 1.732e+008 m/s
+// The intrinsic impedance of the medium = 217.51 ohm
+// The peak value of the magnetic intensity = 2.76e-002 A/m 
+\ No newline at end of file