1 files changed, 26 insertions, 0 deletions
diff --git a/3792/CH5/EX5.16/Ex5_16.sce b/3792/CH5/EX5.16/Ex5_16.sce
new file mode 100644
index 000000000..f25db2972
--- /dev/null
+++ b/3792/CH5/EX5.16/Ex5_16.sce
@@ -0,0 +1,26 @@
+// SAMPLE PROBLEM 5/16
+clc;funcprot(0);
+// Given data
+omega=4;// rad/sec
+omegadot=10;// rad/sec^2
+r=6;// in
+rdot=5;// in/sec
+rdotdot=81;// in/sec^2
+
+// Calculation
+// Velocity
+v_rel=rdot;// (k) in/sec
+v_A=[v_rel,(omega*r)];// in/sec
+printf("\nv_A=%1.0fi+%2.0fj in/sec",v_A(1),v_A(2));
+v_A=norm(v_A);// in/sec
+printf("\nv_A=%2.1f in/sec",v_A);
+// Acceleration
+// Assume O=omega*(omega*r);O_1=omegadot*r;O_2=(2*omega*v_rel);
+O=-(omega*(omega*r));// in/sec^2
+O_1=-omegadot*r;// in/sec^2
+O_2=2*(omega)*(v_rel);// in/sec^2
+a_rel=rdotdot;// in/sec^2
+a_A=[(a_rel+O),(O_2+O_1)];// in/sec^2
+printf("\na_A=%2.0fi+(%2.0f)j in/sec^2",a_A(1),a_A(2));
+a_A=norm(a_A);// in/sec^2
+printf("\na_A=%2.0f in/sec",a_A);