summaryrefslogtreecommitdiff
path: root/3845/CH10/EX10.9/Ex10_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '3845/CH10/EX10.9/Ex10_9.sce')
-rw-r--r--3845/CH10/EX10.9/Ex10_9.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/3845/CH10/EX10.9/Ex10_9.sce b/3845/CH10/EX10.9/Ex10_9.sce
new file mode 100644
index 000000000..c4bd43544
--- /dev/null
+++ b/3845/CH10/EX10.9/Ex10_9.sce
@@ -0,0 +1,18 @@
+//Example 10.9
+l=4;//Length of each blade (m)
+M=50;//Mass of each blade (kg)
+omega=300;//Angular velocity (rpm)
+omega=omega*2*%pi/60;//Angular velocity (rad/s)
+I=4*M*l^2/3;//Moment of inertia (kg/m^2)
+KE_rot=(1/2)*I*omega^2;//Rotational kinetic energy (J)
+printf('a.Rotational kinetic energy = %0.2e J',KE_rot)
+v=20;//Flight velocity (m/s)
+m=1000;//Total loaded mass of the helicopter (kg)
+KE_trans=(1/2)*m*v^2;//Translational kinetic energy (J)
+printf('\nb.Translational kinetic energy = %0.2e J',KE_trans)
+printf('\n Ratio of translational kinetic energy to rotational kinetic energy = %0.3f',KE_trans/KE_rot)
+g=9.8;//Acceleration due to gravity (m/s^2)
+h=(1/2)*I*omega^2/(m*g);//Maximum height (m)
+printf('\nc.Maximum height = %0.1f m',h)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest