1 files changed, 23 insertions, 0 deletions
diff --git a/3792/CH6/EX6.4/Ex6_4.sce b/3792/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..2446945df
--- /dev/null
+++ b/3792/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,23 @@
+// SAMPLE PROBLEM 6/4
+clc;funcprot(0);
+// Given data
+m=7.5;// kg
+rbar=250/1000;// m
+k_o=295/1000;// m
+theta_1=0;// degree
+theta_2=60;// degree
+g=9.81;// The acceleration due to gravity in m/s^2
+
+// Calculation
+// SigmaM_o=I_o*alpha;
+// alpha=28.2*cos(theta);
+wsquare=48.8;// (rad/s)^2
+// SigmaF_n=m*rbar*omega^2;
+O_n=(m*rbar*wsquare)+(m*g*sind(theta_2));// N
+// SigmaF_t=m*rbar*alpha;
+O_t=(m*g*cosd(theta_2))-(m*rbar*28.2*cosd(theta_2));// N
+O=sqrt(O_n^2+O_t^2);// N
+q=k_o^2/(rbar);// The distance in m
+// SigmaM_Q=0
+O_t=(m*g*cosd(theta_2)*(q-rbar))/q;// N
+printf("\nThe total force supported by the bearing,O=%3.1f N \nO_t=%2.2f N",O,O_t);