1 files changed, 10 insertions, 0 deletions
diff --git a/1736/CH9/EX9.1/Ch09Ex1.sce b/1736/CH9/EX9.1/Ch09Ex1.sce
new file mode 100755
index 000000000..162366788
--- /dev/null
+++ b/1736/CH9/EX9.1/Ch09Ex1.sce
@@ -0,0 +1,10 @@
+// Scilab code Ex9.1 Page:278 (2006)
+clc; clear;
+H_c0 = 0.0803;    // Critical field at absolute zero, Tesla
+T_c = 7.19;    // Transition temperature of specimen  lead, Kelvin
+T = 5;    // Temperature at which destruction of superconductivity is to be found, Kelvin
+H_c = H_c0*[1-(T/T_c)^2];    // Critical field required to destroy superconductivity, Tesla
+printf("\nCritical field required to destroy superconductivity = %6.4f T", H_c);
+
+// Result 
+// Critical field required to destroy superconductivity = 0.0415 T