initial commit / add all books

20 files changed, 182 insertions, 0 deletions

diff --git a/3014/CH8/EX8.1/Ex8_1.sce b/3014/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..2d0d7ec5a
--- /dev/null
+++ b/3014/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,10 @@
+ clc

+// Given that

+H_c_0=  0.0306// Critical Field in tesla

+T_c = 3.7 // Critical temperature in kelvin

+T = 2 // Temperature in kelvin

+printf("Example 8.1\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+H_c = H_c_0*(1-(T/T_c)^2) // Calculation of critical field

+

+printf("Magnetic Field at %d K is %f tesla.\n\n\n",T,H_c)

diff --git a/3014/CH8/EX8.1/Ex8_1.txt b/3014/CH8/EX8.1/Ex8_1.txt
new file mode 100755
index 000000000..ef3f5de33
--- /dev/null
+++ b/3014/CH8/EX8.1/Ex8_1.txt
@@ -0,0 +1,3 @@
+ Example 8.1

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Magnetic Field at 2 K is 0.021659 tesla.
\ No newline at end of file
diff --git a/3014/CH8/EX8.10/Ex8_10.sce b/3014/CH8/EX8.10/Ex8_10.sce
new file mode 100755
index 000000000..1fdbe6fd0
--- /dev/null
+++ b/3014/CH8/EX8.10/Ex8_10.sce
@@ -0,0 +1,13 @@
+

+  clc

+// Given that

+T_1 = 3.5 // Temperature in kelvin

+T_c = 4.153 // Critical temp in kelvin

+lambda_t = 750 // Penetration depth at T_1 in angstrom

+printf("Example 8.10\n")

+printf("Standard formula used \nlambda_0 = lambda_t*sqrt(1-(T_1/T_c)^4) \n")

+

+lambda_0 = lambda_t*sqrt(1-(T_1/T_c)^4) // Calculation of penetration depth at 3.5K

+printf("\n Penetration depth at 0 K is %f angstrom.\n\n\n",lambda_0)

+

+

diff --git a/3014/CH8/EX8.10/Ex8_10.txt b/3014/CH8/EX8.10/Ex8_10.txt
new file mode 100755
index 000000000..43033cec0
--- /dev/null
+++ b/3014/CH8/EX8.10/Ex8_10.txt
@@ -0,0 +1,5 @@
+ Example 8.10

+Standard formula used 

+lambda_0 = lambda_t*sqrt(1-(T_1/T_c)^4) 

+

+ Penetration depth at 0 K is 527.960928 angstrom.
\ No newline at end of file
diff --git a/3014/CH8/EX8.2/Ex8_2.sce b/3014/CH8/EX8.2/Ex8_2.sce
new file mode 100755
index 000000000..277e8fa44
--- /dev/null
+++ b/3014/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,10 @@
+

+ clc 

+// Given that

+H_c=  3.3e4 // // Magnetic field in A/m

+T_c = 7.2 // Critical temperature in kelvin

+T = 5 // Temperature in kelvin

+printf("Example 8.2\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+H_c_0 = H_c*(1-(T/T_c)^2)^(-1) // Calculation of critical field

+printf("Magnetic Field at %d K is %e A/m\n\n\n",T,H_c_0)

diff --git a/3014/CH8/EX8.2/Ex8_2.txt b/3014/CH8/EX8.2/Ex8_2.txt
new file mode 100755
index 000000000..58fa2ce1a
--- /dev/null
+++ b/3014/CH8/EX8.2/Ex8_2.txt
@@ -0,0 +1,4 @@
+

+Example 8.2

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Magnetic Field at 5 K is 6.373770e+04 A/m

diff --git a/3014/CH8/EX8.3/Ex8_3.sce b/3014/CH8/EX8.3/Ex8_3.sce
new file mode 100755
index 000000000..37f10beb5
--- /dev/null
+++ b/3014/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,12 @@
+

+ clc 

+// Given that

+H_c_0= 1 // Let 

+H_c= 0.1 * H_c_0 // Magnetic field in A/m

+T_c = 7.2 // Critical temperature in kelvin

+

+printf("Example 8.3\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+T = T_c*sqrt(1- (H_c/H_c_0)) // Calculation of Temperature

+

+printf("Required temperature is %f K.\n\n\n",T)

diff --git a/3014/CH8/EX8.3/Ex8_3.txt b/3014/CH8/EX8.3/Ex8_3.txt
new file mode 100755
index 000000000..e8452ca5f
--- /dev/null
+++ b/3014/CH8/EX8.3/Ex8_3.txt
@@ -0,0 +1,6 @@
+

+

+Example 8.3

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Required temperature is 6.830520 K.

+

diff --git a/3014/CH8/EX8.4/Ex8_4.sce b/3014/CH8/EX8.4/Ex8_4.sce
new file mode 100755
index 000000000..1d3da19bf
--- /dev/null
+++ b/3014/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,13 @@
+

+

+  clc

+// Given that

+H_c_0=  0.0803// Critical Field in tesla

+T_c = 7.2 // Critical temperature in kelvin

+T = 4.2 // Temperature in kelvin

+printf("Example 8.4\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+H_c = H_c_0*(1-(T/T_c)^2) // Calculation of critical field

+

+printf("Magnetic Field at %d K is %f tesla.\n\n\n",T,H_c)

+// Answer in book is 0.0548 tesla

diff --git a/3014/CH8/EX8.4/Ex8_4.txt b/3014/CH8/EX8.4/Ex8_4.txt
new file mode 100755
index 000000000..6095e71e6
--- /dev/null
+++ b/3014/CH8/EX8.4/Ex8_4.txt
@@ -0,0 +1,6 @@
+

+

+

+Example 8.4

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Magnetic Field at 4 K is 0.052976 tesla.
\ No newline at end of file
diff --git a/3014/CH8/EX8.5/Ex8_5.sce b/3014/CH8/EX8.5/Ex8_5.sce
new file mode 100755
index 000000000..3d818e98a
--- /dev/null
+++ b/3014/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,13 @@
+

+

+  clc

+// Given that

+H_c_0= 1.5e5// Critical field in A/m 

+H_c= 1.05e5 // Magnetic field in A/m

+T_c = 9.2 // Critical temperature in kelvin

+

+printf ("Example 8.5\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+T = T_c*sqrt(1- (H_c/H_c_0)) // Calculation of Temperature

+

+printf("Required temperature is %f K.\n\n\n",T)

diff --git a/3014/CH8/EX8.5/Ex8_5.txt b/3014/CH8/EX8.5/Ex8_5.txt
new file mode 100755
index 000000000..9a39daf9f
--- /dev/null
+++ b/3014/CH8/EX8.5/Ex8_5.txt
@@ -0,0 +1,4 @@
+

+Example 8.5

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Required temperature is 5.039048 K.

diff --git a/3014/CH8/EX8.6/Ex8_6.sce b/3014/CH8/EX8.6/Ex8_6.sce
new file mode 100755
index 000000000..318f8e158
--- /dev/null
+++ b/3014/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,13 @@
+

+

+  clc

+// Given that

+H_c_0= 2e5// Critical field in A/m 

+H_c= 1e5 // Magnetic field in A/m

+T_c = 8 // Critical temperature  in kelvin

+

+printf("Example 8.6\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+T = T_c/sqrt(1- (H_c/H_c_0)) // Calculation of Temperature

+

+printf("Required temperature is %f K.\n\n\n",T)

diff --git a/3014/CH8/EX8.6/Ex8_6.txt b/3014/CH8/EX8.6/Ex8_6.txt
new file mode 100755
index 000000000..bb539ca1e
--- /dev/null
+++ b/3014/CH8/EX8.6/Ex8_6.txt
@@ -0,0 +1,4 @@
+

+Example 8.6

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Required temperature is 11.313708 K.

diff --git a/3014/CH8/EX8.7/Ex8_7.sce b/3014/CH8/EX8.7/Ex8_7.sce
new file mode 100755
index 000000000..7160962a5
--- /dev/null
+++ b/3014/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,12 @@
+

+  clc

+// Given that

+H_c_0= 8e5// Critical field in A/m 

+H_c= 4e4 // Magnetic field in A/m

+T_c = 7.26 // Critical temperature in kelvin

+

+printf("Example 8.7\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+T = T_c*sqrt(1- (H_c/H_c_0)) // Calculation of Temperature

+

+printf("Required temperature is %f K.\n\n\n",T)

diff --git a/3014/CH8/EX8.7/Ex8_7.txt b/3014/CH8/EX8.7/Ex8_7.txt
new file mode 100755
index 000000000..9b6086059
--- /dev/null
+++ b/3014/CH8/EX8.7/Ex8_7.txt
@@ -0,0 +1,4 @@
+

+Example 8.7

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Required temperature is 7.076173 K.

diff --git a/3014/CH8/EX8.8/Ex8_8.sce b/3014/CH8/EX8.8/Ex8_8.sce
new file mode 100755
index 000000000..321eeaa14
--- /dev/null
+++ b/3014/CH8/EX8.8/Ex8_8.sce
@@ -0,0 +1,20 @@
+

+  clc

+// Given that

+T1 = 14 // Temp in K

+T2 = 13 // Temp in K

+T = 4.2 // Temp in K

+Hc_T1 = 0.176 // Critical field at Temp T1

+Hc_T2 = 0.528 // Critical field at Temp T2

+

+printf("Example 8.8\n")

+printf("Standard formula used \tH_c = H_c_0*(1-(T/T_c)^2)  \n")

+T_c = sqrt((T1^2*(Hc_T2/Hc_T1)- T2^2) /(Hc_T2/Hc_T1 - 1)) // Calculation of transition temperature

+t_c = ceil(T_c*10)/10 // Rounding off two two decimal places

+Hc_0 = Hc_T1/(1-(T1/t_c)^2) // Calculation of critical field

+Hc_T = Hc_0*(1-(T/t_c)^2) // Calculation of critical field 

+

+printf("\n Transition temperature is %f K.\n",t_c)

+printf("Critical field at %f K is %fT.\n",T,Hc_0)

+printf("Critical field at 0 K is %fT.\n\n\n",Hc_T)

+// Answer in book is 2.588 T for 0 K and 2.37 for 4.2 K

diff --git a/3014/CH8/EX8.8/Ex8_8.txt b/3014/CH8/EX8.8/Ex8_8.txt
new file mode 100755
index 000000000..c32d57dc5
--- /dev/null
+++ b/3014/CH8/EX8.8/Ex8_8.txt
@@ -0,0 +1,8 @@
+

+

+

+Example 8.8

+Standard formula used 	H_c = H_c_0*(1-(T/T_c)^2)  

+Transition temperature is 14.474115 K.

+Critical field at 4.200000 K is 2.731259T.

+Critical field at 0 K is 2.982377T.

diff --git a/3014/CH8/EX8.9/Ex8_9.sce b/3014/CH8/EX8.9/Ex8_9.sce
new file mode 100755
index 000000000..4415a0c05
--- /dev/null
+++ b/3014/CH8/EX8.9/Ex8_9.sce
@@ -0,0 +1,18 @@
+

+  clc

+// Given that

+m_0 = 9.1e-31 // Mass of electron in kg

+mu_0 = 1.256e-6// SI

+e = 1.6e-19 // Charge on electron in coulomb

+eta_s = 1e28 // superelectron density in  no. per cube

+T_1 = 0 // First temp in kelvin

+T_2 = 1 // Second temp in kelvin

+T_c = 3 // Critical temp in kelvin

+

+printf("Example 8.9\n")

+printf("Standard formula used \tlambda_0 = sqrt(m_0/(mu_0*eta_s*e^2))\n")

+lambda_0 = sqrt(m_0/(mu_0*eta_s*e^2))// Calculation of penetration depth at 0K

+lambda_t = lambda_0/sqrt(1-(T_2/T_c)^4) // Calculation of penetration depth at 2K

+

+printf("Penetration depth at %d K is %d angestrom.",T_1,lambda_0*1e10)

+printf("\nPenetration depth at %d K is %f angestrom.\n\n\n",T_2,lambda_t*1e10)

diff --git a/3014/CH8/EX8.9/Ex8_9.txt b/3014/CH8/EX8.9/Ex8_9.txt
new file mode 100755
index 000000000..99f099fff
--- /dev/null
+++ b/3014/CH8/EX8.9/Ex8_9.txt
@@ -0,0 +1,4 @@
+ Example 8.9

+Standard formula used 	lambda_0 = sqrt(m_0/(mu_0*eta_s*e^2))

+Penetration depth at 0 K is 531 angestrom.

+Penetration depth at 1 K is 535.307601 angestrom.
\ No newline at end of file