2 files changed, 18 insertions, 0 deletions
diff --git a/3886/CH22/EX22.9/22_9.sce b/3886/CH22/EX22.9/22_9.sce
new file mode 100644
index 000000000..996d5d633
--- /dev/null
+++ b/3886/CH22/EX22.9/22_9.sce
@@ -0,0 +1,12 @@
+//Uniform bar
+//refer fig. 22.15(a),(b),(c),(d),(e) and (f)
+beta=atand(0.6928/1.7856)  //degree
+//aG=alpha*sqrt((1.7856^2)+(0.6928^2))  
+I=(300*1.6^2)/(12*9.81)  
+//Equating
+alpha=((300*0.6928)/(82.3160))  //rad/sec^2
+//Taking horizontal components of the forces
+NB=(300*1.7856*2.5249)/(9.81*cosd(45))  //N
+//Taking vertical components of the forces
+NA=(300)-(194.98*sind(45))+((300*0.6928*2.5249)/(9.81))  //N (Printing mistake in text book)
+printf("\nNA=%.2f N\nNB=%.2f N\nalpha=%.2f rad/sec^2",NA,NB,alpha)
diff --git a/3886/CH22/EX22.9/22_9.txt b/3886/CH22/EX22.9/22_9.txt
new file mode 100644
index 000000000..cc49cf166
--- /dev/null
+++ b/3886/CH22/EX22.9/22_9.txt
@@ -0,0 +1,6 @@
+ 
+--> exec('E:\My program EM\22.General plane motion of rigid bodies\22.9.sce', -1)
+
+NA=215.62 N
+NB=194.98 N
+alpha=2.52 rad/sec^2
+\ No newline at end of file