summaryrefslogtreecommitdiff
path: root/24/CH11/EX11.10/Example11_10.sce
blob: ab57e591b38c718c9ecffd3636b8bb6a26301711 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Given that
m = 1  //(say)
R = 0.15  //in meter
L = 2.0 * R
g =  9.8  //in m/s^2

//Sample Problem 11-10
printf("**Sample Problem 11-10**\n")
I = 0.5*m*R^2 + m*L^2/12 + m*(L/2+R)^2
deltaU = m* g* (L + 2*R)
//deltaK = 0.5*I*w^2
//therefore-
w = sqrt(deltaU/(0.5*I))
printf("The angular speed is equal to %frad/s", w)