5 files changed, 74 insertions, 0 deletions
diff --git a/3840/CH9/EX9.2/Ex9_2.sce b/3840/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..343549f9f
--- /dev/null
+++ b/3840/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19    //charge(c)
+h=6.626*10**-34  //plank constant
+V=8.5*10**-6     //voltage(V)
+
+//Calculation
+new=2*e*V/h      //frequency(Hz)
+
+//Result
+printf("\n frequency is %0.1f  *10**9 Hz",new/10**9)
diff --git a/3840/CH9/EX9.3/Ex9_3.sce b/3840/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..412d23afe
--- /dev/null
+++ b/3840/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+T=2         //temperature(K)
+Tc=3.7      //critical temperature(K)
+H0=0.0306   //critical magnetic field(A/m)
+
+//Calculation
+Hc=H0*(1-(T/Tc)**2)    //critical field(Tesla)
+
+//Result
+printf("\n critical field is %0.5f  Tesla",Hc)
diff --git a/3840/CH9/EX9.4/Ex9_4.sce b/3840/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..c7adbb575
--- /dev/null
+++ b/3840/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+Hc=200*10**3    //critical magnetic field(A/m)
+Tc=12           //critical temperature(K)
+H0=250*10**3    //critical magnetic field(A/m)
+
+//Calculation
+T=Tc*sqrt(1-(Hc/H0)**2)     //maximum critical temperature(K)
+
+//Result
+printf("\n maximum critical temperature is %0.3f  K",T)
diff --git a/3840/CH9/EX9.5/Ex9_5.sce b/3840/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..ba6fb048f
--- /dev/null
+++ b/3840/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+T=2.5         //temperature(K)
+Tc=3.7        //critical temperature(K)
+H0=0.03       //critical magnetic field(A/m)
+
+//Calculation
+Hc=H0*(1-(T/Tc)**2)    //critical field(Tesla)
+
+//Result
+printf("\n critical field is %0.4f  Tesla",Hc)
diff --git a/3840/CH9/EX9.6/Ex9_6.sce b/3840/CH9/EX9.6/Ex9_6.sce
new file mode 100644
index 000000000..462b11d1d
--- /dev/null
+++ b/3840/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19    //charge(c)
+h=6.625*10**-34  //plank constant
+V=650*10**-6     //voltage(V)
+
+//Calculation
+new=2*e*V/h      //frequency(Hz)
+
+//Result