diff options
Diffstat (limited to '3014/CH4')
-rwxr-xr-x | 3014/CH4/EX4.10/Ex4_10.sce | 12 | ||||
-rwxr-xr-x | 3014/CH4/EX4.10/Ex4_10.txt | 4 | ||||
-rwxr-xr-x | 3014/CH4/EX4.11/Ex4_11.sce | 20 | ||||
-rwxr-xr-x | 3014/CH4/EX4.11/Ex4_11.txt | 6 | ||||
-rwxr-xr-x | 3014/CH4/EX4.12/Ex4_12.sce | 15 | ||||
-rwxr-xr-x | 3014/CH4/EX4.12/Ex4_12.txt | 5 | ||||
-rwxr-xr-x | 3014/CH4/EX4.13/Ex4_13.sce | 12 | ||||
-rwxr-xr-x | 3014/CH4/EX4.13/Ex4_13.txt | 2 | ||||
-rwxr-xr-x | 3014/CH4/EX4.14/Ex4_14.sce | 16 | ||||
-rwxr-xr-x | 3014/CH4/EX4.14/Ex4_14.txt | 4 | ||||
-rwxr-xr-x | 3014/CH4/EX4.15/Ex4_15.sce | 9 | ||||
-rwxr-xr-x | 3014/CH4/EX4.15/Ex4_15.txt | 3 | ||||
-rwxr-xr-x | 3014/CH4/EX4.16/Ex4_16.sce | 16 | ||||
-rwxr-xr-x | 3014/CH4/EX4.16/Ex4_16.txt | 3 | ||||
-rwxr-xr-x | 3014/CH4/EX4.17/Ex4_17.sce | 12 | ||||
-rwxr-xr-x | 3014/CH4/EX4.17/Ex4_17.txt | 3 | ||||
-rwxr-xr-x | 3014/CH4/EX4.18/Ex4_18.sce | 13 | ||||
-rwxr-xr-x | 3014/CH4/EX4.18/Ex4_18.txt | 4 | ||||
-rwxr-xr-x | 3014/CH4/EX4.4/Ex4_4.sce | 16 | ||||
-rwxr-xr-x | 3014/CH4/EX4.4/Ex4_4.txt | 2 | ||||
-rwxr-xr-x | 3014/CH4/EX4.6/Ex4_6.sce | 16 | ||||
-rwxr-xr-x | 3014/CH4/EX4.6/Ex4_6.txt | 5 | ||||
-rwxr-xr-x | 3014/CH4/EX4.8/Ex4_8.sce | 12 | ||||
-rwxr-xr-x | 3014/CH4/EX4.8/Ex4_8.txt | 3 | ||||
-rwxr-xr-x | 3014/CH4/EX4.9/Ex4_9.sce | 13 | ||||
-rwxr-xr-x | 3014/CH4/EX4.9/Ex4_9.txt | 3 |
26 files changed, 229 insertions, 0 deletions
diff --git a/3014/CH4/EX4.10/Ex4_10.sce b/3014/CH4/EX4.10/Ex4_10.sce new file mode 100755 index 000000000..03b5a08c0 --- /dev/null +++ b/3014/CH4/EX4.10/Ex4_10.sce @@ -0,0 +1,12 @@ +clc
+//Given that
+epsilon = 2.4e-10 // permitivity of a dielectric material in C^2/N?m^2
+epsilon_0 = 8.854e-12 // Permittivity of free space
+
+printf("Example 4.10")
+K = epsilon/epsilon_0 // Calculation of dielectric constant
+zai_e = epsilon_0*(K-1) // Calculation of electrical susceptibility
+
+printf("\n Relative permittivity is %f",K)
+printf("\n Electrical susceptibility is %e C^2/Nm^2\n\n\n",zai_e)
+
diff --git a/3014/CH4/EX4.10/Ex4_10.txt b/3014/CH4/EX4.10/Ex4_10.txt new file mode 100755 index 000000000..d642b7f3b --- /dev/null +++ b/3014/CH4/EX4.10/Ex4_10.txt @@ -0,0 +1,4 @@ +
+Example 4.10
+ Relative permittivity is 27.106393
+ Electrical susceptibility is 2.311460e-10 C^2/N/m^2
\ No newline at end of file diff --git a/3014/CH4/EX4.11/Ex4_11.sce b/3014/CH4/EX4.11/Ex4_11.sce new file mode 100755 index 000000000..f496914e8 --- /dev/null +++ b/3014/CH4/EX4.11/Ex4_11.sce @@ -0,0 +1,20 @@ +
+clc
+//Given that
+V = 100 // Applied potential in Volt
+d = 1 // Separation between plates in cm
+k1 = 8 // Dielectric constant
+k2 = 9 //dielectric constant
+epsilon_0 = 8.854e-12 // Permittivity of free space
+
+printf("Example 4.11")
+E_0 = V/(d*1e-2) // Calculation of electric field
+E = E_0/k1*k2 // Calculation of electric field
+D = k1*epsilon_0*E // Calculation of electrical displacement vector
+P = (k1-1)*epsilon_0*E // Calculation of electrical polarization
+
+printf("\n Magnitude of Electrical vector is %e Volt/meter",E) // Answer in book is 1.125e3 Volt/meter
+
+printf("\n Magnitude of Electrical Displacement vector is %e C/m^2",D)// Answer in book is 8.85e-8C/m^2
+
+printf("\n Magnitude of Electric polarization vector is %e C/m^2\n\n\n",P)// Answer in book is 7.774e-8C/m^2
diff --git a/3014/CH4/EX4.11/Ex4_11.txt b/3014/CH4/EX4.11/Ex4_11.txt new file mode 100755 index 000000000..71acc4ddd --- /dev/null +++ b/3014/CH4/EX4.11/Ex4_11.txt @@ -0,0 +1,6 @@ +
+Example 4.11
+ Magnitude of Electrical vector is 1.125000e+04 Volt/meter.
+ Magnitude of Electrical Displacement vector is 7.968600e-07 C/m^2.
+ Magnitude of Electric polarization vector is 6.972525e-07 C/m^2.
+
diff --git a/3014/CH4/EX4.12/Ex4_12.sce b/3014/CH4/EX4.12/Ex4_12.sce new file mode 100755 index 000000000..af8cce616 --- /dev/null +++ b/3014/CH4/EX4.12/Ex4_12.sce @@ -0,0 +1,15 @@ +
+clc
+//Given that
+alpha_300 = 2.5e-39 // total polarisability in C^2m/N at 300 K
+alpha_600 = 1.75e-39 // total polarisability in C^2m/N at 600 K
+T1 = 300 // Initial temperature in Kelvin
+T2 = 600 // Final Temperature in Kelvin
+printf("Example 4.12\n")
+b = (alpha_300-alpha_600)*T2
+al_def_300 = alpha_300 - b/300
+al_oriant_300 = b/300
+al_oriant_600 = b/600
+printf("\n Deformational Polarizability is %e C^2mN^-1",al_def_300)
+printf("\n Orientational Polarizability at %d degree Celcius is %e C^2mN^-1",T1,al_oriant_300)
+printf("\n Orientational Polarizability at %d degree Celcius is %e C^2mN^-1",T2,al_oriant_600)
diff --git a/3014/CH4/EX4.12/Ex4_12.txt b/3014/CH4/EX4.12/Ex4_12.txt new file mode 100755 index 000000000..6b72216c9 --- /dev/null +++ b/3014/CH4/EX4.12/Ex4_12.txt @@ -0,0 +1,5 @@ +Example 4.12
+
+ Deformational Polarizability is 1.000000e-39 C^2mN^-1
+ Orientational Polarizability at 300 degree Celcius is 1.500000e-39 C^2mN^-1
+ Orientational Polarizability at 600 degree Celcius is 7.500000e-40 C^2mN^-1
\ No newline at end of file diff --git a/3014/CH4/EX4.13/Ex4_13.sce b/3014/CH4/EX4.13/Ex4_13.sce new file mode 100755 index 000000000..3f86677a1 --- /dev/null +++ b/3014/CH4/EX4.13/Ex4_13.sce @@ -0,0 +1,12 @@ +
+clc
+//Given that
+alpha_e = 1.5e-40 // Electronic polarizability in Fm^2
+N = 4e28 // density in atoms/m^3
+epsilon_0 = 8.85e-12 // Permittivity of free space
+
+printf("Example 4.13")
+k = N*alpha_e/(3*epsilon_0)
+epsilon_r = (1+ k*2)/(1-k)// Calculation of relative permittivity
+printf("\n Relative permittivity is %f\n\n\n",epsilon_r)
+
diff --git a/3014/CH4/EX4.13/Ex4_13.txt b/3014/CH4/EX4.13/Ex4_13.txt new file mode 100755 index 000000000..93c1c0480 --- /dev/null +++ b/3014/CH4/EX4.13/Ex4_13.txt @@ -0,0 +1,2 @@ +Example 4.13
+ Relative permittivity is 1.875912
\ No newline at end of file diff --git a/3014/CH4/EX4.14/Ex4_14.sce b/3014/CH4/EX4.14/Ex4_14.sce new file mode 100755 index 000000000..73264f4cc --- /dev/null +++ b/3014/CH4/EX4.14/Ex4_14.sce @@ -0,0 +1,16 @@ +
+clc
+//Given that
+m = 32 // Atomic weight of sulphur
+d = 2.08 // Density in g/cm^3
+alpha_e = 3.5e-40 // Electronic polarizability in Fm^2
+N_a = 6.022e23 // Avogadro Number
+epsilon_0 = 8.85e-12 // Permittivity of free space
+
+printf("Example 4.14")
+N = N_a*d*1e6/m // Calculation of Atoms per unit
+k = N*alpha_e/(3*epsilon_0)
+
+epsilon_r = (1+ k*2)/(1-k)// Calculation of relative permittivity
+printf("\n Relative permittivity is %f\n\n\n",epsilon_r)
+// Answer in book is 4.17
diff --git a/3014/CH4/EX4.14/Ex4_14.txt b/3014/CH4/EX4.14/Ex4_14.txt new file mode 100755 index 000000000..31ae3df6a --- /dev/null +++ b/3014/CH4/EX4.14/Ex4_14.txt @@ -0,0 +1,4 @@ +
+Example 4.14
+ Relative permittivity is 4.198468
+
diff --git a/3014/CH4/EX4.15/Ex4_15.sce b/3014/CH4/EX4.15/Ex4_15.sce new file mode 100755 index 000000000..633f55bbc --- /dev/null +++ b/3014/CH4/EX4.15/Ex4_15.sce @@ -0,0 +1,9 @@ +
+clc
+//Given that
+n = 1.5 // Refractive index
+epsilon = 5.6 // Static dielectric constant
+printf("Example 4.15")
+per = (1-((n^2-1)/(n^2+2))*(epsilon+2)/(epsilon-1))*100 // Pecentage ionic polarisability
+printf("\n Percentage ionic polarizability is %f pecent\n\n\n",per)
+// Answer in book is 5.14 %
diff --git a/3014/CH4/EX4.15/Ex4_15.txt b/3014/CH4/EX4.15/Ex4_15.txt new file mode 100755 index 000000000..35704226e --- /dev/null +++ b/3014/CH4/EX4.15/Ex4_15.txt @@ -0,0 +1,3 @@ +
+Example 4.15
+ Percentage ionic polarizability is 51.406650 pecent
diff --git a/3014/CH4/EX4.16/Ex4_16.sce b/3014/CH4/EX4.16/Ex4_16.sce new file mode 100755 index 000000000..d92b510e5 --- /dev/null +++ b/3014/CH4/EX4.16/Ex4_16.sce @@ -0,0 +1,16 @@ +
+
+clc
+//Given that
+m = 32 // Atomic weight of sulphur
+d = 2050 // Density in Kg/m^3
+N_a = 6.022e23 // Avogadro Number
+epsilon_0 = 8.85e-12 // Permittivity of free space
+epsilon_r = 3.75 // Dielectric constant of sulphur
+
+printf("Example 4.16")
+N = N_a*d*1e3/m // Calculation of Atoms per unit
+alpha_e = 3*epsilon_0*((epsilon_r-1)/(epsilon_r+2)) / N
+
+
+printf("\n Electronic polarizability is %e Fm^2\n\n\n",alpha_e)
diff --git a/3014/CH4/EX4.16/Ex4_16.txt b/3014/CH4/EX4.16/Ex4_16.txt new file mode 100755 index 000000000..3fe386f75 --- /dev/null +++ b/3014/CH4/EX4.16/Ex4_16.txt @@ -0,0 +1,3 @@ +
+Example 4.16
+ Electronic polarizability is 3.291431e-40 Fm^2
diff --git a/3014/CH4/EX4.17/Ex4_17.sce b/3014/CH4/EX4.17/Ex4_17.sce new file mode 100755 index 000000000..345d13344 --- /dev/null +++ b/3014/CH4/EX4.17/Ex4_17.sce @@ -0,0 +1,12 @@ +
+clc
+//Given that
+n = 1.5 // Refractive index
+epsilon = 4 // Static dielectric constant
+epsilon_0 = 8.85e-12 // permittivity of free space
+printf("Example 4.17")
+k1 = (epsilon-1)/(epsilon+2)
+k2 = (n^2-1)/(n^2+2)
+ratio = 1/((k1/k2)-1)
+printf("\n Ratio of electronic to ionic polarizability is %f .\n\n\n",ratio)
+// Answer in book is 1.43
diff --git a/3014/CH4/EX4.17/Ex4_17.txt b/3014/CH4/EX4.17/Ex4_17.txt new file mode 100755 index 000000000..ca5b0709a --- /dev/null +++ b/3014/CH4/EX4.17/Ex4_17.txt @@ -0,0 +1,3 @@ +
+Example 4.17
+ Ratio of electronic to ionic polarizability is 1.428571 .
diff --git a/3014/CH4/EX4.18/Ex4_18.sce b/3014/CH4/EX4.18/Ex4_18.sce new file mode 100755 index 000000000..a894f4969 --- /dev/null +++ b/3014/CH4/EX4.18/Ex4_18.sce @@ -0,0 +1,13 @@ +
+clc
+//Given that
+t = 1.8e-5 // Relaxation time in second
+epsilon_r = 1 // let
+printf("Example 4.18")
+f = 1/(2*%pi*t) // Calculation of frequency
+delta = atan(epsilon_r/epsilon_r)
+phi = 90 - delta*180/%pi // Calculation of phase difference
+printf("\n Frequency is %f KHz\n",f/1e3)
+printf(" Phase difference between current and voltage is %d degree.",phi)
+
+
diff --git a/3014/CH4/EX4.18/Ex4_18.txt b/3014/CH4/EX4.18/Ex4_18.txt new file mode 100755 index 000000000..273aff63b --- /dev/null +++ b/3014/CH4/EX4.18/Ex4_18.txt @@ -0,0 +1,4 @@ +
+Example 4.18
+ Frequency is 8.841941 KHz
+ Phase difference between current and voltage is 45 degree.
\ No newline at end of file diff --git a/3014/CH4/EX4.4/Ex4_4.sce b/3014/CH4/EX4.4/Ex4_4.sce new file mode 100755 index 000000000..bd458f3d5 --- /dev/null +++ b/3014/CH4/EX4.4/Ex4_4.sce @@ -0,0 +1,16 @@ +
+clc
+//Given that
+epsilon_r = 1.000074 // Dielectric constant of He at 0C and 1atm
+epsilon_0 = 8.854e-12 // Permittivity of free space
+E = 100 // Electric field in V/m
+n = 2.68e27 // Electron density in no,/m^
+N_a = 6e23 // Avogadro number
+V = 22.4 // Volume at STP in litter
+printf("Example 4.4")
+P = epsilon_0*(epsilon_r-1)*E // Calculation of polarization
+
+N = N_a/(V*1e-3)// Calculation of total number of atoms
+p = P/N // dipole moment per atom
+printf("\n Dipole moment per atom is %e Coulomb-meter \n\n\n",p)
+// Answer in book is in different form and as 24.45e-40 coulomb-meter
diff --git a/3014/CH4/EX4.4/Ex4_4.txt b/3014/CH4/EX4.4/Ex4_4.txt new file mode 100755 index 000000000..af03c5d31 --- /dev/null +++ b/3014/CH4/EX4.4/Ex4_4.txt @@ -0,0 +1,2 @@ +Example 4.4
+ Dipole moment per atom is 2.446065e-39 Coulomb-meter
diff --git a/3014/CH4/EX4.6/Ex4_6.sce b/3014/CH4/EX4.6/Ex4_6.sce new file mode 100755 index 000000000..2fdd4a31a --- /dev/null +++ b/3014/CH4/EX4.6/Ex4_6.sce @@ -0,0 +1,16 @@ +
+clc
+//Given that
+r = 0.055 // Radius of hydrogen atom in nm
+n = 9.8e26 // Number of atoms/cc
+
+epsilon_0 = 8.854e-12 // Permittivity of free space
+
+printf("Example 4.6")
+alpha_e = 4*%pi*epsilon_0*(r*1e-9)^3 // Calculation of electronic polarisability
+epsilon_r = 1+n*alpha_e/epsilon_0 // Calculation of relative permeability
+
+printf("\n Electronic polarisability is %eFm^2 \n Relative permeability is %f \n\n\n",alpha_e,epsilon_r)
+
+
+
diff --git a/3014/CH4/EX4.6/Ex4_6.txt b/3014/CH4/EX4.6/Ex4_6.txt new file mode 100755 index 000000000..1d24f515a --- /dev/null +++ b/3014/CH4/EX4.6/Ex4_6.txt @@ -0,0 +1,5 @@ +
+Example 4.6
+ Electronic polarisability is 1.851132e-41Fm^2
+ Relative permeability is 1.002049
+
diff --git a/3014/CH4/EX4.8/Ex4_8.sce b/3014/CH4/EX4.8/Ex4_8.sce new file mode 100755 index 000000000..abae3cbe3 --- /dev/null +++ b/3014/CH4/EX4.8/Ex4_8.sce @@ -0,0 +1,12 @@ +
+clc
+//Given that
+epsilon_0 = 8.854e-12 // Permittivity of free space
+E = 2000 // Electric field in V/m
+P = 6.4e-8 // Polarization in C/m^2
+printf("Example 4.8")
+epsilon_r = 1+ P/(epsilon_0*E) // Calculation of relative permittivity
+
+printf("\n Relative permittivity is %f\n\n\n",epsilon_r)
+
+
diff --git a/3014/CH4/EX4.8/Ex4_8.txt b/3014/CH4/EX4.8/Ex4_8.txt new file mode 100755 index 000000000..a27dbe60f --- /dev/null +++ b/3014/CH4/EX4.8/Ex4_8.txt @@ -0,0 +1,3 @@ +
+Example 4.8
+ Relative permittivity is 4.614186
\ No newline at end of file diff --git a/3014/CH4/EX4.9/Ex4_9.sce b/3014/CH4/EX4.9/Ex4_9.sce new file mode 100755 index 000000000..103e6bd00 --- /dev/null +++ b/3014/CH4/EX4.9/Ex4_9.sce @@ -0,0 +1,13 @@ +
+clc
+//Given that
+alpha_e = 2e-40 // Electronic polarisability in Fm^2
+N = 4e28 // density in atoms/m^3
+epsilon_0 = 8.85e-12 // Permittivity of free space
+
+printf("Example 4.9")
+epsilon_r = 1+ N*alpha_e/(epsilon_0) // Calculation of relative permittivity
+printf("\n Relative permittivity is %f\n\n\n",epsilon_r)
+
+
+
diff --git a/3014/CH4/EX4.9/Ex4_9.txt b/3014/CH4/EX4.9/Ex4_9.txt new file mode 100755 index 000000000..b2f1b8b79 --- /dev/null +++ b/3014/CH4/EX4.9/Ex4_9.txt @@ -0,0 +1,3 @@ +
+Example 4.9
+ Relative permittivity is 1.903955
|