1 files changed, 13 insertions, 0 deletions
diff --git a/3648/CH8/EX8.1/Ex8_1.sce b/3648/CH8/EX8.1/Ex8_1.sce
new file mode 100644
index 000000000..5394e5d39
--- /dev/null
+++ b/3648/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,13 @@
+//Example 8_1
+clc();
+clear;
+//To find the rotational kinetic energy
+m=5.98*10^24    //units in Kg
+r=6.37*10^6   //units in meters
+I=(2/5)*m*r^2   //units in Kg meter^2
+t=86400   //units in sec
+w=(2*%pi)/(t) //units in rad/sec
+KE=0.5*(I*w^2)       //units in joules
+printf("The rotational kinetic energy is KE=")
+disp(KE)
+printf("Joules")