1 files changed, 32 insertions, 0 deletions
diff --git a/1835/CH4/EX4.1/Ex4_1.sce b/1835/CH4/EX4.1/Ex4_1.sce
new file mode 100755
index 000000000..bb98f952d
--- /dev/null
+++ b/1835/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,32 @@
+//Chapter-4, Illustration 1, Page 133
+//Title: Gears and Gear Drivers
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+TA=48;//Wheel A teeth
+TB=30;//Wheel B teeth
+m=5;//Module pitch in mm
+phi=20;//Pressure angle in degrees
+add=m;//Addendum in mm
+
+//CALCULATIONS
+R=(m*TA)/2;//Pitch circle radius of wheel A in mm
+RA=R+add;//Radius of addendum circle of wheel A in mm
+r=(m*TB)/2;//Pitch circle radius of wheel B in mm
+rA=r+add;//Radius of addendum circle of wheel B in mm
+lp=(sqrt((RA^2)-((R^2)*(cosd(phi)^2))))+(sqrt((rA^2)-((r^2)*(cosd(phi)^2))))-((R+r)*sind(phi));//Length of path of contact in mm
+la=lp/cosd(phi);//Length of arc of contact in mm
+
+//OUTPUT
+mprintf('Length of arc of contact is %3.1f mm',la)
+
+
+
+
+
+
+
+
+//================================END OF PROGRAM=============================================