1 files changed, 10 insertions, 0 deletions
diff --git a/3717/CH17/EX17.1/Ex17_1.sce b/3717/CH17/EX17.1/Ex17_1.sce
new file mode 100644
index 000000000..db16f4db5
--- /dev/null
+++ b/3717/CH17/EX17.1/Ex17_1.sce
@@ -0,0 +1,10 @@
+// Ex17_1 Page:324 (2014)
+clc;clear;
+A = poly (0, 'A');    // Declare the mass number variable
+m_n = 1.67e-027;    // Nucleon mass, kg
+R0 = 1.2e-015;    // Nuclear constant, m 
+d = m_n*A/(4/3*%pi*R0^3*A);
+printf("\nDensity of the nucleus = %3.1e km/metre-cube", horner(d,0));
+
+// Result
+// Density of the nucleus = 2.3e+017 km/metre-cube 
+\ No newline at end of file