From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3792/CH5/EX5.17/Ex5_17.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 3792/CH5/EX5.17/Ex5_17.sce

(limited to '3792/CH5/EX5.17/Ex5_17.sce')

diff --git a/3792/CH5/EX5.17/Ex5_17.sce b/3792/CH5/EX5.17/Ex5_17.sce
new file mode 100644
index 000000000..238d910c4
--- /dev/null
+++ b/3792/CH5/EX5.17/Ex5_17.sce
@@ -0,0 +1,26 @@
+// SAMPLE PROBLEM 5/17
+clc;clear;funcprot(0);
+// Given data
+omega=2;// rad/sec
+theta=45;// degree
+OCbar=450;// mm
+CAbar=225;// mm
+
+// Calculation
+// v_A=omega_CA*r_CA;
+// v_A=(225/sqrt(2))omega_CA*(i-j)
+OPbar=sqrt((OCbar-CAbar)^2+(CAbar)^2);// mm
+r=OPbar;// mm
+omega=omega;//(k) rad/s
+O=omega*r;// mm/s
+// Substitution into the relative-velocity equation gives
+// (225/sqrt(2))omega_CA*(i-j)=(450*sqrt(2)j+xdoti)
+// Equating separately the coefficients of the i and j terms yields
+omega_CA=O/(225/sqrt(2));// mm/s
+xdot=(225/sqrt(2))*omega_CA;// mm/s
+v_rel=xdot;// mm/s
+v_A=CAbar*abs(omega_CA);// mm/s
+v_P=OPbar*omega;// mm/s
+v_AP=abs(v_rel);// mm/s
+omega_AC=v_A/CAbar;// rad/s
+printf("\nThe actual angular velocity of CA,omega_CA=%1.0f rad/s \nThe velocity of A relative to the rotating slot in OD,xdot=v_rel=%3.2f mm/s \nThe velocity of pin A,v_A=%3.0f mm/s",omega_CA,xdot,v_A);
-- 
cgit