initial commit / add all books

1 files changed, 25 insertions, 0 deletions

diff --git a/3792/CH5/EX5.18/Ex5_18.sce b/3792/CH5/EX5.18/Ex5_18.sce
new file mode 100644
index 000000000..ed54dad1a
--- /dev/null
+++ b/3792/CH5/EX5.18/Ex5_18.sce
@@ -0,0 +1,25 @@
+// SAMPLE PROBLEM 5/18

+clc;clear;funcprot(0);

+// Given data

+omega=2;// rad/s

+theta=45;// degree

+OCbar=450;// mm

+CAbar=225;// mm

+

+// Calculation

+// a_A=(omegadot*r)+(omega*(omega*r))+(2*omega*v_rel)+a_rel

+// a_A=(omegadot_CA*r_CA)+omega_CA*(omega_CA*r_CA)

+// a_A=[omegadot_CA*(225/sqrt(2))*(-i-j)]-[4k*(-4k*225/sqrt(2))*(-i-j)]

+omega=2;// rad/s

+r=CAbar*sqrt(2);// mm

+omega_CA=-4;// rad/s

+v_rel=(-OCbar*sqrt(2));// mm/s

+// Assume O=omega*(omega*r);O_1=omegadot*r;O_2=(2*omega*v_rel);

+O_1=0;// mm/s^2

+O_2=omega*(omega*r);// mm/s^2

+O_2=2*omega*v_rel;// mm/s^2

+// a_rel=xdotdot;

+// [(1/sqrt(2))*(225omegadot_CA+3600)i]+[(1/sqrt(2))*(-225omegadot_CA+3600)j] =(900*sqrt(2))i-(1800*sqrt(2))j+xdotdoti

+omegadot_CA=(((-1800*sqrt(2))*sqrt(2))-3600)/-225;// rad/s^2

+xdotdot=(((225*omegadot_CA)+3600)/sqrt(2))-(-900*sqrt(2));// mm/s^2

+printf("\nThe angular acceleration of AC,omega_CA=%2.0f rad/s \nThe acceleration of A relative to the rotating slot in OD,xdotdot=%4.0f mm/s",omegadot_CA,xdotdot);