diff options
Diffstat (limited to '3594/CH10')
-rw-r--r-- | 3594/CH10/EX10.1/Ex10_1.sce | 8 | ||||
-rw-r--r-- | 3594/CH10/EX10.2/Ex10_2.sce | 8 | ||||
-rw-r--r-- | 3594/CH10/EX10.3/Ex10_3.sce | 10 | ||||
-rw-r--r-- | 3594/CH10/EX10.4/Ex10_4.sce | 19 | ||||
-rw-r--r-- | 3594/CH10/EX10.5/Ex10_5.sce | 14 | ||||
-rw-r--r-- | 3594/CH10/EX10.6/Ex10_6.sce | 29 |
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)
|