summaryrefslogtreecommitdiff
path: root/24/CH12/EX12.9/Example12_9.sce
blob: f3ac662a4229113d07098fab4cf86f7c3701f9af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
exec('degree_rad.sci', -1)

//Given that
M = 1  //(say)
d = 0.50  //in meter
Wi = -2  //in rad/s
m = 1/3*M
Vi = 12  //in m/s
A = dtor(60)  //in rad

//Sample Problem 12-9
printf("**Sample Problem 12-9**\n")
//initial angular momentum
Ii = M*d^2/3 * 4
Lti = Ii*Wi  //of the turnstile
Lbi = m* Vi * d * cos(A)
//final angular momentum
//Lf = Itotal * Wf
Itotal = Ii + m*d^2
//Using angular momentum conservation
Wf = (Lti + Lbi)/Itotal
printf("The final angular velocity of the ball-turnstile is %frad/s", Wf)