initial commit / add all books

1 files changed, 33 insertions, 0 deletions

diff --git a/213/CH8/EX8.15/8_15.sce b/213/CH8/EX8.15/8_15.sce
new file mode 100755
index 000000000..2575f1862
--- /dev/null
+++ b/213/CH8/EX8.15/8_15.sce
@@ -0,0 +1,33 @@
+//To find linear and angular acceleration

+clc

+//Given:

+NAO=30 //rpm

+OA=150/1000,OC=100/1000,CD=125/1000,DR=500/1000 //m

+//Solution:

+//Refer Fig. 8.33

+//Calculating the angular speed of the crank OA

+omegaAO=2*%pi*NAO/60 //rad/s

+//Calculating the velocity of A with respect to O

+vAO=omegaAO*OA //m/s

+vA=vAO

+//By measurement from the velocity diagram, Fig. 8.33(b),

+vBC=0.46,vAB=0.15,vRD=0.12 //m/s

+CB=240/1000 //m

+//Calculating the angular velocity of the link BC

+omegaBC=vBC/CB //rad/s

+//Calculating the radial component of the acceleration of A with respect to O

+arAO=vAO^2/OA //m/s^2

+//Calculating the coriolis component of the acceleration of A with respect to coincident point B

+acAB=2*omegaBC*vAB //m/s^2

+//Calculating the radial component of the acceleration of B with respect to C

+arBC=vBC^2/CB //m/s^2

+//Calculating the radial component of the acceleration of R with respect to D

+arRD=vRD^2/DR //m/s^2

+//By measurement from the acceleration diagram, Fig. 8.33(c),

+aR=0.18,atBC=0.14 //m/s^2

+//Calculating the angular acceleration of the slotted lever CA

+alphaCA=atBC/CB //rad/s^2

+alphaBC=alphaCA

+//Results:

+printf("\n\n Acceleration of the sliding block R, aR = %.2f m/s^2.\n",aR)

+printf(" Angular acceleration of the slotted lever CA, alphaCA = %.3f rad/s^2, anticlockwise.\n\n",alphaCA)
\ No newline at end of file