Homework #10

Getting Geared Up

Problem #1 - Analysis of a simple gear set

Problem Statement

A 78-tooth spur gear is in mesh with a 27-tooth pinion. The pitch is 6 and the pressure angle is 20°. The pinion transmits 33 kW at 1600 rpm. The Q_v = 11, the pinion is made of 4340 steel and the gear is made of A-7-d nodular-iron.
Determine the following:
What is the contact ratio for this gearset?
Find the torque on each shaft.
Size these spur gears (both the pinion and the gear) for a surface safety factor of 1.2, assuming steady torque.

Next time use a 72 tooth Gear and a 24 tooth Pinion(see Boston Gear)

Given

In[29]:=

Remove ["Global`*"] ;  Off[General :: "spell"] ; Off[General :: &q ... 1600 * 2 π) Radian/Minute ; Qv = 11 ; pinionMaterial = 4340 ; gearMaterial = A7nodularIron ;

Assumptions

We assume 100% efficiency in the transmission of power and torque in the gearset.
Realistically it would be more like 97-99% efficiency.

Find

contact ratio, torque on each shaft, and size (face width) of gears for surface safety factor of 1.2

Solution

Compute Contact Ratio

In[42]:=

lengthOfAction [rp_, ap_, ϕ_, rg_, ag_, centerL_] := ((rp + ap)^2 - (rp Cos[ϕ] )^2)^(1/2) + ((rg + ag)^2 - (rg Cos[ϕ] )^2)^(1/2) - centerL Sin[ϕ]

In[43]:=

