1 files changed, 14 insertions, 0 deletions
diff --git a/3845/CH10/EX10.13/Ex10_13.sce b/3845/CH10/EX10.13/Ex10_13.sce
new file mode 100644
index 000000000..c7951dcb8
--- /dev/null
+++ b/3845/CH10/EX10.13/Ex10_13.sce
@@ -0,0 +1,14 @@
+//Example 10.13
+F=2000;//Force exerted (N)
+r=2.20*10^-2;//Lever arm (m)
+net_tau=r*F;//Net torque (N.m)
+I=1.25;//Moment of inertia (kg.m^2)
+alpha=net_tau/I;//Angular acceleration (rad/s^2)
+printf('a.Angular acceleration of the leg =%0.1f rad/s^2',alpha)
+theta=1;//Angular displacement (rad)
+omega_0=0;//Initial angular velocity (rad/s)
+omega=sqrt(omega_0^2+2*alpha*theta);//Final angular velocity (rad/s)
+KE_rot=(1/2)*I*omega^2;//Rotational kinetic energy (J)
+printf('\nb.Rotational kinetic energy of the leg  = %0.1f J',KE_rot)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest