diff options
Diffstat (limited to '698/CH17')
22 files changed, 674 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-----------------------------------
diff --git a/698/CH17/EX17.10/10_centrifugal_pump.txt b/698/CH17/EX17.10/10_centrifugal_pump.txt new file mode 100644 index 000000000..87ca171ac --- /dev/null +++ b/698/CH17/EX17.10/10_centrifugal_pump.txt @@ -0,0 +1,13 @@ +(a)First finding various dimensions:
+ Torque Mt=88 Nm
+ diameter of pinion=138.46 mm
+ Slant height of pitch cone=121.63 mm
+ Mean radius of pinion=57.85 mm
+
+(b) Finding various forces:
+Tangential force at mean radius=1523.81 N
+
+Pinion thrust force=224.32 N
+
+Gear thrust force=324.01 N
+
diff --git a/698/CH17/EX17.10/P10_centrifugal_pump.sce b/698/CH17/EX17.10/P10_centrifugal_pump.sce new file mode 100644 index 000000000..bb62e7e3d --- /dev/null +++ b/698/CH17/EX17.10/P10_centrifugal_pump.sce @@ -0,0 +1,55 @@ +clc
+//Example 17.10
+//Centrifugal pump
+
+//------------------------------------------------------------------------------
+
+//Given data
+//power
+P=12000 //W
+//speed
+n=900 //rpm
+nm=1300 //rpm
+//module
+m=5e-3 //m
+//diameter of gear
+Dg=0.2 //m
+rg=Dg/2
+//pressure angle
+phi=14.5 //degrees
+//face width
+b=0.04 //m
+
+res10=mopen(TMPDIR+'10_centrifugal_pump.txt','wt')
+
+mfprintf(res10,'(a)First finding various dimensions:\n')
+//torque
+Mt=(P*60)/(2*%pi*nm)
+mfprintf(res10,'\tTorque Mt=%d Nm\n',Mt)
+//diameter of pinion
+Dp=(n/nm)*Dg
+rp=Dp/2
+mfprintf(res10,'\tdiameter of pinion=%0.2f mm\n',Dp* 10^3)
+//slant height
+L=sqrt(rp^2 + rg^2)
+mfprintf(res10,'\tSlant height of pitch cone=%0.2f mm\n',L*10e2)
+beta=asind(rp/L)
+rm=rp-(b*sind(beta)*0.5)
+mfprintf(res10,'\tMean radius of pinion=%0.2f mm\n\n',rm*10e2)
+
+//Finding various forces
+mfprintf(res10,'(b) Finding various forces:\n')
+//Tangential force at mean radius
+Ft=Mt/rm
+mfprintf(res10,'Tangential force at mean radius=%0.2f N\n\n',Ft)
+//Pinion thrust force
+Fp=Ft*tand(phi)*sind(beta)
+mfprintf(res10,'Pinion thrust force=%0.2f N\n\n',Fp)
+//Gearthrust force
+Fg=Ft*tand(phi)*cosd(beta)
+mfprintf(res10,'Gear thrust force=%0.2f N\n\n',Fg)
+
+mclose(res10)
+editor(TMPDIR+'10_centrifugal_pump.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.11/11_forces_on_worm.txt b/698/CH17/EX17.11/11_forces_on_worm.txt new file mode 100644 index 000000000..7fe016612 --- /dev/null +++ b/698/CH17/EX17.11/11_forces_on_worm.txt @@ -0,0 +1,12 @@ +(a)Torque on the worm
+ Mt=47.7 Nm
+
+(b)Tangential force on worm
+ Ft_worm=Mt/r =1340 N
+
+(c)Tangential force on gear
+ Ft_gear=Ft_worm* (1- (f*tand(alpha))/cosd(phi_n))/(tand(alpha) + f/cosd(phi_n)) =3476 N
+
+(d)Separating force
+ Fr=Ft_gear* sind(phi_n)/(cosd(phi_n)*cosd(alpha) + f*sind(alpha)) =1273 N
+
diff --git a/698/CH17/EX17.11/P11_forces_on_worm.sce b/698/CH17/EX17.11/P11_forces_on_worm.sce new file mode 100644 index 000000000..f3c1d03ca --- /dev/null +++ b/698/CH17/EX17.11/P11_forces_on_worm.sce @@ -0,0 +1,51 @@ +clc
+//Example 17.11
+//Forces on worm
+
+//------------------------------------------------------------------------------
+
+//Given data
+//power
+P=6000 //W
+//speeds
+nw=1200 //rpm
+ng=60 //rpm
+//diameter of worm
+Dw=71.26e-3 //m
+r=Dw/2
+//module
+m=20e-3 //m
+//number of teeth
+Ng=60
+//pressure angle
+phi_n=20 //degrees
+//coefficient of friction
+f=0.1
+//number of starts
+n=3
+//lead
+l=n*m
+
+res11=mopen(TMPDIR+'11_forces_on_worm.txt','wt')
+
+//torque on worm
+Mt=(P*60)/(2*%pi*nw)
+mfprintf(res11,'(a)Torque on the worm\n\tMt=%0.1f Nm\n\n',Mt)
+
+//Tangential force on worm
+Ft_worm=Mt/r
+mfprintf(res11,'(b)Tangential force on worm\n\tFt_worm=Mt/r =%d N\n\n',Ft_worm)
+
+//Tangential force on gear
+alpha=atand(l/(%pi*Dw))
+Ft_gear=Ft_worm*((1- ((f*tand(alpha))/cosd(phi_n)))/(tand(alpha) + f/cosd(phi_n)))
+mfprintf(res11,'(c)Tangential force on gear\n\tFt_gear=Ft_worm* (1- (f*tand(alpha))/cosd(phi_n))/(tand(alpha) + f/cosd(phi_n)) =%d N\n\n',Ft_gear)
+
+//Separating force
+Fr=(Ft_gear*sind(phi_n))/(cosd(phi_n)*cosd(alpha) + f*sind(alpha))
+mfprintf(res11,'(d)Separating force\n\tFr=Ft_gear* sind(phi_n)/(cosd(phi_n)*cosd(alpha) + f*sind(alpha)) =%d N\n\n',Fr)
+
+mclose(res11)
+editor(TMPDIR+'11_forces_on_worm.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.2/2_spur_gear_reducer.txt b/698/CH17/EX17.2/2_spur_gear_reducer.txt new file mode 100644 index 000000000..f63402ca6 --- /dev/null +++ b/698/CH17/EX17.2/2_spur_gear_reducer.txt @@ -0,0 +1,8 @@ +(a) Torque=P*60/ 2*pi*N
+ Mt=33.157 Nm
+
+(b)Tangential Force on Gears Ft=Mt/rp
+ Ft=663.1 N
+
+Radial force Fr=Ft*tan(phi)
+ Fr=241.37 N
\ No newline at end of file diff --git a/698/CH17/EX17.2/P2_spur_gear_reducer.sce b/698/CH17/EX17.2/P2_spur_gear_reducer.sce new file mode 100644 index 000000000..1754f24c9 --- /dev/null +++ b/698/CH17/EX17.2/P2_spur_gear_reducer.sce @@ -0,0 +1,41 @@ +clc
+//Example 17.2
+//Spur gear reducer
+
+//------------------------------------------------------------------------------
+
+//Given data
+//Power transmitted
+P=5000 //W
+//Speed
+N=1440 //rpm
+w=(2*%pi*N)/60
+//Gear ratio
+G=3
+//Teeth on pinion
+Np=20
+//Pressure angle
+phi=20 //degrees
+//module
+m=5 //mm
+
+res2=mopen(TMPDIR+'2_spur_gear_reducer.txt','wt')
+
+//Torque
+Mt=P/w
+mfprintf(res2,'(a) Torque=P*60/ 2*pi*N\n\tMt=%0.3f Nm\n\n',Mt)
+
+//radius of pinion
+rp=m*Np* 10^-3 /2
+//Tangential force
+Ft=Mt/rp
+mfprintf(res2,'(b)Tangential Force on Gears Ft=Mt/rp\n\tFt=%0.1f N\n\n',Ft)
+
+//Radial Force on gears
+Fr=Ft*tand(phi)
+mfprintf(res1,'Radial force Fr=Ft*tan(phi)\n\tFr=%0.2f N',Fr)
+
+mclose(res2)
+editor(TMPDIR+'2_spur_gear_reducer.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.3/3_gear_train.txt b/698/CH17/EX17.3/3_gear_train.txt new file mode 100644 index 000000000..c8609f4e6 --- /dev/null +++ b/698/CH17/EX17.3/3_gear_train.txt @@ -0,0 +1,21 @@ +(a)Gear diameters:
+ Da=210 mm
+ Db=390 mm
+ Dc=270 mm
+
+(b)Torque on shafts:
+ Mta=47.75 Nm
+ Mtb=0 Nm
+ Mtc=61.4 Nm
+
+(c)Tangential force on gear A: Ft=454 N
+ Separating force Fr=165 N
+
+(d)The same tangential and separating force occurs between gears
+A and B and between gears B and C.
+
+(e) The tooth load for which each gear must be designed is 454 N
+
+(f)The force applied to idler shaft of gear B is the vector sum
+of the forces applied to gear B by A and C
+Fb=sqrt(2*(Ft^2 + Fr^2))=684 N
\ No newline at end of file diff --git a/698/CH17/EX17.3/P3_gear_train.sce b/698/CH17/EX17.3/P3_gear_train.sce new file mode 100644 index 000000000..a8b82d38e --- /dev/null +++ b/698/CH17/EX17.3/P3_gear_train.sce @@ -0,0 +1,53 @@ +clc
+//Example 17.3
+//Gear train
+
+//------------------------------------------------------------------------------
+
+//Given data
+//Number of teeth
+Na=35
+Nb=65
+Nc=45
+//Speeds
+n=600 //rpm
+w=(2*%pi*n)/60
+//Power
+P=3000 //W
+//pressure angle
+phi=20
+//module
+m=6 //m
+
+res3=mopen(TMPDIR+'3_gear_train.txt','wt')
+
+//Gear diameters
+Da=Na*m
+Db=Nb*m
+Dc=Nc*m
+mfprintf(res3,'(a)Gear diameters:\n\tDa=%d mm\n\tDb=%d mm\n\tDc=%d mm\n\n',Da,Db,Dc)
+
+//Torque
+Mta=P/w
+Mtb=0
+Mtc=Mta* (Nc/Na)
+mfprintf(res3,'(b)Torque on shafts:\n\tMta=%0.2f Nm\n\tMtb=%d Nm\n\tMtc=%0.1f Nm\n\n',Mta,Mtb,Mtc)
+
+//Forces on gear A
+Ft=Mta/((Da/2)*10^-3)
+Fr=Ft*tand(phi)
+mfprintf(res3,'(c)Tangential force on gear A: Ft=%d N\n Separating force Fr=%d N\n\n',Ft,Fr)
+mfprintf(res3,'(d)The same tangential and separating force occurs between gears\nA and B and between gears B and C.\n\n')
+
+max_force=max(Ft,Fr)
+mfprintf(res3,'(e) The tooth load for which each gear must be designed is %d N\n\n',max_force)
+
+//Force applied to idler shaft
+Fb=sqrt(2*(Ft^2 + Fr^2))
+mfprintf(res3,'(f)The force applied to idler shaft of gear B is the vector sum\nof the forces applied to gear B by A and C\n')
+mfprintf(res3,'Fb=sqrt(2*(Ft^2 + Fr^2))=%d N',Fb)
+
+mclose(res3)
+editor(TMPDIR+'3_gear_train.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.4/4_compound_gear_train.txt b/698/CH17/EX17.4/4_compound_gear_train.txt new file mode 100644 index 000000000..8f4df1820 --- /dev/null +++ b/698/CH17/EX17.4/4_compound_gear_train.txt @@ -0,0 +1,21 @@ +(a)Torque on motor shaft
+ Mt=60*P/ 2*pi*N=66.31 Nm
+
+(b)Various radii of gears:
+ Ra=62.5 mm
+ Rb=250 mm
+ Rc=97.5 mm
+ Rd=487.5 mm
+
+(c)Force on gears A and B:
+ Fta=Ftb=Mta/Ra=1061.03 N
+ Fra=Frb=Fta*tan(phi)=386.18 N
+
+(d)Torque at transmission shaft containing B and C:
+Speed of c=speed of B=360 RPM
+Torque at C=265.3 Nm
+
+(e)Force on gears C and D:
+ Ftc=Ftd=Mtc/Rc=2720.60 N
+ Frc=Frd=Ftc*tan(phi)=990.22 N
+
diff --git a/698/CH17/EX17.4/P4_compound_gear_train.sce b/698/CH17/EX17.4/P4_compound_gear_train.sce new file mode 100644 index 000000000..783f42fde --- /dev/null +++ b/698/CH17/EX17.4/P4_compound_gear_train.sce @@ -0,0 +1,62 @@ +clc
+//Example 17.4
+//Compound gear train
+
+//------------------------------------------------------------------------------
+
+//Given data
+//power
+P=10000 //W
+//speed
+n=1440 //rpm
+w=(2*%pi*n)/60 //rad/s
+//Number of teeth
+Na=25
+Nb=100
+Nc=30
+Nd=150
+//modules
+ma=5 //mm
+mb=ma
+mc=6.5 //mm
+md=mc
+//pressure angle
+phi=20 //degrees
+
+res4=mopen(TMPDIR+'4_compound_gear_train.txt','wt')
+//Torque on motor shaft
+Mt=P/w
+
+mfprintf(res4,'(a)Torque on motor shaft \n\tMt=60*P/ 2*pi*N=%0.2f Nm\n\n',Mt)
+
+//Radii of gears
+Ra=ma*Na /2
+Rb=mb*Nb /2
+Rc=mc*Nc /2
+Rd=md*Nd /2
+mfprintf(res4,'(b)Various radii of gears:\n\tRa=%0.1f mm\n\tRb=%d mm\n\tRc=%0.1f mm\n\tRd=%0.1f mm\n\n',Ra,Rb,Rc,Rd)
+
+//Force on gears
+Fta=Mt/(Ra*10^-3)
+Ftb=Fta
+Fra=Fta*tand(phi)
+Frb=Fra
+mfprintf(res4,'(c)Force on gears A and B:\n\tFta=Ftb=Mta/Ra=%0.2f N\n\tFra=Frb=Fta*tan(phi)=%0.2f N\n\n',Fta,Fra)
+
+//Torque at transmission shaft containing B and C
+mfprintf(res4,'(d)Torque at transmission shaft containing B and C:\n')
+nb=n/(Nb/Na)
+nc=nb
+mfprintf(res4,'Speed of c=speed of B=%d RPM\n',nb)
+Mtc=P*60 /(2*%pi*nc)
+mfprintf(res4,'Torque at C=%0.1f Nm\n\n',Mtc)
+
+//Forces on gears C and D
+Ftc=Mtc/(Rc*10^-3)
+Frc=Ftc*tand(phi)
+mfprintf(res4,'(e)Force on gears C and D:\n\tFtc=Ftd=Mtc/Rc=%0.2f N\n\tFrc=Frd=Ftc*tan(phi)=%0.2f N\n\n',Ftc,Frc)
+
+mclose(res4)
+editor(TMPDIR+'4_compound_gear_train.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file diff --git a/698/CH17/EX17.5/5_forces_on_helical_gear.txt b/698/CH17/EX17.5/5_forces_on_helical_gear.txt new file mode 100644 index 000000000..e398dd7e5 --- /dev/null +++ b/698/CH17/EX17.5/5_forces_on_helical_gear.txt @@ -0,0 +1,8 @@ +(a)Ft=Mt/r
+ =1600 N
+
+(b)Fr=Ft*tan(phi_t)
+ =582 N
+
+(c)Fa=Ft*tan(alpha)
+ =923 N
\ No newline at end of file diff --git a/698/CH17/EX17.5/P5_forces_on_helical_gear.sce b/698/CH17/EX17.5/P5_forces_on_helical_gear.sce new file mode 100644 index 000000000..0401173d8 --- /dev/null +++ b/698/CH17/EX17.5/P5_forces_on_helical_gear.sce @@ -0,0 +1,36 @@ +clc
+//Example 17.5
+//Forces on Helical gear
+
+//------------------------------------------------------------------------------
+
+//Given data
+//diameter of gear
+d=0.25 //m
+r=d/2
+//torque
+Mt=200 //Nm
+//number of teeth
+Ng=45
+//angles
+phi_t=20 //degrees
+alpha=30 //degrees
+
+res5=mopen(TMPDIR+'5_forces_on_helical_gear.txt','wt')
+
+//tangential force
+Ft=Mt/r
+mfprintf(res5,'(a)Ft=Mt/r\n\t=%d N\n\n',Ft)
+
+//Separating force
+Fr=Ft*tand(phi_t)
+mfprintf(res5,'(b)Fr=Ft*tan(phi_t)\n\t=%d N\n\n',Fr)
+
+//Axial thrust force
+Fa=Ft*tand(alpha)
+mfprintf(res5,'(c)Fa=Ft*tan(alpha)\n\t=%d N',Fa)
+
+mclose(res5)
+editor(TMPDIR+'5_forces_on_helical_gear.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file diff --git a/698/CH17/EX17.6/6_prev_prob_with_different_angles.txt b/698/CH17/EX17.6/6_prev_prob_with_different_angles.txt new file mode 100644 index 000000000..eaf449a89 --- /dev/null +++ b/698/CH17/EX17.6/6_prev_prob_with_different_angles.txt @@ -0,0 +1,8 @@ +(a)Ft=Mt/r
+ =1600 N
+
+(b)Fr=Ft*tan(phi_n)/cos(alpha)
+ =672 N
+
+(c)Fa=Ft*tan(alpha)
+ =923 N
\ No newline at end of file diff --git a/698/CH17/EX17.6/P6_prev_prob_with_different_angles.sce b/698/CH17/EX17.6/P6_prev_prob_with_different_angles.sce new file mode 100644 index 000000000..f50a64b89 --- /dev/null +++ b/698/CH17/EX17.6/P6_prev_prob_with_different_angles.sce @@ -0,0 +1,36 @@ +clc
+//Example 17.5
+//Previous problem with different angles
+
+//------------------------------------------------------------------------------
+
+//Given data
+//diameter of gear
+d=0.25 //m
+r=d/2
+//torque
+Mt=200 //Nm
+//number of teeth
+Ng=45
+//angles
+phi_n=20 //degrees
+alpha=30 //degrees
+
+res6=mopen(TMPDIR+'6_prev_prob_with_different_angles.txt','wt')
+
+//tangential force
+Ft=Mt/r
+mfprintf(res6,'(a)Ft=Mt/r\n\t=%d N\n\n',Ft)
+
+//Separating force
+Fr=Ft*(tand(phi_n)/cosd(alpha))
+mfprintf(res6,'(b)Fr=Ft*tan(phi_n)/cos(alpha)\n\t=%d N\n\n',Fr)
+
+//Axial thrust force
+Fa=Ft*tand(alpha)
+mfprintf(res6,'(c)Fa=Ft*tan(alpha)\n\t=%d N',Fa)
+
+mclose(res6)
+editor(TMPDIR+'6_prev_prob_with_different_angles.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.7/7_forces_on_bevel_gear.txt b/698/CH17/EX17.7/7_forces_on_bevel_gear.txt new file mode 100644 index 000000000..f2561df38 --- /dev/null +++ b/698/CH17/EX17.7/7_forces_on_bevel_gear.txt @@ -0,0 +1,19 @@ +(a)Diameter of Gear=200 mm
+
+(b)Slant height of pitch cone:
+ L=sqrt(rp^2 + rg^2)=125 mm
+
+(c)Mean radius of pinion:
+ rm=rp-(b*sin(beta)*0.5)=60 mm
+
+(d)Pinion torque Mt=238 Nm
+
+(e)Tangential force at mean radius:
+ Ft=Mt/rm=3978 N
+
+(f)Pinion thrust force:
+ Fp=Ft*tan(phi)*sin(beta)=617 N
+
+(f)Gear thrust force:
+ Fg=Ft*tan(phi)*cos(beta)=823 N
+
diff --git a/698/CH17/EX17.7/P7_forces_on_bevel_gear.sce b/698/CH17/EX17.7/P7_forces_on_bevel_gear.sce new file mode 100644 index 000000000..2b875c9da --- /dev/null +++ b/698/CH17/EX17.7/P7_forces_on_bevel_gear.sce @@ -0,0 +1,58 @@ +clc
+//Example 17.7
+//Forces on Bevel gear
+
+//------------------------------------------------------------------------------
+
+//Given data
+//Gear ratio
+G=4/3
+//dimensions of pinion
+dp=0.15 //m
+rp=dp/2
+b=0.05 //m
+//speed
+np=240 //rpm
+//module
+m=5*10e-3 //m
+//pressure angle
+phi=14.5 //degrees
+//power
+P=6000 //W
+
+res7=mopen(TMPDIR+'7_forces_on_bevel_gear.txt','wt')
+
+//diameter of gear
+dg=dp*G
+rg=dg/2
+mfprintf(res7,'(a)Diameter of Gear=%d mm\n\n',ceil(dg*10e2))
+
+//Slant height of pitch cone
+L=sqrt(rp^2 + rg^2)
+mfprintf(res7,'(b)Slant height of pitch cone:\n\tL=sqrt(rp^2 + rg^2)=%d mm\n\n',ceil(L*10e2))
+
+//Mean radius of pinion
+beta=asind(rp/L)
+rm=rp-(b*sind(beta)*0.5)
+mfprintf(res7,'(c)Mean radius of pinion:\n\trm=rp-(b*sin(beta)*0.5)=%d mm\n\n',rm*10e2)
+
+//Pinion torque
+Mt=(P*60)/(2*%pi*np)
+mfprintf(res7,'(d)Pinion torque Mt=%d Nm\n\n',Mt)
+
+//Tangential force at mean radius
+Ft=Mt/rm
+mfprintf(res7,'(e)Tangential force at mean radius:\n\tFt=Mt/rm=%d N\n\n',Ft)
+
+//Pinion thrust force
+Fp=Ft*tand(phi)*sind(beta)
+mfprintf(res7,'(f)Pinion thrust force:\n\tFp=Ft*tan(phi)*sin(beta)=%d N\n\n',Fp)
+
+//Gearthrust force
+Fg=Ft*tand(phi)*cosd(beta)
+mfprintf(res7,'(f)Gear thrust force:\n\tFg=Ft*tan(phi)*cos(beta)=%d N\n\n',Fg)
+
+mclose(res7)
+editor(TMPDIR+'7_forces_on_bevel_gear.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.8/8_spiral_bevel_gear.txt b/698/CH17/EX17.8/8_spiral_bevel_gear.txt new file mode 100644 index 000000000..27e284670 --- /dev/null +++ b/698/CH17/EX17.8/8_spiral_bevel_gear.txt @@ -0,0 +1,14 @@ +(a)Since values are same, unknown parameters will be same as those in problem 17.7
+ Diameter of Gear=200 mm Slant height of pitch cone:
+ L=sqrt(rp^2 + rg^2)=125 mm
+ Mean radius of pinion:
+ rm=rp-(b*sin(beta)*0.5)=60 mm
+ Pinion torque Mt=238 Nm
+ Tangential force at mean radius:
+ Ft=Mt/rm=3978 N
+
+(b)Pinion thrust force:
+ Fp=Ft*((tand(phi_n)*sind(beta))/cosd(gamma) - (tand(gamma)*cosd(beta)))=-1124 N
+
+(c)Gear thrust force:
+ Fg=Ft*((tand(phi_n)*cosd(beta))/cosd(gamma) - (tand(gamma)*sind(beta)))=2328 N
\ No newline at end of file diff --git a/698/CH17/EX17.8/P8_spiral_bevel_gear.sce b/698/CH17/EX17.8/P8_spiral_bevel_gear.sce new file mode 100644 index 000000000..d6e246a06 --- /dev/null +++ b/698/CH17/EX17.8/P8_spiral_bevel_gear.sce @@ -0,0 +1,52 @@ +clc
+//Example 17.8
+//Spiral bevel gear
+
+//------------------------------------------------------------------------------
+
+//Given data
+//Gear ratio
+G=4/3
+//dimensions of pinion
+dp=0.15 //m
+rp=dp/2
+b=0.05 //m
+//speed
+np=240 //rpm
+//module
+m=5*10e-3 //m
+//pressure angle
+phi_n=14.5 //degrees
+//spiral angle
+gamma=30 //degrees
+//power
+P=6000 //W
+
+res8=mopen(TMPDIR+'8_spiral_bevel_gear.txt','wt')
+
+mfprintf(res8,'(a)Since values are same, unknown parameters will be same as those in problem 17.7\n')
+dg=dp*G
+rg=dg/2
+mfprintf(res8,'\tDiameter of Gear=%d mm',ceil(dg*10e2))
+L=sqrt(rp^2 + rg^2)
+mfprintf(res8,'\tSlant height of pitch cone:\n\tL=sqrt(rp^2 + rg^2)=%d mm\n',ceil(L*10e2))
+beta=asind(rp/L)
+rm=rp-(b*sind(beta)*0.5)
+mfprintf(res8,'\tMean radius of pinion:\n\trm=rp-(b*sin(beta)*0.5)=%d mm\n',rm*10e2)
+Mt=(P*60)/(2*%pi*np)
+mfprintf(res8,'\tPinion torque Mt=%d Nm\n',Mt)
+Ft=Mt/rm
+mfprintf(res8,'\tTangential force at mean radius:\n\tFt=Mt/rm=%d N\n\n',Ft)
+
+//Pinion thrust force
+Fp=Ft*((tand(phi_n)*sind(beta))/cosd(gamma) - (tand(gamma)*cosd(beta)))
+mfprintf(res8,'(b)Pinion thrust force:\n\tFp=Ft*((tand(phi_n)*sind(beta))/cosd(gamma) - (tand(gamma)*cosd(beta)))=%d N\n\n',Fp)
+
+//Gear thrust force
+Fg=Ft*((tand(phi_n)*cosd(beta))/cosd(gamma) + (tand(gamma)*sind(beta)))
+mfprintf(res8,'(c)Gear thrust force:\n\tFg=Ft*((tand(phi_n)*cosd(beta))/cosd(gamma) - (tand(gamma)*sind(beta)))=%d N\n\n',Fg)
+
+mclose(res8)
+editor(TMPDIR+'8_spiral_bevel_gear.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH17/EX17.9/9_bevel_gear_pair.txt b/698/CH17/EX17.9/9_bevel_gear_pair.txt new file mode 100644 index 000000000..fa16efc7b --- /dev/null +++ b/698/CH17/EX17.9/9_bevel_gear_pair.txt @@ -0,0 +1,14 @@ +(a)First finding various dimensions:
+ Torque Mt=190 Nm
+ diameter of pinion=200 mm
+ diameter of gear=600 mm
+ Slant height of pitch cone=316.23 mm
+ Mean radius of pinion=89.41 mm
+
+(b) Finding various forces:
+Tangential force at mean radius=2136.16 N
+
+Pinion thrust force=245.87 N
+
+Gear thrust force=737.60 N
+
diff --git a/698/CH17/EX17.9/P9_bevel_gear_pair.sce b/698/CH17/EX17.9/P9_bevel_gear_pair.sce new file mode 100644 index 000000000..0f5b769bc --- /dev/null +++ b/698/CH17/EX17.9/P9_bevel_gear_pair.sce @@ -0,0 +1,57 @@ +clc
+//Example 17.9
+//Bevel gear pair
+
+//------------------------------------------------------------------------------
+
+//Given data
+//power
+P=10000 //W
+//speed
+n=500 //rpm
+//module
+m=5e-3 //m
+//number of teeth on pinion
+Np=40
+//pressure angle
+phi=20 //degrees
+//gear ratio
+G=3
+//face width
+b=67e-3 //mm
+
+res9=mopen(TMPDIR+'9_bevel_gear_pair.txt','wt')
+mfprintf(res9,'(a)First finding various dimensions:\n')
+//torque
+Mt=(P*60)/(2*%pi*n)
+mfprintf(res9,'\tTorque Mt=%d Nm\n',Mt)
+//diameter of pinion
+Dp=m*Np
+rp=Dp/2
+//diameter of gear
+Dg=Dp*G
+rg=Dg/2
+mfprintf(res9,'\tdiameter of pinion=%d mm\n\tdiameter of gear=%d mm\n',Dp* 10^3,Dg* 10^3)
+//slant height
+L=sqrt(rp^2 + rg^2)
+mfprintf(res9,'\tSlant height of pitch cone=%0.2f mm\n',L*10e2)
+beta=asind(rp/L)
+rm=rp-(b*sind(beta)*0.5)
+mfprintf(res9,'\tMean radius of pinion=%0.2f mm\n\n',rm*10e2)
+
+//Finding various forces
+mfprintf(res9,'(b) Finding various forces:\n')
+//Tangential force at mean radius
+Ft=Mt/rm
+mfprintf(res9,'Tangential force at mean radius=%0.2f N\n\n',Ft)
+//Pinion thrust force
+Fp=Ft*tand(phi)*sind(beta)
+mfprintf(res9,'Pinion thrust force=%0.2f N\n\n',Fp)
+//Gearthrust force
+Fg=Ft*tand(phi)*cosd(beta)
+mfprintf(res9,'Gear thrust force=%0.2f N\n\n',Fg)
+
+mclose(res9)
+editor(TMPDIR+'9_bevel_gear_pair.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
|