summaryrefslogtreecommitdiff
path: root/1952/CH12/EX12.31/Ex31.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1952/CH12/EX12.31/Ex31.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1952/CH12/EX12.31/Ex31.sce')
-rwxr-xr-x1952/CH12/EX12.31/Ex31.sce7
1 files changed, 7 insertions, 0 deletions
diff --git a/1952/CH12/EX12.31/Ex31.sce b/1952/CH12/EX12.31/Ex31.sce
new file mode 100755
index 000000000..9576385d1
--- /dev/null
+++ b/1952/CH12/EX12.31/Ex31.sce
@@ -0,0 +1,7 @@
+// Additional solved examples , Example 31 , pg 346
+H0=7*10^4 //magnetic field intensity at 0K (in A/m)
+T=4.2 //temperature (in K)
+Tc=8.2 //critical temperature (in K)
+Hc=H0*(1-(T^2/Tc^2)) // critical magnetic field intensity
+printf("critical magnetic field intensity\n")
+printf("Hc=%.0f A/m",Hc)