1 files changed, 12 insertions, 0 deletions
diff --git a/24/CH43/EX43.2/Example43_2.sce b/24/CH43/EX43.2/Example43_2.sce
new file mode 100755
index 000000000..1ce29e2d4
--- /dev/null
+++ b/24/CH43/EX43.2/Example43_2.sce
@@ -0,0 +1,12 @@
+//Sample Problem 43-2
+txt = mopen('Example43_2_result.txt','wt')
+mfprintf(txt, '**Sample Problem 43-2**\n')
+A = 1  //say for the purpose of calculation
+Mp = 1.67*10^-27
+Mass = A*Mp
+Rnot = 1.2*10^-15
+r = Rnot*A^(1/3)
+Volume = 4/3*%pi*r^3
+density = Mass/Volume
+mfprintf(txt, 'The density of nucleus is %eKg/m^3', density)
+mclose(txt)
+\ No newline at end of file