summaryrefslogtreecommitdiff
path: root/213/CH15
diff options
context:
space:
mode:
Diffstat (limited to '213/CH15')
-rwxr-xr-x213/CH15/EX15.6/15_6.sce31
1 files changed, 16 insertions, 15 deletions
diff --git a/213/CH15/EX15.6/15_6.sce b/213/CH15/EX15.6/15_6.sce
index 1dd040dda..fe6c21f3a 100755
--- a/213/CH15/EX15.6/15_6.sce
+++ b/213/CH15/EX15.6/15_6.sce
@@ -1,16 +1,17 @@
-//To find inertia force
-clc
-//Given:
-D=175/1000, L=200/1000, r=L/2, l=400/1000 //m
-N=500 //rpm
-mR=180 //kg
-//Solution:
-//Calculating the angular speed of the crank
-omega=2*%pi*N/60 //rad/s
-//Analytical method:
-//Calculating the ratio of lengths of connecting rod and crank
-n=l/r
-//Calculating the inertia force
-FI=mR*omega^2*r*(cosd(theta)+cosd(2*theta)/n)/1000 //kN
-//Results:
+//To find inertia force
+clc
+//Given:
+D=175/1000, L=200/1000, r=L/2, l=400/1000 //m
+N=500 //rpm
+mR=180 //kg
+theta = 60;
+//Solution:
+//Calculating the angular speed of the crank
+omega=2*%pi*N/60 //rad/s
+//Analytical method:
+//Calculating the ratio of lengths of connecting rod and crank
+n=l/r
+//Calculating the inertia force
+FI=mR*omega^2*r*(cosd(theta)+cosd(2*theta)/n)/1000 //kN
+//Results:
printf("\n\n Inertia force, FI = %.2f kN.\n\n",FI) \ No newline at end of file