1 files changed, 17 insertions, 0 deletions
diff --git a/3845/CH10/EX10.8/Ex10_8.sce b/3845/CH10/EX10.8/Ex10_8.sce
new file mode 100644
index 000000000..1722a01d4
--- /dev/null
+++ b/3845/CH10/EX10.8/Ex10_8.sce
@@ -0,0 +1,17 @@
+//Example 10.8
+r=0.320;//Radius of grindstone
+F=200;//Force exerted (N)
+theta=1;//Angle taken through (rad)
+net_tau=r*F;//Net torque (N.m)
+net_W=net_tau*theta;//Net work (J)
+printf('a.Net work done = %0.1f J',net_W)
+M=85;//Mass of grindstone (kg)
+omega_0=0;//Initial angular velocity (rad/s)
+I=1/2*M*r^2;//Moment of inertia (kg.m^2)
+alpha=net_tau/I;//Angular acceleration (rad/s^2)
+omega=sqrt(omega_0^2+2*alpha*theta);//Final angular velocity (rad/s)
+printf('\nb.Final angular velocity = %0.2f rad/s',omega)
+KE_rot=1/2*I*omega^2;//Rotational kinetic energy (J)
+printf('\nc.Final rotational kinetic energy = %0.1f J',KE_rot)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest