summaryrefslogtreecommitdiff
path: root/2411/CH1/EX1.9/Ex1_9.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2411/CH1/EX1.9/Ex1_9.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 '2411/CH1/EX1.9/Ex1_9.sce')
-rwxr-xr-x2411/CH1/EX1.9/Ex1_9.sce12
1 files changed, 12 insertions, 0 deletions
diff --git a/2411/CH1/EX1.9/Ex1_9.sce b/2411/CH1/EX1.9/Ex1_9.sce
new file mode 100755
index 000000000..ae996ba20
--- /dev/null
+++ b/2411/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,12 @@
+// Scilab Code Ex1.9: Page-14 (2008)
+clc; clear;
+omega1 = 500; // Angular speed of rotating shaft, r.p.m.
+omega2 = 0; // Initial angular speed of the second wheel, r.p.m.
+I = 1; // For simplicity assume moment of ineria of the wheels to be unity
+I1 = I, I2 = I; // Moment of inertia of wheels A and B, kg-Sq.m
+// As I1*omega1 + I2*omega2 = (I1 + I2)*omega, solving for omega
+omega = (I1*omega1 + I2*omega2)/(I1 + I2); // Angular speed of the combination of two wheels, r.p.m.
+printf("\nThe angular speed of the combination of two wheels = %3.0f r.p.m.", omega);
+
+// Result
+// The angular speed of the combination of two wheels = 250 r.p.m. \ No newline at end of file