1 files changed, 9 insertions, 0 deletions
diff --git a/1535/CH6/EX7.1/Ch07Ex1.sci b/1535/CH6/EX7.1/Ch07Ex1.sci
new file mode 100755
index 000000000..037d2328b
--- /dev/null
+++ b/1535/CH6/EX7.1/Ch07Ex1.sci
@@ -0,0 +1,9 @@
+// Scilab Code Ex7.1 : Variation of critical magnetic field with temperature : Page-152 (2010)
+T_c = 3.722;    // Critical temperature of superconducting transition, kelvin
+B_c0 = 0.0306;    // Critical magnetic field to destroy superconductivity, tesla
+T = 2;    // Temperature at which critical magnetic field is to be found out, kelvin
+B_cT = B_c0*(1-(T/T_c)^2);
+printf("\nThe critical magnetic field at %d K = %6.4f T", T, B_cT);
+
+// Result 
+// The critical magnetic field at 2 K = 0.0218 T s
+\ No newline at end of file