1 files changed, 10 insertions, 0 deletions
diff --git a/3651/CH6/EX6.17/17.sce b/3651/CH6/EX6.17/17.sce
new file mode 100644
index 000000000..63dc3ec29
--- /dev/null
+++ b/3651/CH6/EX6.17/17.sce
@@ -0,0 +1,10 @@
+//Variable declaration
+H0=64*10**3;    //initial field(ampere/m)
+T=5;    //temperature(K)
+Tc=7.26;   //transition temperature(K)
+
+//Calculation
+H=H0*(1-(T/Tc)**2);     //critical field(ampere/m)
+
+//Result
+printf('critical field is %0.3f     *10**3 ampere/m   \n',(H/10**3))
+\ No newline at end of file