summaryrefslogtreecommitdiff
path: root/3768/CH10
diff options
context:
space:
mode:
Diffstat (limited to '3768/CH10')
-rw-r--r--3768/CH10/EX10.1/Ex10_1.sce13
-rw-r--r--3768/CH10/EX10.10/Ex10_10.sce14
-rw-r--r--3768/CH10/EX10.2/Ex10_2.sce13
-rw-r--r--3768/CH10/EX10.3/Ex10_3.sce14
-rw-r--r--3768/CH10/EX10.4/Ex10_4.sce13
-rw-r--r--3768/CH10/EX10.5/Ex10_5.sce13
-rw-r--r--3768/CH10/EX10.6/Ex10_6.sce17
-rw-r--r--3768/CH10/EX10.7/Ex10_7.sce13
-rw-r--r--3768/CH10/EX10.8/Ex10_8.sce13
-rw-r--r--3768/CH10/EX10.9/Ex10_9.sce13
10 files changed, 136 insertions, 0 deletions
diff --git a/3768/CH10/EX10.1/Ex10_1.sce b/3768/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..d45d8310b
--- /dev/null
+++ b/3768/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,13 @@
+//Example number 10.1, Page number 224
+
+clc;clear;
+close;
+
+//Variable declaration
+T=5; //temperature(K)
+Tc=7.2; //critical temperature(K)
+H0=6.5*10**3; //critical magnetic field(A/m)
+//Calculation
+Hc=H0*(1-(T/Tc)**2); //critical field(A/m)
+//Result
+printf("critical field is %.3e A/m",Hc)
diff --git a/3768/CH10/EX10.10/Ex10_10.sce b/3768/CH10/EX10.10/Ex10_10.sce
new file mode 100644
index 000000000..e67110c2c
--- /dev/null
+++ b/3768/CH10/EX10.10/Ex10_10.sce
@@ -0,0 +1,14 @@
+//Example number 10.10, Page number 227
+
+clc;clear;
+close;
+
+//Variable declaration
+Hc=6*10**5; //critical magnetic field(A/m)
+Tc=8.7; //critical temperature(K)
+H0=3*10**6; //critical magnetic field(A/m)
+//Calculation
+T=Tc*sqrt(1-(Hc/H0)); //maximum critical temperature(K)
+//Result
+printf("maximum critical temperature is %.3f K",T)
+//answer given in the book is wrong
diff --git a/3768/CH10/EX10.2/Ex10_2.sce b/3768/CH10/EX10.2/Ex10_2.sce
new file mode 100644
index 000000000..116db8061
--- /dev/null
+++ b/3768/CH10/EX10.2/Ex10_2.sce
@@ -0,0 +1,13 @@
+//Example number 10.2, Page number 225
+
+clc;clear;
+close;
+
+//Variable declaration
+T=2.5; //temperature(K)
+Tc=3.5; //critical temperature(K)
+H0=3.2*10**3; //critical magnetic field(A/m)
+//Calculation
+Hc=H0*(1-(T/Tc)**2); //critical field(A/m)
+//Result
+printf("critical field is %.3e A/m",Hc)
diff --git a/3768/CH10/EX10.3/Ex10_3.sce b/3768/CH10/EX10.3/Ex10_3.sce
new file mode 100644
index 000000000..ff8458ab5
--- /dev/null
+++ b/3768/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,14 @@
+//Example number 10.3, Page number 225
+
+clc;clear;
+close;
+
+//Variable declaration
+Hc=5*10**3; //critical magnetic field(A/m)
+T=6; //temperature(K)
+H0=2*10**4; //critical magnetic field(A/m)
+//Calculation
+Tc=T/sqrt(1-(Hc/H0)); //critical temperature(K)
+//Result
+printf("critical temperature is %.3f K",Tc)
+//answer given in the book is wrong
diff --git a/3768/CH10/EX10.4/Ex10_4.sce b/3768/CH10/EX10.4/Ex10_4.sce
new file mode 100644
index 000000000..c16d259c6
--- /dev/null
+++ b/3768/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,13 @@
+//Example number 10.4, Page number 225
+
+clc;clear;
+close;
+
+//Variable declaration
+Hc=2*10**3; //critical magnetic field(A/m)
+r=0.02; //radius(m)
+//Calculation
+Ic=2*%pi*r*Hc; //critical current(amp)
+//Result
+printf("critical current is %.1f A",Ic)
+//answer in the book varies due to rounding off errors
diff --git a/3768/CH10/EX10.5/Ex10_5.sce b/3768/CH10/EX10.5/Ex10_5.sce
new file mode 100644
index 000000000..ad2984b66
--- /dev/null
+++ b/3768/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,13 @@
+//Example number 10.5, Page number 225
+
+clc;clear;
+close;
+
+//Variable declaration
+T1=5; //temperature(K)
+T2=5.1; //temperature(K)
+M1=199.5; //isotopic mass(amu)
+//Calculation
+M2=M1*(T1/T2)**2; //isotopic mass(amu)
+//Result
+printf("isotopic mass is %.2f a.m.u.",M2)
diff --git a/3768/CH10/EX10.6/Ex10_6.sce b/3768/CH10/EX10.6/Ex10_6.sce
new file mode 100644
index 000000000..b382321b6
--- /dev/null
+++ b/3768/CH10/EX10.6/Ex10_6.sce
@@ -0,0 +1,17 @@
+//Example number 10.6, Page number 226
+
+clc;clear;
+close;
+
+//Variable declaration
+T=5; //temperature(K)
+Tc=8; //critical temperature(K)
+H0=5*10**4; //critical magnetic field(A/m)
+r=1.5*10**-3; //radius(m)
+//Calculation
+Hc=H0*(1-(T/Tc)**2); //critical field(A/m)
+Ic=2*%pi*r*Hc; //critical current(amp)
+//Result
+printf("critical field is %.4e A/m",Hc)
+printf("\n critical current is %.3f A",Ic)
+//answer in the book varies due to rounding off errors
diff --git a/3768/CH10/EX10.7/Ex10_7.sce b/3768/CH10/EX10.7/Ex10_7.sce
new file mode 100644
index 000000000..35c1aec11
--- /dev/null
+++ b/3768/CH10/EX10.7/Ex10_7.sce
@@ -0,0 +1,13 @@
+//Example number 10.7, Page number 226
+
+clc;clear;
+close;
+
+//Variable declaration
+Tc1=4.185; //critical temperature(K)
+M1=199.5; //isotopic mass(amu)
+M2=203.4; //isotopic mass(amu)
+//Calculation
+Tc2=Tc1*sqrt(M1/M2); //critical temperature(K)
+//Result
+printf("critical temperature is %.4f K",Tc2)
diff --git a/3768/CH10/EX10.8/Ex10_8.sce b/3768/CH10/EX10.8/Ex10_8.sce
new file mode 100644
index 000000000..6c49ca199
--- /dev/null
+++ b/3768/CH10/EX10.8/Ex10_8.sce
@@ -0,0 +1,13 @@
+//Example number 10.8, Page number 226
+
+clc;clear;
+close;
+
+//Variable declaration
+e=1.6*10**-19; //charge(c)
+h=6.626*10**-36; //plank constant
+V=8.5*10**-6; //voltage(V)
+//Calculation
+new=2*e*V/h; //frequency(Hz)
+//Result
+printf("frequency is %.3e Hz",new)
diff --git a/3768/CH10/EX10.9/Ex10_9.sce b/3768/CH10/EX10.9/Ex10_9.sce
new file mode 100644
index 000000000..f6597a8d3
--- /dev/null
+++ b/3768/CH10/EX10.9/Ex10_9.sce
@@ -0,0 +1,13 @@
+//Example number 10.9, Page number 227
+
+clc;clear;
+close;
+
+//Variable declaration
+Tc1=5; //critical temperature(K)
+P1=1; //pressure(mm)
+P2=6; //pressure(mm)
+//Calculation
+Tc2=Tc1*P2/P1; //critical temperature(K)
+//Result
+printf("critical temperature is %.f K",Tc2)