summaryrefslogtreecommitdiff
path: root/3308/CH20/EX20.1/Ex20_1.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /3308/CH20/EX20.1/Ex20_1.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '3308/CH20/EX20.1/Ex20_1.sce')
-rwxr-xr-x3308/CH20/EX20.1/Ex20_1.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/3308/CH20/EX20.1/Ex20_1.sce b/3308/CH20/EX20.1/Ex20_1.sce
new file mode 100755
index 000000000..93bd6b3d2
--- /dev/null
+++ b/3308/CH20/EX20.1/Ex20_1.sce
@@ -0,0 +1,22 @@
+clc
+// Given that
+to=0.005//in inch depth of cut
+V=400//in ft/min cutting speed
+X=10//in degree rake angle
+w=0.25//in inch width of cut
+tc=0.009//in inch chip thickness
+Fc=125//in lb Cutting force
+Ft=50//in lb thrust force
+
+// Sample Problem on page no. 548
+
+printf("\n # Relative Energies in cutting # \n")
+
+r=to/tc//cutting ratio
+R=sqrt((Ft^2)+(Fc^2))
+B=acosd(Fc/R)+X//friction angle
+F=R*sind(B)
+P=((F*r)/Fc)*100
+printf("\n\n Percentage of total energy going into overcoming friction =%d pecrent",P)
+
+//Answer in the book is approximated to 32 due to approximation in calculation of R and B