2 files changed, 35 insertions, 0 deletions
diff --git a/698/CH17/EX17.1/1_tangential_and_separating_force.txt b/698/CH17/EX17.1/1_tangential_and_separating_force.txt
new file mode 100644
index 000000000..af2558646
--- /dev/null
+++ b/698/CH17/EX17.1/1_tangential_and_separating_force.txt
@@ -0,0 +1,6 @@
+Tangential force Ft=Mt/rp
+	Ft=4000 N
+
+Separating force Fr=Ft*tan(phi)
+	Fr=1455 N
+
diff --git a/698/CH17/EX17.1/P1_tangential_and_separating_force.sce b/698/CH17/EX17.1/P1_tangential_and_separating_force.sce
new file mode 100644
index 000000000..f489c7f96
--- /dev/null
+++ b/698/CH17/EX17.1/P1_tangential_and_separating_force.sce
@@ -0,0 +1,29 @@
+clc
+//Example 17.1
+//Tangential and separating force
+
+//------------------------------------------------------------------------------
+
+//Given data
+//Torque
+Mt=200 //Nm
+//Dimensions of gears
+dp=0.1 //m (pinion)
+rp=dp/2
+dg=0.25 //m (gear)
+rg=dg/2
+//Pressure angle
+phi=20 //degrees
+
+res1=mopen(TMPDIR+'1_tangential_and_separating_force.txt','wt')
+mfprintf(res1,'Tangential force Ft=Mt/rp\n')
+Ft=Mt/rp
+mfprintf(res1,'\tFt=%d N\n\n',Ft)
+
+Fr=Ft* tand(phi)
+mfprintf(res1,'Separating force Fr=Ft*tan(phi)\n\tFr=%d N\n\n',Fr)
+
+mclose(res1)
+editor(TMPDIR+'1_tangential_and_separating_force.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------