summaryrefslogtreecommitdiff
path: root/3886/CH20/EX20.11/20_11.sce
blob: 455b3d26dfc7ecb9c0f6871b8d65571857393678 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Rods welded
//refer fig. 20.9 (a) and (b)
//Mass moment of inertia of AB about axis of rotation
AB=((200*1.2*1.2)/(12*9.81))+((200*0.6*0.6)/(9.81))
//Mass moment of inertia of rod CD about A
CD=((100*0.6*0.6)/(12*9.81))+((100*1.2*1.2)/(9.81))
//Total mass moment of the system about A
I=9.786+147.0
//Let alpha be the instantaneous angular acceleration
//Kinetic equation for motion gives
alpha=(300*0.75)/(156.786)  //rad/sec
//Writing the dynamic equilibrium condition
VA=200+100  //N
HA=300-((200*0.6*alpha)/(9.81))-((100*1.2*alpha)/(9.81))  //N
printf("\nVA=%.3f N\nHA=%.3f N",VA,HA)