diff options
Diffstat (limited to '698/CH17/EX17.10')
-rw-r--r-- | 698/CH17/EX17.10/10_centrifugal_pump.txt | 13 | ||||
-rw-r--r-- | 698/CH17/EX17.10/P10_centrifugal_pump.sce | 55 |
2 files changed, 68 insertions, 0 deletions
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-----------------------------------
|