summaryrefslogtreecommitdiff
path: root/3648/CH8/EX8.1/Ex8_1.sce
blob: 5394e5d39ef38c8f593f03fa2c0c5d124407ca0c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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")