3 files changed, 60 insertions, 0 deletions
diff --git a/1784/CH30/EX30.1/example1.sce b/1784/CH30/EX30.1/example1.sce
new file mode 100755
index 000000000..a37c75ca0
--- /dev/null
+++ b/1784/CH30/EX30.1/example1.sce
@@ -0,0 +1,9 @@
+//chapter 30
+//example 1
+clc
+//given
+C=1.0 //capacitance in farad
+d=1.0*10^-3 //separation b/w plates in meter
+epsilon0=8.85*10^-12 //coul2/nt-m2
+A=d*C/epsilon0
+disp(A,"Plate area in square meter is")
diff --git a/1784/CH30/EX30.5/example5.sce b/1784/CH30/EX30.5/example5.sce
new file mode 100755
index 000000000..8f92bef85
--- /dev/null
+++ b/1784/CH30/EX30.5/example5.sce
@@ -0,0 +1,29 @@
+//chapter 30
+//example 5
+clc
+//given
+epsilon0=8.85*10^-12 //coul2/nt-m2
+A=100*10^-4//area of the plate in square meter
+d=1*10^-2 //separation b/w plates in meter
+b=5*10^-3 //thickness of dielectric lab in meter
+V0=100//in volts
+k=7
+//(a)
+C0=epsilon0*A/d
+disp(C0,"(a)Capacitance before the slab is inserted in farad is")
+//(b)
+q=C0*V0
+disp(q,"(b)Free charge in coul is")
+//(c)
+E0=q/(epsilon0*A)
+disp(E0,"(c)Electric field strength in the gap in volts/meter is")
+//(d)
+E=q/(k*epsilon0*A)
+disp(E,"(d)Electric field strength in the dielectric in volts/meter is")
+//(e)
+//Refer to fig30-12
+V=E0*(d-b)+E*b
+disp(V,"(e)Potential difference between the plates in volts is")
+//(f)
+C=q/V
+disp(C,"Capacitance with the slab in place in farads is")
diff --git a/1784/CH30/EX30.6/example6.sce b/1784/CH30/EX30.6/example6.sce
new file mode 100755
index 000000000..14ab3312d
--- /dev/null
+++ b/1784/CH30/EX30.6/example6.sce
@@ -0,0 +1,22 @@
+//chapter 30
+//example 6
+clc
+//given
+epsilon0=8.85*10^-12 //coul2/nt-m2
+A=100*10^-4//area of the plate in square meter
+d=1*10^-2 //separation b/w plates in meter
+V0=100//in volts
+E0=1*10^4 //Electric field in the air gap in volts/meter
+k=7
+k0=1
+E=1.43*10^3 //in volts/metre
+D=k*E*epsilon0
+P=epsilon0*(k-1)*E
+//(a)
+disp(D,"(a)Electric displacement in dielectric in coul/square metre is ")
+disp(P,"Electric polarisation in dielectric in coul/square meter is")
+//(b)
+D0=k0*epsilon0*E0
+disp(D0,"(b)Electric displacement in air gap in coul/square metre is ")
+P0=epsilon0*(k0-1)*E0
+disp(P0,"Electric polarisation in air gap in coul/square meter is")