summaryrefslogtreecommitdiff
path: root/3594/CH10
diff options
context:
space:
mode:
Diffstat (limited to '3594/CH10')
-rw-r--r--3594/CH10/EX10.1/Ex10_1.sce8
-rw-r--r--3594/CH10/EX10.2/Ex10_2.sce8
-rw-r--r--3594/CH10/EX10.3/Ex10_3.sce10
-rw-r--r--3594/CH10/EX10.4/Ex10_4.sce19
-rw-r--r--3594/CH10/EX10.5/Ex10_5.sce14
-rw-r--r--3594/CH10/EX10.6/Ex10_6.sce29
6 files changed, 88 insertions, 0 deletions
diff --git a/3594/CH10/EX10.1/Ex10_1.sce b/3594/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..8d0435948
--- /dev/null
+++ b/3594/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,8 @@
+
+
+clc
+//given
+Teeth=48
+pitch=.75 //in
+D=Teeth*pitch/%pi
+printf("The pitch diameter is %.3f in",D)
diff --git a/3594/CH10/EX10.2/Ex10_2.sce b/3594/CH10/EX10.2/Ex10_2.sce
new file mode 100644
index 000000000..1ee39e2e7
--- /dev/null
+++ b/3594/CH10/EX10.2/Ex10_2.sce
@@ -0,0 +1,8 @@
+
+clc
+//given
+T=48//teeth
+pd=4//diametral pitch
+D=T/pd//pitch diameter
+p=%pi/pd//the circular pitch
+printf("\nThe pitch diameter = %.f in\nThe circular pitch = %.4f in\n",D,p)
diff --git a/3594/CH10/EX10.3/Ex10_3.sce b/3594/CH10/EX10.3/Ex10_3.sce
new file mode 100644
index 000000000..8bdc1c566
--- /dev/null
+++ b/3594/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,10 @@
+
+clc
+//given
+T=48
+m=6//mm ; module
+D=m*T
+p=%pi*m
+dia=D/10//cm
+P=p*0.0393700787//inches
+printf("\nPitch diameter = %.1f cm\nCircular pitch = %.4f in\n",dia,P)
diff --git a/3594/CH10/EX10.4/Ex10_4.sce b/3594/CH10/EX10.4/Ex10_4.sce
new file mode 100644
index 000000000..08a2b3877
--- /dev/null
+++ b/3594/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,19 @@
+
+clc
+//given
+phi=20*%pi/180
+//Solution a)
+ar=1
+t1=2*ar/sin(phi)^2//from equation 10.7
+T1=ceil(t1)
+//Solution b)
+aw=1
+t2=2*aw/((1+3*sin(phi)^2)^(1/2)-1)//from euation 10.6
+T2=ceil(t2)
+//solution c)
+t=1
+T=3
+A=(t/T)*(t/T+2)
+t3=2*aw*(t/T)/((1+A*sin(phi)^2)^(1/2)-1)//from 10.5
+T3=ceil(t3)
+printf("\nSmallest number of teeth theoretically required in order to avoid interference on a pinion which is to gear with\na) A rack , t= %.f\nb) An equal pinion , t= %.f\nc) A wheel to give a ratio of 3 to 1 , t= %.f\n",T1,T2,T3)
diff --git a/3594/CH10/EX10.5/Ex10_5.sce b/3594/CH10/EX10.5/Ex10_5.sce
new file mode 100644
index 000000000..60776fc54
--- /dev/null
+++ b/3594/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,14 @@
+
+clc
+//given
+t=25
+phi=20*%pi/180
+//let pitch be 1
+R=t/(2*%pi)//R=t*p/(2*%pi)
+Larc=1.6//1.6*p
+//AB=Larc*cos(phi)
+AB=Larc*cos(phi)
+Ra=(4.47+13.97)^(1/2)//by simplifying AB+2{(Ra^2-R^2*cos(phi)^2)-R*sin(phi)} and using p =1
+Addendum=Ra-R
+//writing p in place of p=1
+printf("\nAddendum required = %.2fp",Addendum)
diff --git a/3594/CH10/EX10.6/Ex10_6.sce b/3594/CH10/EX10.6/Ex10_6.sce
new file mode 100644
index 000000000..c648fef46
--- /dev/null
+++ b/3594/CH10/EX10.6/Ex10_6.sce
@@ -0,0 +1,29 @@
+
+clc
+//let module be 1
+m=1
+t1=28
+t2=45
+r=t1*m/2
+R=t2*m/2
+ra=r+m
+Ra=R+m
+phi1=14.5*%pi/180
+//10.8 => AB =(ra^2-r^2*cos(phi)^2)^(1/2)+(Ra^2-R^2*cos(phi)^2)^(1/2)-(r+R)*sin(phi)
+//AB=A+B-C
+A=m*(ra^2-r^2*cos(phi1)^2)^(1/2)
+B=m*(Ra^2-R^2*cos(phi1)^2)^(1/2)
+C=m*(r+R)*sin(phi1)
+AB=A+B-C
+p=%pi*m
+ABp=AB/%pi
+arc1=ABp/cos(phi1)//length of arc of contact
+phi2=20*%pi/180
+//10.8 => AB =(ra^2-r^2*cos(phi)^2)^(1/2)+(Ra^2-R^2*cos(phi)^2)^(1/2)-(r+R)*sin(phi)
+a=m*(ra^2-r^2*cos(phi2)^2)^(1/2)
+b=m*(Ra^2-R^2*cos(phi2)^2)^(1/2)
+c=m*(r+R)*sin(phi2)
+ab=a+b-c
+abp=ab/%pi
+arc2=abp/cos(phi2)//length of arc of contact
+printf("\nLength of path of contact\nWhen phi = 14.5 degrees = %.3fm\nWhen phi = 20 degrees = %.2fm\nLength of arc of contact\nWhen phi = 14.5 degrees = %.2fp\nWhen phi = 20 degrees = %.3fp\n",AB,ab,arc1,arc2)