From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3456/CH21/EX21.2/Ex21_2.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 3456/CH21/EX21.2/Ex21_2.sce

(limited to '3456/CH21/EX21.2/Ex21_2.sce')

diff --git a/3456/CH21/EX21.2/Ex21_2.sce b/3456/CH21/EX21.2/Ex21_2.sce
new file mode 100644
index 000000000..f659ef8b6
--- /dev/null
+++ b/3456/CH21/EX21.2/Ex21_2.sce
@@ -0,0 +1,31 @@
+//Example 21.2
+//Mechanics of Machining
+//Page No. 687
+clc;clear;close;
+
+v=500;                    //in ft/min
+alpha=6;                    //in degrees
+b=0.4;                    //in inches
+t=0.008;                    //in inches
+Fv=100;                    //in lb
+Fh=250;                    //in lb
+L=20;                    //in in
+rho=0.283;                    //in lb/in^2
+m=13.36;                    //in gm
+m=m/454;            //conversion to lb
+
+tc=m/(rho*b*L);
+r=t/tc;
+fi=atand(r*cosd(alpha)/(1-r*sind(alpha)));
+mu=(Fv+Fh*tand(alpha))/(Fh-Fv*tand(alpha));
+be=atand(mu);
+Pr=sqrt(Fv^2+Fh^2);
+Ft=Pr*sind(be);
+p_fe=Ft*r/Fh;
+Fs=Fh*cosd(fi)-Fv*sind(fi);
+vs=v*cosd(alpha)/cosd(fi-alpha);
+p_se=Fs*vs/(Fh*v);
+U=Fh*v/(b*t*v);
+U=U/33000;                     //conversion to hp
+U=U/12;                         //conversion of ft units to in units
+printf('\nSlip plane angle = %g deg\nPercentage of total energy that goes into friction = %g percent\nPercentage of total energy that goes into shear = %g percent\nTotal energy per unit volume = %g hp min/in^3',fi,p_fe*100,p_se*100,U);
-- 
cgit