diff options
Diffstat (limited to '1826/CH19/EX19.11/ex19_11.sce')
-rwxr-xr-x | 1826/CH19/EX19.11/ex19_11.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1826/CH19/EX19.11/ex19_11.sce b/1826/CH19/EX19.11/ex19_11.sce new file mode 100755 index 000000000..05654bce8 --- /dev/null +++ b/1826/CH19/EX19.11/ex19_11.sce @@ -0,0 +1,10 @@ +// Example 19.11, page no-548
+clear
+clc
+awt=157.25//atomic weight
+an=64//atomic number
+d=7860//density
+k=9.27*10^-24
+avg=6.023*10^26
+N=d*8*k*avg/awt
+printf("The saturation magnetisation of gadolinium is %.2f*10^6 A/m",N*10^-6)
|