pc [d_, N_] := (π d)/N ; (** circular pitch **)pb [ pc_, ϕ_] := pc Cos[ϕ ... (** the base pitch**)contactRatio[lenAction_, basePitch_] := lenAction/basePitch ;

In[44]:=

dgear = Ngear / pitch RowBox[{RowBox[{agear,  , =,  , RowBox[{1.,  , /,  , pitch}]}], }] dpinion = Npinion / pitch apinion = agear

Out[44]=

13 Inch

Out[45]=

RowBox[{0.166667,  , Inch}]

Out[46]=

(9 Inch)/2

Out[47]=

RowBox[{0.166667,  , Inch}]

In[48]:=

z = Convert[ lengthOfAction [dpinion/2, apinion, pressureAngle, dgear/2, agear, (dgear + dpinion)/2] //N, Inch]

Out[48]=

RowBox[{0.849255,  , Inch}]

In[49]:=

cppinion = pc[dpinion, Npinion] bppinion = pb [ cppinion, pressureAngle] cRpinion = contactRatio[z, bppinion]

Out[49]=

(Inch π)/6

Out[50]=

1/6 Inch π Cos[20 °]

Out[51]=

1.72605

In[52]:=

cpgear = pc[dgear, Ngear] bpgear = pb [ cpgear, pressureAngle] cRgear = contactRatio[z, bpgear]

Out[52]=

(Inch π)/6

Out[53]=

1/6 Inch π Cos[20 °]

Out[54]=

1.72605

As we would expect, the contact ratio is the same for both gears!

Find the torque on each gear

In[55]:=

torqueSolution = Solve [power == torque rotationalSpeed, torque]

Out[55]=

{{torque (165 Minute Watt)/(16 π Radian)}}

In[56]:=

torqPinion = Convert[ torqueSolution[[1, 1, 2]], Inch PoundForce]//N

Out[56]=

RowBox[{1743.19,  , Inch,  , PoundForce}]

In[57]:=

Convert[torqPinion, Foot PoundForce]

Out[57]=

RowBox[{145.266,  , Foot,  , PoundForce}]

In[58]:=

Convert[power, Horsepower]

Out[58]=

RowBox[{44.2537,  , Horsepower}]

Note the torque is the not same for both the pinion and the gear (we ignore the 1-3% losses in the transmission), but the tangential force is! The torque ratio is the same as the gear ratio.

In[59]:=

torqGear = Ngear/NpiniontorqPinion

Out[59]=

RowBox[{5035.89,  , Inch,  , PoundForce}]

In[60]:=

GearRatio = Ngear/Npinion//N

Out[60]=

2.88889

Determine the size of the gears for a surface safety factor of 1.2

In[61]:=

σc [Cp_, Ftan_, Face_, SGF_, pitchDiameter_, Ca_, Cm_, Cv_, Cs_, Cf_] := Cp (Ftan/(Face SGF pitchDiameter) (Ca Cm)/Cv Cs Cf )^(1/2)

In[62]:=

Cp[Ep_, νp_, Eg_, νg_] := 1/(π (((1 - νp^2)/Ep) + ((1 - νg^2)/Eg)))^(1/2)

We get the tangential force from the torque

In[63]:=

torqPinion

Out[63]=

RowBox[{1743.19,  , Inch,  , PoundForce}]

In[64]:=

Ftangent = torqPinion /(( dpinion)/2)

Out[64]=

RowBox[{774.752,  , PoundForce}]

Surface Geometry Factor, see page 724.

In[100]:=

Clear[sgf] ;  sgf[rp_, xp_, pitch_, ϕ_, center2centerDistance_, dp_] := Module[{& ... istance Sin[ϕ] - ρp ; sgf = Cos[ϕ]/((1/ρp + 1/ρg) dp)]

In[67]:=

surfGeoFactor = FullSimplify[sgf[dpinion/2, 0, pitch, pressureAngle, (dpinion + dgear)/2, dpinion]//N ] /.{( Inch)/Inch^2^(1/2) -> 1}

Out[67]=

0.109555

In[69]:=

velocityPinionFPM = 1600/Minute  π dpinion /(12 Inch / Foot) //N

Out[69]=

RowBox[{RowBox[{(, RowBox[{1884.96,  , Foot}], )}], /, Minute}]

From Figure 11-22, page 719,

In[70]:=

RowBox[{RowBox[{Cv,  , =,  , 0.91}], ;}]

Or we can use the equations developed by Norton, on pages 718-719.

In[73]:=

KvCvus[Qv_, Vt_] := Module[{A, B}, B = (12 - Qv)^(2/3)/4 ; A = 50 + 56 (1 - B) ; Kv = (A/(A + Vt^(1/2)))^B]/.Foot/Minute->1

In[74]:=

Cveqn = KvCvus[11, velocityPinionFPM]

Out[74]=

0.907882

Very close agreement!

From Table 11-16, page 720, we'll try Face < 2"

In[75]:=

RowBox[{RowBox[{Cm,  , =,  , 1.6}], ;}]

From Table 11-17, page 721, we the uniform value

In[76]:=

RowBox[{RowBox[{Ca,  , =,  , 1.}], ;}]

From page 721, we use the default size factor.

In[77]:=

RowBox[{RowBox[{Cs,  , =,  , 1.}], ;}]

From page 726, we assume a reasonable surface finish so

In[78]:=

RowBox[{RowBox[{Cf,  , =,  , 1.}], ;}]

In[79]:=

RowBox[{elasticCoe,  , =,  , RowBox[{Cp, [, RowBox[{3 10^7PoundForce/Inch^2, ,,  , 0.28,  , ,, RowBox[{2.5,  , 10^7, PoundForce/Inch^2}], ,, 0.3}], ]}]}]

Out[79]=

RowBox[{2177.71,  , PoundForce/Inch^2^(1/2)}]

In[80]:=

σpPinion = σc [elasticCoe, Ftangent, Face, surfGeoFactor , dpinion, Ca, Cm, Cv, Cs, Cf]

Out[80]=

RowBox[{114472.,  , PoundForce/Inch^2^(1/2),  , PoundForce/(Face Inch)^(1/2)}]

Compute the Surface Fatigue Strength

In[81]:=

Sfc[CL_, CH_, CT_, CR_, Sfbprime_] := (CL CH)/(CT CR) Sfbprime

The pinion is made of 4340 and is nitrided. The range of ultimate strengths is 150-175 kpsi. We will use the minimum value, i.e., 150,000 psi. Also note that CH is the relative hardness measure and represents the relative hardness of the gear to the pinion (the pinion is given the value 1).

In[82]:=

CHpinion = 1 ; (** see page 734**)CL = 1 ; CT = 1 ; CR = 1 ; SfbprimePinion = 150 10^3 PoundForce / Inch^2 ;

In[86]:=

SfcPinion = Sfc[CL, CHpinion, CT, CR, SfbprimePinion]

Out[86]=

(150000 PoundForce)/Inch^2

In[87]:=

RowBox[{faceSolve,  , =,  , RowBox[{Solve, [,  , RowBox[{RowBox[{SfcPinion/σpPinion, ==,  , 1.2}], ,,  , Face}], ]}]}]

Out[87]=

RowBox[{{, RowBox[{{, RowBox[{Face, , RowBox[{0.838639,  , Inch}]}], }}], }}]

In[88]:=

facePinion = faceSolve[[1, 1, 2]]

Out[88]=

RowBox[{0.838639,  , Inch}]

So the face should be say 0.875 Inch wide. We can check the produce of face width and pitch to see if its in the recommended range.

In[89]:=

facePinion pitch

Out[89]=

5.03183

And it is not. The recommended range is 8-16. I don't know the basis for this.

We should check the gear side as well.

Compute the minimum required face width for the nodular iron gear required to meet the surface safety factor of 1.2.

Note: nitriding is a case (surface) hardening process and as such the second approach to establishing CH should be used. No value for Rq was given, but Figure 7-1, on page 446 has an example of a cam that has been ground polished and in the notes Rq is given as 0.175 (I assume μin), so I will use that (I expect the surface of the cam to be compariable to that of a well manufactured gear).

In[90]:=

RowBox[{RowBox[{Rq,  , =,  , 0.175}], ;}] RowBox[{RowBox[{CHgear,  , =,  , RowBox[{1,  , +,  , ...   , (** see page 734**)}] CL = 1 ; CT = 1 ; CR = 1 ; SfbprimeGear = 92 10^3 PoundForce / Inch^2 ;

Out[91]=

1.00075

So we get a small effect on the gear from the case hardened pinion.

In[96]:=

SfcGear = Sfc[CL, CHgear, CT, CR, SfbprimeGear]

Out[96]=

RowBox[{RowBox[{(, RowBox[{92068.9,  , PoundForce}], )}], /, Inch^2}]

In[97]:=

velocityGearFPM = GearRatio   * velocityPinionFPM

Out[97]=

RowBox[{RowBox[{(, RowBox[{5445.43,  , Foot}], )}], /, Minute}]

In[98]:=

CvGear = KvCvus[11, velocityGearFPM]

Out[98]=

0.863088

In[102]:=

σpGear = σc [elasticCoe, Ftangent, Face, surfGeoFactor , dgear, Ca, Cm, Cv, Cs, Cf]

Out[102]=

RowBox[{67349.1,  , PoundForce/Inch^2^(1/2),  , PoundForce/(Face Inch)^(1/2)}]

In[103]:=

RowBox[{faceGearSolve,  , =,  , RowBox[{Solve, [,  , RowBox[{RowBox[{SfcGear/σpGear, ==,  , 1.2}], ,,  , Face}], ]}]}]

Out[103]=

RowBox[{{, RowBox[{{, RowBox[{Face, , RowBox[{0.770551,  , Inch}]}], }}], }}]

In[104]:=

faceGear = faceGearSolve[[1, 1, 2]]

Out[104]=

RowBox[{0.770551,  , Inch}]

So we see that the demands on the pinion require a wider face than for the gear, so we will specify the face requirement based upon the Pinion, and will round it up to the next standard width.  

After reviewing the catalog at Boston Gear, I find that they only provide gears of this type in 2" face width, so that would be what I would specify. :-)

Planetarty Gear Train

Problem Statement

We have a planetary gear train with 8 tooth sun, and  40 tooth planets.
The module is 1 mm. The sun is the input and the carrier is the output.
Answer the following questions about this planetary gear train.
- what is the train ratio for this planetary gear train?
- what is the gear ratio for this gear train?
- what is the torque ratio for this gear train?
- how many planets can this planetary have?

Given

Remove ["Global`*"] ;  <<Miscellaneous`Units` ; mm = Milli Meter ; Nsun = 8 ; Nplanet = 40 ; module = 1 mm ; input = sun ; output = arm ;

Assumptions

none

Solution

First lets determine the number of teeth in the Ring gear

Nring = Nsun + 2 Nplanet

88

what is the train ratio for this planetary gear train?

TR = (- Nsun/Nplanet) (Nplanet/Nring)

-1/11

what is the gear ratio for this gear train?

eqn1112 = TR == (ωring - ωarm)/(ωsun - ωarm) /. {ωring -> 0, ωsun -> 1}

-1/11 -ωarm/(1 - ωarm)

vr = Solve[eqn1112, ωarm]

{{ωarm1/12}}

GearRatio = 1/vr[[1, 1, 2]]

12

That is the gear ratio is 12:1 or 12 to 1.

what is the torque ratio for this gear train?

the torque ratio is the same as the gear ratio, i.e. we get twelve times as much torque out of the planetary as we put in, (but at one twelveth the speed).

torqueRatio = GearRatio

12

how many planets can this planetary have?

Since Nring is an even number we can have an even number of planets.
In addition because the planets are quite large, three of them will not fit within the ring gear without interference, so the answer is THIS PLANETARY CAN HAVE ONLY ONE OR TWO PLANETS.


Created by Mathematica  (April 20, 2004)