1 files changed, 12 insertions, 0 deletions
diff --git a/1883/CH7/EX7.3.2/Example7_2.sce b/1883/CH7/EX7.3.2/Example7_2.sce
new file mode 100755
index 000000000..f9a77c830
--- /dev/null
+++ b/1883/CH7/EX7.3.2/Example7_2.sce
@@ -0,0 +1,12 @@
+//Chapter-7,Example7_3_2,pg 7-7
+
+Bo=3.06*10^-2                                //critical field at absolute zero
+
+Tc=3.7                                       //critical temperature
+
+T=2                                          //temperature
+
+Bc=Bo*(1-(T/Tc)^2)
+
+printf("\ncritical field of wire  Bc = %.5f T",Bc)
+