diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /698/CH17/EX17.7/P7_forces_on_bevel_gear.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '698/CH17/EX17.7/P7_forces_on_bevel_gear.sce')
| -rw-r--r-- | 698/CH17/EX17.7/P7_forces_on_bevel_gear.sce | 58 |
1 files changed, 58 insertions, 0 deletions
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-----------------------------------
|