1 files changed, 13 insertions, 0 deletions
diff --git a/3768/CH10/EX10.1/Ex10_1.sce b/3768/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..d45d8310b
--- /dev/null
+++ b/3768/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,13 @@
+//Example number 10.1, Page number 224
+
+clc;clear;
+close;
+
+//Variable declaration
+T=5;     //temperature(K)
+Tc=7.2;   //critical temperature(K)
+H0=6.5*10**3;   //critical magnetic field(A/m)
+//Calculation
+Hc=H0*(1-(T/Tc)**2);    //critical field(A/m)
+//Result
+printf("critical field is %.3e A/m",Hc)