summaryrefslogtreecommitdiff
path: root/1970/CH9/EX9.7/CH09Exa7.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1970/CH9/EX9.7/CH09Exa7.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 '1970/CH9/EX9.7/CH09Exa7.sce')
-rwxr-xr-x1970/CH9/EX9.7/CH09Exa7.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/1970/CH9/EX9.7/CH09Exa7.sce b/1970/CH9/EX9.7/CH09Exa7.sce
new file mode 100755
index 000000000..7293243ad
--- /dev/null
+++ b/1970/CH9/EX9.7/CH09Exa7.sce
@@ -0,0 +1,19 @@
+// Scilab code Exa9.7 : : Page-392 (2011)
+clc; clear;
+h_cut = 1.0545e-34; // Reduced Planck's constant, joule sec
+R = 1.2e-15; // Distance of closest approach, metre
+m = 1.67482e-27; // Mass of the nucleon, Kg
+// For O-17
+for A = 17:60 // Mass numbers
+if A == 17 then
+omega_O = 5*3^(1/3)*h_cut*17^(-1/3)/(2^(7/3)*m*R^2); // Angular frequency of oxygen
+// For Ni-60
+elseif A == 60 then
+omega_Ni = 5*3^(1/3)*h_cut*60^(-1/3)/(2^(7/3)*m*R^2); // Angular frequency of nickel
+end
+end
+printf("\nThe angular frequency for oxygen 17 = %4.2e \nThe angular frequency for nickel 60 = %4.2e", omega_O, omega_Ni);
+
+// Result
+// The angular frequency for oxygen 17 = 2.43e+022
+// The angular frequency for nickel 60 = 1.60e+022 \ No newline at end of file