1 files changed, 13 insertions, 0 deletions
diff --git a/3831/CH1/EX1.9/Ex1_9.sce b/3831/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..803db7236
--- /dev/null
+++ b/3831/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,13 @@
+// Example 1_9
+clc;funcprot(0);
+// Given data
+m=10.0;// lbm
+omega=1800;// rpm
+d=4.00;// inches
+R=d/2;// inches
+g_c=32.174;// lbm.ft/lbf.s^2
+
+// Calculation
+I=(m*(R/12)^2)/2;// lbm.ft^2
+KE_rot=(I*((2*%pi*omega)/60)^2)/(2*g_c);// lbf
+printf("\nThe rotational kinetic energy in the armature of an electric motor,KE_rot=%2.1f ft.lbf",KE_rot);