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

---
 698/CH17/EX17.5/P5_forces_on_helical_gear.sce | 36 +++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 698/CH17/EX17.5/P5_forces_on_helical_gear.sce

(limited to '698/CH17/EX17.5/P5_forces_on_helical_gear.sce')

diff --git a/698/CH17/EX17.5/P5_forces_on_helical_gear.sce b/698/CH17/EX17.5/P5_forces_on_helical_gear.sce
new file mode 100644
index 000000000..0401173d8
--- /dev/null
+++ b/698/CH17/EX17.5/P5_forces_on_helical_gear.sce
@@ -0,0 +1,36 @@
+clc
+//Example 17.5
+//Forces on Helical gear
+
+//------------------------------------------------------------------------------
+
+//Given data
+//diameter of gear
+d=0.25 //m
+r=d/2
+//torque
+Mt=200 //Nm
+//number of teeth
+Ng=45
+//angles
+phi_t=20 //degrees
+alpha=30 //degrees
+
+res5=mopen(TMPDIR+'5_forces_on_helical_gear.txt','wt')
+
+//tangential force
+Ft=Mt/r
+mfprintf(res5,'(a)Ft=Mt/r\n\t=%d N\n\n',Ft)
+
+//Separating force
+Fr=Ft*tand(phi_t)
+mfprintf(res5,'(b)Fr=Ft*tan(phi_t)\n\t=%d N\n\n',Fr)
+
+//Axial thrust force
+Fa=Ft*tand(alpha)
+mfprintf(res5,'(c)Fa=Ft*tan(alpha)\n\t=%d N',Fa)
+
+mclose(res5)
+editor(TMPDIR+'5_forces_on_helical_gear.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file
-- 
cgit