summaryrefslogtreecommitdiff
path: root/3768/CH10/EX10.10/Ex10_10.sce
diff options
context:
space:
mode:
Diffstat (limited to '3768/CH10/EX10.10/Ex10_10.sce')
-rw-r--r--3768/CH10/EX10.10/Ex10_10.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/3768/CH10/EX10.10/Ex10_10.sce b/3768/CH10/EX10.10/Ex10_10.sce
new file mode 100644
index 000000000..e67110c2c
--- /dev/null
+++ b/3768/CH10/EX10.10/Ex10_10.sce
@@ -0,0 +1,14 @@
+//Example number 10.10, Page number 227
+
+clc;clear;
+close;
+
+//Variable declaration
+Hc=6*10**5; //critical magnetic field(A/m)
+Tc=8.7; //critical temperature(K)
+H0=3*10**6; //critical magnetic field(A/m)
+//Calculation
+T=Tc*sqrt(1-(Hc/H0)); //maximum critical temperature(K)
+//Result
+printf("maximum critical temperature is %.3f K",T)
+//answer given in the book is wrong