1 files changed, 14 insertions, 0 deletions
diff --git a/2243/CH8/EX8.1/Ex8_1.sce b/2243/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..453933bed
--- /dev/null
+++ b/2243/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,14 @@
+clc();
+clear;
+//Given:
+mp = 1.67*10^-27 ; // proton mass in kg
+r0 = 1.2*10^-15; // constant in m
+a0 = 0.5*10^-10; // atomic dimensions in m
+//rho_nucleus = nuclear mass/ nuclear volume
+rho_nucleus = (3*mp)/(4*%pi*r0^3); // nuclear density in kg/m^3
+//ratio = rho_nucleus/rho_atom =  (a0/r0)^3
+ratio = a0^3/r0^3;
+printf("Nuclear density is %.1f x 10^17 kg/m^3 \n",rho_nucleus*10^-17);
+printf("Nuclear density is %.1f x 10^13 times Atomic density.",ratio*10^-13);
+
+