diff options
Diffstat (limited to '3845/CH10/EX10.14/Ex10_14.sce')
| -rw-r--r-- | 3845/CH10/EX10.14/Ex10_14.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3845/CH10/EX10.14/Ex10_14.sce b/3845/CH10/EX10.14/Ex10_14.sce new file mode 100644 index 000000000..6dd3dffa2 --- /dev/null +++ b/3845/CH10/EX10.14/Ex10_14.sce @@ -0,0 +1,14 @@ +//Example 10.14
+omega=0.8;//Angular velocity (rev/s)
+I=2.34;//Moment of inertia when arms are extended (kg.m^2)
+I_prime=0.363;//Moment of inertia when arms are close to the body (kg.m^2)
+m=60;//Mas of the skater (kg)
+omega_prime=I/I_prime*omega;//Angular velocity when arms are pulled in (rev/s)
+printf('a.Angular velocity when arms are pulled in = %0.2f rev/s',omega_prime)
+KE_rot=(1/2)*I*(omega*2*%pi)^2;//Rotational kinetic energy when arms are extended (J), also convert omega to units of rad/s
+printf('\nb.Initial rotational kinetic energy (extended arms) = %0.1f J',KE_rot)
+KE_rot_prime=(1/2)*I_prime*(omega_prime*2*%pi)^2;//Rotational kinetic energy when arms are pulled in (J), also convert omega to units of rad/s
+printf('\n Final rotational kinetic energy (arms pulled in) = %0.1f J',KE_rot_prime)
+//Answer varies due to round off error
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
|