initial commit / add all books

26 files changed, 261 insertions, 0 deletions

diff --git a/1826/CH18/EX18.1/ex18_1.sce b/1826/CH18/EX18.1/ex18_1.sce
new file mode 100755
index 000000000..1ba8016ec
--- /dev/null
+++ b/1826/CH18/EX18.1/ex18_1.sce
@@ -0,0 +1,14 @@
+// Example 18.1, page no-460

+clear

+clc

+atom=4

+kci=0.629*10^-9//m

+alfk=1.264*10^-40//m^2

+alfCl=3.408*10^-40//m^2

+eps0=8.854*10^-12

+pol=alfk+alfCl

+N=atom/kci^3

+epsr=(N*pol/eps0)+1

+printf("\nThe electronic polarisability for KCL = %.3f *10^-40 F m^2\n",pol*10^40)

+printf("\nThe no of Dipoles per m^3 = %.3f * 10^28 atoms m^-3\n",N/10^28)

+printf("\nThe dielectric constant of KCL is %.3f",epsr)

diff --git a/1826/CH18/EX18.10/ex18_10.sce b/1826/CH18/EX18.10/ex18_10.sce
new file mode 100755
index 000000000..5d1de5546
--- /dev/null
+++ b/1826/CH18/EX18.10/ex18_10.sce
@@ -0,0 +1,10 @@
+// Example 18.10, page no-466

+clear

+clc

+

+epsr=1.0024

+N=2.7*10^25 //atoms.m^-3

+eps=8.854*10^-12//F.m^-1

+alfe=eps*(epsr-1)/N

+printf("The polarisability of argon atom is %.1f * 10^-40 F m^2",alfe*10^40)

+

diff --git a/1826/CH18/EX18.11/ex18_11.sce b/1826/CH18/EX18.11/ex18_11.sce
new file mode 100755
index 000000000..db7b8cdcd
--- /dev/null
+++ b/1826/CH18/EX18.11/ex18_11.sce
@@ -0,0 +1,9 @@
+// Example 18.11, page no-466

+clear

+clc

+

+epsr=1.0000684

+N=2.7*10^25 //atoms.m^-3

+eps=8.854*10^-12//F.m^-1

+alfe=eps*(epsr-1)/N

+printf("The electronic polarisability of He atom at NTP is %.3f * 10^-41 F m^2",alfe*10^41)

diff --git a/1826/CH18/EX18.12/ex18_12.sce b/1826/CH18/EX18.12/ex18_12.sce
new file mode 100755
index 000000000..b6feb63f0
--- /dev/null
+++ b/1826/CH18/EX18.12/ex18_12.sce
@@ -0,0 +1,8 @@
+// Example 18.12, page no-467

+clear

+clc

+epsr=12

+N=5*10^28 //atoms.m^-3

+eps=8.854*10^-12//F.m^-1

+alfe=eps*(epsr-1)/N

+printf("The electronic polarisability of given element is %.3f * 10^-39 F m^2",alfe*10^39)

diff --git a/1826/CH18/EX18.13/ex18_13.sce b/1826/CH18/EX18.13/ex18_13.sce
new file mode 100755
index 000000000..b218be605
--- /dev/null
+++ b/1826/CH18/EX18.13/ex18_13.sce
@@ -0,0 +1,12 @@
+// Example 18.13, page no-467

+clear

+clc

+

+c=2*10^-6//F

+v=1000//V

+epsr=100

+E=(c*v^2)/2

+c0=c/epsr

+e2=(c0*v^2)/2

+E1=E-e2

+printf("The energy stored in dielectric is %.2f J",E1)

diff --git a/1826/CH18/EX18.14/ex18_14.sce b/1826/CH18/EX18.14/ex18_14.sce
new file mode 100755
index 000000000..b7fdfb943
--- /dev/null
+++ b/1826/CH18/EX18.14/ex18_14.sce
@@ -0,0 +1,10 @@
+// Example 18.14, page no-468

+clear

+clc

+epsr=4.94

+eps=8.854*10^-12

+d=2.07*10^3//kg.m^-3

+w=32.07

+N=6.023*10^23*10^3*d/w

+alfe=3*eps*(epsr-1)/(N*(epsr+2))

+printf("The electronic polarisability of sulphur is %f * 10^-40 F.m^2",alfe*10^40)

diff --git a/1826/CH18/EX18.15/ex18_15.sce b/1826/CH18/EX18.15/ex18_15.sce
new file mode 100755
index 000000000..1018eeffa
--- /dev/null
+++ b/1826/CH18/EX18.15/ex18_15.sce
@@ -0,0 +1,15 @@
+// Example 18.15, page no-469

+clear

+clc

+A=6.45*10^-4//m^2

+d=2*10^-3//m

+epsr=6

+v=10//v

+eps=8.85*10^-12//F/m

+c=eps*epsr*A/d

+printf("Capaccitance of Capacitor = %.3f pF",c*10^12)

+q=c*v

+E=v/d

+p=eps*(epsr-1)*E

+printf("\ncharge stored on the plate is %.3f *10^-11 C",q*10^11)

+printf("\nPolarisation produce in the plate is %.3f *10^-7 Cm^-2",p*10^7)

diff --git a/1826/CH18/EX18.16/ex18_16.sce b/1826/CH18/EX18.16/ex18_16.sce
new file mode 100755
index 000000000..ec76e5765
--- /dev/null
+++ b/1826/CH18/EX18.16/ex18_16.sce
@@ -0,0 +1,8 @@
+// Example 18.16, page no-470

+clear

+clc

+E=600*10^3 //V/m

+eps=8.854*10^-12 //F/m

+epsr=6

+p=eps*(epsr-1)*E

+printf("Polarisation produced in NaCl is %.3f *10^-5 C.m^-2",p*10^5)

diff --git a/1826/CH18/EX18.17/ex18_17.sce b/1826/CH18/EX18.17/ex18_17.sce
new file mode 100755
index 000000000..b44753216
--- /dev/null
+++ b/1826/CH18/EX18.17/ex18_17.sce
@@ -0,0 +1,8 @@
+// Example 18.17, page no-470

+clear

+clc

+E=1000 //V/m

+p=4.3*10^-8

+eps=8.854*10^-12

+epsr=1+p/(eps*E)

+printf("Relative permitivity of NaCl is %.2f",epsr)

diff --git a/1826/CH18/EX18.18/ex18_18.sce b/1826/CH18/EX18.18/ex18_18.sce
new file mode 100755
index 000000000..cb927b0b4
--- /dev/null
+++ b/1826/CH18/EX18.18/ex18_18.sce
@@ -0,0 +1,12 @@
+// Example 18.18, page no-471

+clear

+clc

+A=1000*10^-6 //m^2

+d=5*10^-3

+epsr=4

+Q=3*10^-10

+eps=8.854*10^-12

+c=(eps*epsr*A)/d

+v=Q/c

+E=v/d

+printf("The voltage across capacitor is %.2f V\nThe electric field strength is %.2f V/m",v,E)

diff --git a/1826/CH18/EX18.19/ex18_19.sce b/1826/CH18/EX18.19/ex18_19.sce
new file mode 100755
index 000000000..bac8fcf98
--- /dev/null
+++ b/1826/CH18/EX18.19/ex18_19.sce
@@ -0,0 +1,8 @@
+// Example 18.19, page no-472

+clear

+clc

+epsr=1.0000684

+N=2.7*10^25//m^-3

+eps=8.854*10^-12

+alfe=eps*(epsr-1)/N

+printf("The electronic polarisability of He atoms at NTP is %.3f *10^-41 F.m^2",alfe*10^41)

diff --git a/1826/CH18/EX18.2/ex18_2.sce b/1826/CH18/EX18.2/ex18_2.sce
new file mode 100755
index 000000000..069ecb401
--- /dev/null
+++ b/1826/CH18/EX18.2/ex18_2.sce
@@ -0,0 +1,7 @@
+// Example 18.2, page no-460

+clear

+clc

+r=0.12*10^-9//m

+eps=8.854*10^-12

+alf=4*%pi*eps*r^3

+printf("The electronic polarisability of an isolated Se is %.4f * 10^-40 F m^2",alf*10^40)

diff --git a/1826/CH18/EX18.20/ex18_20.sce b/1826/CH18/EX18.20/ex18_20.sce
new file mode 100755
index 000000000..c0b098e68
--- /dev/null
+++ b/1826/CH18/EX18.20/ex18_20.sce
@@ -0,0 +1,11 @@
+// Example 18.20, page no-472

+clear

+clc

+A=3*10^-3//m^2

+d=1*10^-3 //m

+epsr=3.5

+Q=20*10^-9//C

+eps=8.854*10^-12 //F.m^-1

+c=eps*epsr*A/d

