14 files changed, 150 insertions, 0 deletions
diff --git a/2258/CH5/EX5.1/5_1.sce b/2258/CH5/EX5.1/5_1.sce
new file mode 100755
index 000000000..05e99ba4a
--- /dev/null
+++ b/2258/CH5/EX5.1/5_1.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the critical field
+Tc=3.7;        //critical temperature in kelvin
+Hc_0=0.0306;    //critical field in T
+T=2;
+Hc_2k=Hc_0*(1-((T/Tc)^2));
+printf("the critical feild at 2K is %f Tesla",Hc_2k);
diff --git a/2258/CH5/EX5.10/5_10.sce b/2258/CH5/EX5.10/5_10.sce
new file mode 100755
index 000000000..7310349b2
--- /dev/null
+++ b/2258/CH5/EX5.10/5_10.sce
@@ -0,0 +1,14 @@
+clc();
+clear;
+// To calculate the critical current
+d=3;     //diameter in mm
+d=d*10^-3;     //diameter in m
+Tc=8;        //critical temp in K 
+T=5;       //temp in K 
+Ho=5*10^4;    //magnetic field in A/m
+r=d/2;
+Hc=Ho*(1-((T/Tc)^2));
+Ic=2*%pi*r*Hc;
+printf("critical current is %f amp",Ic);
+
+//answer in the book is wrong
diff --git a/2258/CH5/EX5.11/5_11.sce b/2258/CH5/EX5.11/5_11.sce
new file mode 100755
index 000000000..ab3a4f245
--- /dev/null
+++ b/2258/CH5/EX5.11/5_11.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the critical temperature
+M1=199.5;    //isotopic mass
+M2=203.4;
+Tc1=4.185;      //1st critical temp in K
+Tc2=Tc1*sqrt(M1/M2);
+printf("the critical temperature is %f K",Tc2);
diff --git a/2258/CH5/EX5.12/5_12.sce b/2258/CH5/EX5.12/5_12.sce
new file mode 100755
index 000000000..eecab8366
--- /dev/null
+++ b/2258/CH5/EX5.12/5_12.sce
@@ -0,0 +1,12 @@
+clc();
+clear;
+// To calculate the EM wave frequency
+V=8.50;    //voltage in micro Volts
+V=V*10^-6;     //in volts
+e=1.6*10^-19;       //electron charge in coulomb
+h=6.626*10^-24;
+new=2*e*V/h;
+printf("EM wave frequency in Hz is");
+disp(new);
+
+//answer given in the book is wrong
diff --git a/2258/CH5/EX5.13/5_13.sce b/2258/CH5/EX5.13/5_13.sce
new file mode 100755
index 000000000..38ee59194
--- /dev/null
+++ b/2258/CH5/EX5.13/5_13.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the critical temperature
+p1=1;     //1st pressure in mm
+p2=6;     //2nd pressure in mm
+Tc1=5;    //1st critical temp in K
+Tc2=Tc1*(p2/p1);
+printf("the critical temperature is %f K",Tc2);
diff --git a/2258/CH5/EX5.14/5_14.sce b/2258/CH5/EX5.14/5_14.sce
new file mode 100755
index 000000000..4c90fc77f
--- /dev/null
+++ b/2258/CH5/EX5.14/5_14.sce
@@ -0,0 +1,10 @@
+clc();
+clear;
+// To calculate maximum critical temperature
+Tc=8.7;      //1st critical temp in K
+Hc=6*10^5;      //critical magnetic field in Amp/m
+Ho=3*10^6;      //critical magnetic field in Amp/m
+T=Tc*sqrt(1-(Hc/Ho));
+printf("maximum critical temperature is %f K",T);
+
+//answer given in the book is wrong
diff --git a/2258/CH5/EX5.2/5_2.sce b/2258/CH5/EX5.2/5_2.sce
new file mode 100755
index 000000000..b94529d8d
--- /dev/null
+++ b/2258/CH5/EX5.2/5_2.sce
@@ -0,0 +1,14 @@
+clc();
+clear;
+// To calculate the critical current
+T=4.2;         //temp in kelvin
+Tc=7.18;       //critical temp in kelvin
+Hc_0=6.5*10^4;        //in amp/m
+d=1;     //diameter in mm
+d=d*10^-3;    //diameter in m
+r=d/2;
+Hc_T=Hc_0*(1-((T/Tc)^2));
+Ic=2*%pi*r*Hc_T;
+printf("the critical current is %f Amp",Ic);
+
+//answer given in the book is wrong
diff --git a/2258/CH5/EX5.3/5_3.sce b/2258/CH5/EX5.3/5_3.sce
new file mode 100755
index 000000000..704c91bd4
--- /dev/null
+++ b/2258/CH5/EX5.3/5_3.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the penetration depth
+lamda_T=75;       // penetration depth in nm
+T=3.5;        //temperature in K
+HgTc=4.12;       //in K
+lamda_0=lamda_T*sqrt(1-((T/HgTc)^4));
+printf("the pentration depth at 0k is %f nm",lamda_0);
diff --git a/2258/CH5/EX5.4/5_4.sce b/2258/CH5/EX5.4/5_4.sce
new file mode 100755
index 000000000..476478518
--- /dev/null
+++ b/2258/CH5/EX5.4/5_4.sce
@@ -0,0 +1,24 @@
+clc();
+clear;
+// To calculate the critical temperature
+lamda_T1=396;           //pentration depth in armstrong
+lamda_T2=1730;          //pentration depth in armstrong
+T1=3;                     //temperature in K
+T2=7.1;                   //temperature in K
+//lamda_T2^2=lamda_0^2*(((Tc^4-T2^4)/Tc^4)^-1)
+//lamda_T12^=lamda_0^2*(((Tc^4-T1^4)/Tc^4)^-1)
+//dividing lamda_T2^2 by lamda_T1^2 = (Tc^4-T1^4)/(Tc^4-T2^4)
+//let A=lamda_T2^2 and B=lamda_T1^2
+A=lamda_T2^2;
+B=lamda_T1^2;
+C=A/B;
+X=T1^4;
+Y=T2^4;
+//C*((TC^4)-Y)=(Tc^4)-X
+//C*(Tc^4)-(Tc^4)=C*Y-X
+//(Tc^4)*(C-1)=(C*Y)-X
+//let Tc^4 be D
+//D*(C-1)=(C*Y)-X
+D=((C*Y)-X)/(C-1);
+Tc=D^(1/4);
+printf("the critical temperature is %f K",Tc);
diff --git a/2258/CH5/EX5.5/5_5.sce b/2258/CH5/EX5.5/5_5.sce
new file mode 100755
index 000000000..61c5519aa
--- /dev/null
+++ b/2258/CH5/EX5.5/5_5.sce
@@ -0,0 +1,10 @@
+clc();
+clear;
+// To calculate the critical field
+Tc=7.2;         //critical temp in K
+Ho=6.5*10^3;     //critical magnetic field in amp/m
+T=5;         //temp in K
+Hc=Ho*(1-((T/Tc)^2));
+printf("the critical magnetic field at 5K is %f amp/m",Hc);
+
+//answer given in the book is wrong
diff --git a/2258/CH5/EX5.6/5_6.sce b/2258/CH5/EX5.6/5_6.sce
new file mode 100755
index 000000000..af745ff01
--- /dev/null
+++ b/2258/CH5/EX5.6/5_6.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the critical feild at 2.5K
+Tc=3.5;         //in K
+Ho=3.2*10^3;    //in amp per m
+T=2.5;         //in K
+Hc=Ho*(1-((T/Tc)^2));
+printf("critical field is %f amp/m is",Hc);
diff --git a/2258/CH5/EX5.7/5_7.sce b/2258/CH5/EX5.7/5_7.sce
new file mode 100755
index 000000000..ff2447db1
--- /dev/null
+++ b/2258/CH5/EX5.7/5_7.sce
@@ -0,0 +1,10 @@
+clc();
+clear;
+// To calculate the transition temperature
+Hc=5*10^3       //critical magnetic field in amp/m
+Ho=2*10^4;      //critical field in amp/m
+T=6;         //temp in K
+Tc=T/sqrt(1-(Hc/Ho));
+printf("the transition temperature is %f K",Tc)
+
+//answer in the book is wrong
diff --git a/2258/CH5/EX5.8/5_8.sce b/2258/CH5/EX5.8/5_8.sce
new file mode 100755
index 000000000..02c13c257
--- /dev/null
+++ b/2258/CH5/EX5.8/5_8.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the critical current
+Hc=2*10^3;       //critical magnetic field in amp/m
+R=0.02;       //radius in m
+p=3.14;
+Ic=2*p*R*Hc;
+printf("the critical current is %f amp",Ic);
diff --git a/2258/CH5/EX5.9/5_9.sce b/2258/CH5/EX5.9/5_9.sce
new file mode 100755
index 000000000..f9d129e12
--- /dev/null
+++ b/2258/CH5/EX5.9/5_9.sce
@@ -0,0 +1,8 @@
+clc();
+clear;
+// To calculate the isotopic mass
+M1=199.5;      //isotopic mass in in a.m.u
+T1=5;         //1st critical temp in K
+T2=5.1;       //2nd critical temp in K
+M2=((T1/T2)^2)*M1;
+printf("the isotopic mass of M2 is %f a.m.u",M2);