+E=Q/(c*d)

+printf("The capacitance of capacitor is %.2f pF\nThe electric field strength is %.2f*10^3 V/m",c*10^12,E*10^-3)

diff --git a/1826/CH18/EX18.21/ex18_21.sce b/1826/CH18/EX18.21/ex18_21.sce
new file mode 100755
index 000000000..c0d23a3f6
--- /dev/null
+++ b/1826/CH18/EX18.21/ex18_21.sce
@@ -0,0 +1,15 @@
+// Example 18.21, page no-473

+clear

+clc

+A=7.54*10^-4 //m^2

+d=2.45*10^-3 //m

+epsr=6

+v=10 //V

+eps=8.854*10^-12//F/m

+c=eps*epsr*A/d

+printf("\nThe capacitance of the capacitor is %.3f pF",c*10^12)

+Q=c*v

+E=v/d

+p=eps*(epsr-1)*E

+D=eps*epsr*E

+printf("\nCharge stored on capacitor = %.3f *10^-11 C\nE=%.2f*10^3 V/m\nPolarisation=%.3f*10^-7 Cm^-2\ndielectric displacement = %.3f*10^-7 cm",Q*10^11,E*10^-3,p*10^7,D*10^7)

diff --git a/1826/CH18/EX18.22/ex18_22.sce b/1826/CH18/EX18.22/ex18_22.sce
new file mode 100755
index 000000000..30ae7efd4
--- /dev/null
+++ b/1826/CH18/EX18.22/ex18_22.sce
@@ -0,0 +1,8 @@
+// Example 18.22, page no-475

+clear

+clc

+E=500

+epsr=6

+eps=8.854*10^-12

+p=eps*(epsr-1)*E

+printf("The polarisation produced in NaCl is %.3f * 10^-8 C.m^-2",p*10^8)

diff --git a/1826/CH18/EX18.23/ex18_23.sce b/1826/CH18/EX18.23/ex18_23.sce
new file mode 100755
index 000000000..5064c4ea6
--- /dev/null
+++ b/1826/CH18/EX18.23/ex18_23.sce
@@ -0,0 +1,10 @@
+// Example 18.23, page no-475

+clear

+clc

+

+E=500

+epsr=15

+eps=8.854*10^-12

+p=eps*(epsr-1)*E

+printf("The polarisation produced in NaCl is %.3f * 10^-8 C.m^-2",p*10^8)

+

diff --git a/1826/CH18/EX18.24/ex18_24.sce b/1826/CH18/EX18.24/ex18_24.sce
new file mode 100755
index 000000000..28a23fb7c
--- /dev/null
+++ b/1826/CH18/EX18.24/ex18_24.sce
@@ -0,0 +1,10 @@
+// Example 18.24, page no-475

+clear

+clc

+A=650*10^-6 //mm^2

+d=4 *10^-3//mm

+epsr=3.5

+eps=8.854*10^-12

+q=2*10^-10//C

+v=q*d/(eps*epsr*A)

+printf("The voltage across capacitor is %.2f V",v)

diff --git a/1826/CH18/EX18.25/ex18_25.sce b/1826/CH18/EX18.25/ex18_25.sce
new file mode 100755
index 000000000..06ffff775
--- /dev/null
+++ b/1826/CH18/EX18.25/ex18_25.sce
@@ -0,0 +1,10 @@
+// Example 18.25, page no-476

+clear

+clc

+A=5*10^-4 //m^2

+d=1.5*10^-3//m

+epsr=6

+v=100

+eps=8.854*10^-12

+q=eps*epsr*A*v/d

+printf("The charge on the capacitor is %.2f *10^-9 C",q*10^9)

diff --git a/1826/CH18/EX18.26/ex18_26.sce b/1826/CH18/EX18.26/ex18_26.sce
new file mode 100755
index 000000000..7052c08be
--- /dev/null
+++ b/1826/CH18/EX18.26/ex18_26.sce
@@ -0,0 +1,11 @@
+// Example 18.26, page no-476

+clear

+clc

+

+d=2.08*10^3//kg-m^3

+wt=32

+ep=3.28*10^-40

+eps=8.854*10^-15

+k=(3*10^28*7*10^-40)/(3*eps)

+epsr=2.5812/(1-0.7906)

+printf("The dielectric constant of the given material is %.3f",epsr)

diff --git a/1826/CH18/EX18.3/ex18_3.sce b/1826/CH18/EX18.3/ex18_3.sce
new file mode 100755
index 000000000..527126e1e
--- /dev/null
+++ b/1826/CH18/EX18.3/ex18_3.sce
@@ -0,0 +1,8 @@
+// Example 18.3, page no-461

+clear

+clc

+

+n=2.69

+er=4.94

+alfi_by_alfe=(((n+2)*(er-1))/((er+2)*(n-1)))-1

+printf("The ratio of the electronic to ionic polariability is %.4f",1/alfi_by_alfe)

diff --git a/1826/CH18/EX18.4/ex18_4.sce b/1826/CH18/EX18.4/ex18_4.sce
new file mode 100755
index 000000000..586d08ea8
--- /dev/null
+++ b/1826/CH18/EX18.4/ex18_4.sce
@@ -0,0 +1,8 @@
+// Example 18.4, page no-462

+clear

+clc

+N= 2.7*10^25//atoms m^-3

+alfe=0.35*10^-40 //F m^2

+eps=8.854*10^-12

+epsr=(1+(2*N*alfe)/(3*eps))/(1-(N*alfe)/(3*eps))

+printf("The dielectric constant of Ne gas is %.8f",epsr)

diff --git a/1826/CH18/EX18.5/ex18_5.sce b/1826/CH18/EX18.5/ex18_5.sce
new file mode 100755
index 000000000..6cba66646
--- /dev/null
+++ b/1826/CH18/EX18.5/ex18_5.sce
@@ -0,0 +1,11 @@
+// Example 18.5, page no-462

+clear

+clc

+

+eps=8.85*10^-12//F m^-1

+epsr=6

+A=5*10^-4//m^2

+d=1.5*10^-3

+v=100

+Q=eps*epsr*A*v/d

+printf("The charge on the capacitor is %.2f * 10^-9 C",Q*10^9)

diff --git a/1826/CH18/EX18.6/ex18_6.sce b/1826/CH18/EX18.6/ex18_6.sce
new file mode 100755
index 000000000..011ee45bc
--- /dev/null
+++ b/1826/CH18/EX18.6/ex18_6.sce
@@ -0,0 +1,9 @@
+// Example 18.6, page no-463

+clear

+clc

+N=2.7*10^25//m^-3

+d=0.384*10^-9//m

+eps=8.854*10^-12

+alfe=4*%pi*eps*d^3

+epsr=(1+(2*N*alfe)/(3*eps))/(1-(N*alfe)/(3*eps))

+printf("The dielectric constant of Ar  is %.8f",epsr)

diff --git a/1826/CH18/EX18.7/ex18_7.sce b/1826/CH18/EX18.7/ex18_7.sce
new file mode 100755
index 000000000..b31836e98
--- /dev/null
+++ b/1826/CH18/EX18.7/ex18_7.sce
@@ -0,0 +1,12 @@
+// Example 18.7, page no-464

+clear

+clc

+c=2*10^-6//F

+epsr=80

+v=1000 //v

+E1=(c*v^2)/2

+c0=c/epsr

+E2=(c0*v^2)/2

+E=E1-E2

+printf("\nThe Energy stored in capacitor =%.0f J",E1)

+printf("\nThe energy stored in polarising the capacitor = %.4f J",E)

diff --git a/1826/CH18/EX18.8/ex18_8.sce b/1826/CH18/EX18.8/ex18_8.sce
new file mode 100755
index 000000000..4e78b292d
--- /dev/null
+++ b/1826/CH18/EX18.8/ex18_8.sce
@@ -0,0 +1,9 @@
+// Example 18.8, page no-464

+clear

+clc

+N=5*10^28 //m^-3

+alfe=2*10^-40 //F m^2

+eps=8.854*10^-12

+P=N*alfe

+E_ratio=1/(1-(P/(3*eps)))

+printf("The ratio of the internal field to the applied field = %.4f",E_ratio)

diff --git a/1826/CH18/EX18.9/ex18_9.sce b/1826/CH18/EX18.9/ex18_9.sce
new file mode 100755
index 000000000..a0608553b
--- /dev/null
+++ b/1826/CH18/EX18.9/ex18_9.sce
@@ -0,0 +1,8 @@
+// Example 18.9, page no-465

+clear

+clc

+E=1000//V.m^-1

+P=4.3*10^-8 //C.m^-2

+eps=8.854*10^-12 //F.m^-1

+epsr=1+P/(eps*E)

+printf("The relative permittivity of NaCl is %.2f",epsr)