summaryrefslogtreecommitdiff
path: root/698/CH26
diff options
context:
space:
mode:
Diffstat (limited to '698/CH26')
-rw-r--r--698/CH26/EX26.13/13_Lanza_equation.txt9
-rw-r--r--698/CH26/EX26.13/P13_Lanza_equation.sce33
-rw-r--r--698/CH26/EX26.2/2_comparison_of_moment_of_inertia.txt9
-rw-r--r--698/CH26/EX26.2/P2_comparison_of_moment_of_inerta.sce46
-rw-r--r--698/CH26/EX26.3/3_mass_of_flywheel.txt11
-rw-r--r--698/CH26/EX26.3/P3_mass_of_flywheel.sce35
-rw-r--r--698/CH26/EX26.6/6_permissible_velocity.txt2
-rw-r--r--698/CH26/EX26.6/P6_permissible_velocity.sce23
-rw-r--r--698/CH26/EX26.7/7_diameter_of_rimmed_flywheel.txt20
-rw-r--r--698/CH26/EX26.7/P7_diameter_of_rimmed_flywheel.sce50
-rw-r--r--698/CH26/EX26.8/8_punching_power.txt15
-rw-r--r--698/CH26/EX26.8/P8_punching_power.sce47
12 files changed, 300 insertions, 0 deletions
diff --git a/698/CH26/EX26.13/13_Lanza_equation.txt b/698/CH26/EX26.13/13_Lanza_equation.txt
new file mode 100644
index 000000000..584eca942
--- /dev/null
+++ b/698/CH26/EX26.13/13_Lanza_equation.txt
@@ -0,0 +1,9 @@
+Approximate stresses in flywheel rim is given by:
+ s=V^2*(5.6+ (18.5*d / t*n^2))*10^3
+
+For 4 spokes, S4=43.462 MPa
+
+For 6 spokes, S6=21.449 MPa
+
+For 8 spokes, S8=13.744 MPa
+
diff --git a/698/CH26/EX26.13/P13_Lanza_equation.sce b/698/CH26/EX26.13/P13_Lanza_equation.sce
new file mode 100644
index 000000000..ed35a61dc
--- /dev/null
+++ b/698/CH26/EX26.13/P13_Lanza_equation.sce
@@ -0,0 +1,33 @@
+clc
+//Example 26.13
+//Lanza equation
+
+//------------------------------------------------------------------------------
+
+//Given data
+d=5
+N=100
+t=0.1
+n1=4
+n2=6
+n3=8
+w=(2*%pi*100)/60
+V=w*(d/2)
+
+res13=mopen(TMPDIR+'13_Lanza_equation.txt','wt')
+mfprintf(res13,'Approximate stresses in flywheel rim is given by:\n')
+mfprintf(res13,'\ts=V^2*(5.6+ (18.5*d / t*n^2))*10^3\n\n')
+
+s1=V^2*(5.6+ ((18.5*d)/(t*n1^2)))*10^3
+mfprintf(res13,'For 4 spokes,\tS4=%0.3f MPa\n\n',s1* 10^-6)
+
+s2=V^2*(5.6+ ((18.5*d)/(t*n2^2)))*10^3
+mfprintf(res13,'For 6 spokes,\tS6=%0.3f MPa\n\n',s2* 10^-6)
+
+s3=V^2*(5.6+ ((18.5*d)/(t*n3^2)))*10^3
+mfprintf(res13,'For 8 spokes,\tS8=%0.3f MPa\n\n',s3* 10^-6)
+
+mclose(res13)
+editor(TMPDIR+'13_Lanza_equation.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH26/EX26.2/2_comparison_of_moment_of_inertia.txt b/698/CH26/EX26.2/2_comparison_of_moment_of_inertia.txt
new file mode 100644
index 000000000..9e37d1fda
--- /dev/null
+++ b/698/CH26/EX26.2/2_comparison_of_moment_of_inertia.txt
@@ -0,0 +1,9 @@
+(a)The exact moment of inertia of the rim considering difference of moment of inertia is
+ I=1/2*mo*ro2 - 1/2*mi*ri2
+I=293 kgm2
+
+(b)/the approximate moment of inertia, considering the rim as a thin ring is:
+ Iapprox=m*r2
+Iapprox=288 kgm2
+
+Percent error= 1.6 \ No newline at end of file
diff --git a/698/CH26/EX26.2/P2_comparison_of_moment_of_inerta.sce b/698/CH26/EX26.2/P2_comparison_of_moment_of_inerta.sce
new file mode 100644
index 000000000..331c8969f
--- /dev/null
+++ b/698/CH26/EX26.2/P2_comparison_of_moment_of_inerta.sce
@@ -0,0 +1,46 @@
+clc
+//Example 26.2
+//Comparision of moment of inertia
+
+//------------------------------------------------------------------------------
+
+//Given data
+//mean radius
+r=0.6 //m
+//thickness
+t=0.152 //m
+//width
+b=0.2 //m
+//density
+rho=7000 //kg/m3
+
+//inner and outer radii
+ri=r- t/2
+ro=r+ t/2
+
+//Mass of cylinders
+mo=%pi* ro^2 *b*rho
+mi=%pi* ri^2 *b*rho
+
+res2=mopen(TMPDIR+'2_comparison_of_moment_of_inertia.txt','wt')
+
+//Exact moment of inertia of rim
+mfprintf(res2,'(a)The exact moment of inertia of the rim considering difference of moment of inertia is')
+mfprintf(res2,'\n\tI=1/2*mo*ro2 - 1/2*mi*ri2\n')
+I=(1/2 *mo* ro^2) - (1/2 *mi* ri^2)
+mfprintf(res2,'I=%d kgm2\n\n',I)
+
+//Approximate moment of inertia
+mfprintf(res2,'(b)/the approximate moment of inertia, considering the rim as a thin ring is:')
+mfprintf(res2,'\n\tIapprox=m*r2\n')
+Iapprox=(mo-mi)* r^2
+mfprintf(res2,'Iapprox=%d kgm2\n\n',Iapprox)
+
+//percentage error
+p=((I-Iapprox)/I) *100
+mfprintf(res2,'Percent error= %0.1f',p)
+
+mclose(res2)
+editor(TMPDIR+'2_comparison_of_moment_of_inertia.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH26/EX26.3/3_mass_of_flywheel.txt b/698/CH26/EX26.3/3_mass_of_flywheel.txt
new file mode 100644
index 000000000..094c98f1d
--- /dev/null
+++ b/698/CH26/EX26.3/3_mass_of_flywheel.txt
@@ -0,0 +1,11 @@
+(a)Approximate mass of flywheel
+ mr=2*K*E / r2*(w1^2 -w2^2)
+ mr=69.7 kg
+
+(b)Approximate total mass of flywheel
+ =1.15*mr
+ =80 kg
+
+(c)Coefficient of speed fluctuation
+ delta=w1-w2 /w
+ delta=0.105 \ No newline at end of file
diff --git a/698/CH26/EX26.3/P3_mass_of_flywheel.sce b/698/CH26/EX26.3/P3_mass_of_flywheel.sce
new file mode 100644
index 000000000..ca0b4729c
--- /dev/null
+++ b/698/CH26/EX26.3/P3_mass_of_flywheel.sce
@@ -0,0 +1,35 @@
+clc
+//Example 26.4
+//Mass of flywheel
+
+//------------------------------------------------------------------------------
+
+//Given data
+E=2.7* 10^3
+K=0.9
+r=0.915
+N1=200
+w1=(2*%pi*N1)/60
+N2=180
+w2=(2*%pi*N2)/60
+
+res3=mopen(TMPDIR+'3_mass_of_flywheel.txt','wt')
+
+//Exact moment of inertia of rim
+mfprintf(res3,'(a)Approximate mass of flywheel\n\tmr=2*K*E / r2*(w1^2 -w2^2)\n')
+mr=2*K*E /(r^2* (w1^2 -w2^2))
+mfprintf(res3,'\t\tmr=%0.1f kg\n\n',mr)
+
+mfprintf(res3,'(b)Approximate total mass of flywheel\n\t=1.15*mr\n')
+mfprintf(res3,'\t\t=%d kg\n\n',1.15*mr)
+
+mfprintf(res3,'(c)Coefficient of speed fluctuation\n\t')
+mfprintf(res3,'delta=w1-w2 /w\n')
+w=190
+delta=(N1-N2)/w
+mfprintf(res3,'\tdelta=%0.3f',delta)
+
+mclose(res3)
+editor(TMPDIR+'3_mass_of_flywheel.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH26/EX26.6/6_permissible_velocity.txt b/698/CH26/EX26.6/6_permissible_velocity.txt
new file mode 100644
index 000000000..39a0bd076
--- /dev/null
+++ b/698/CH26/EX26.6/6_permissible_velocity.txt
@@ -0,0 +1,2 @@
+St=rho*v^2
+Neglecting bending in the rim, V=62.7 m/s \ No newline at end of file
diff --git a/698/CH26/EX26.6/P6_permissible_velocity.sce b/698/CH26/EX26.6/P6_permissible_velocity.sce
new file mode 100644
index 000000000..44911ee05
--- /dev/null
+++ b/698/CH26/EX26.6/P6_permissible_velocity.sce
@@ -0,0 +1,23 @@
+clc
+//Example 26.6
+//Permissible velocity
+
+//------------------------------------------------------------------------------
+
+//Given data
+St=27.5* 10^6
+rho=7000
+
+
+res6=mopen(TMPDIR+'6_permissible_velocity.txt','wt')
+mfprintf(res6,'St=rho*v^2\n')
+
+V=sqrt(St/rho)
+
+mfprintf(res6,'Neglecting bending in the rim, V=%0.1f m/s',V)
+
+
+mclose(res6)
+editor(TMPDIR+'6_permissible_velocity.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH26/EX26.7/7_diameter_of_rimmed_flywheel.txt b/698/CH26/EX26.7/7_diameter_of_rimmed_flywheel.txt
new file mode 100644
index 000000000..c314a95ea
--- /dev/null
+++ b/698/CH26/EX26.7/7_diameter_of_rimmed_flywheel.txt
@@ -0,0 +1,20 @@
+(a)Average torque Mt=5968.31 Nm
+
+(b)Energy output per cycle=75000.00 Nm
+Energy output during power stroke=112500.00 Nm
+Energy stored in the flywheel=106531.69 Nm
+
+(c)Stress=rho*V^2
+ V=23.57 m/s
+ V=r*w
+ r=V/w=1.125 m
+
+(d)Mass of rim of flywheel:
+ mr=(K*E)/(V^2 *delta) =5752.71 kg
+
+(e)Dimensions of rim
+ mr=pi*Dm*t*b*rho
+For square rim, t=b=0.336 m
+
+For rectangular rim, b=2t=0.475 m and t=0.238 m
+
diff --git a/698/CH26/EX26.7/P7_diameter_of_rimmed_flywheel.sce b/698/CH26/EX26.7/P7_diameter_of_rimmed_flywheel.sce
new file mode 100644
index 000000000..4c63602e6
--- /dev/null
+++ b/698/CH26/EX26.7/P7_diameter_of_rimmed_flywheel.sce
@@ -0,0 +1,50 @@
+clc
+//Example 26.7
+//Diameter of rimmed flywheel
+
+//------------------------------------------------------------------------------
+
+//Given data
+P=125000
+N=200
+Mt=(125000*60)/(2*%pi*200)
+Ecycle=Mt*4*%pi
+Estroke=1.5*Ecycle
+
+rho=7200
+St=4* 10^6
+
+res7=mopen(TMPDIR+'7_diameter_of_rimmed_flywheel.txt','wt')
+
+mfprintf(res7,'(a)Average torque Mt=%0.2f Nm\n\n',Mt)
+
+mfprintf(res7,'(b)Energy output per cycle=%0.2f Nm\n',Ecycle)
+mfprintf(res7,'Energy output during power stroke=%0.2f Nm\n',Estroke)
+mfprintf(res7,'Energy stored in the flywheel=%0.2f Nm\n\n',Estroke-Mt)
+
+mfprintf(res7,'(c)Stress=rho*V^2\n')
+V=sqrt(St/rho)
+mfprintf(res7,'\tV=%0.2f m/s\n',V)
+r=(V*60)/(2*%pi*N)
+mfprintf(res7,'\tV=r*w\n\tr=V/w=%0.3f m\n\n',r)
+
+mfprintf(res7,'(d)Mass of rim of flywheel:\n')
+K=0.9
+E=Estroke-Mt
+delta=0.03
+mr=(K*E)/(V^2 *delta)
+mfprintf(res7,'\tmr=(K*E)/(V^2 *delta) =%0.2f kg\n\n',mr)
+
+mfprintf(res7,'(e)Dimensions of rim\n\tmr=pi*Dm*t*b*rho\n')
+Dm=2*r
+t=sqrt(mr/(%pi*Dm*rho))
+mfprintf(res7,'For square rim, t=b=%0.3f m\n\n',t)
+t=sqrt(mr/(%pi*Dm*rho*2))
+mfprintf(res7,'For rectangular rim, b=2t=%0.3f m and t=%0.3f m\n\n',2*t,t)
+
+
+
+mclose(res7)
+editor(TMPDIR+'7_diameter_of_rimmed_flywheel.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
diff --git a/698/CH26/EX26.8/8_punching_power.txt b/698/CH26/EX26.8/8_punching_power.txt
new file mode 100644
index 000000000..edd0bb912
--- /dev/null
+++ b/698/CH26/EX26.8/8_punching_power.txt
@@ -0,0 +1,15 @@
+(a)For punching operation, requirement of power:
+Maximum shear force=Sut*Area =471238.9 N
+Energy required per stroke=4712.389 Nm
+Total energy required per minute=117809.72 Nm
+Power of Motor=2181.66 W
+
+(b)Energy stored in flywheel:
+ =4241.15 Nm
+Out of this,5% is supplied by arms and hub, and 95% by rim
+ mr=185.791 kg
+
+(c)mr=pi*Dm*t*b*rho
+For rectangular rim, b=2t=0.114 m and t=0.057 m
+Checking for stresses,
+St=rho*V^2=1.57Mpa, which is less than 6Mpa, hence safe. \ No newline at end of file
diff --git a/698/CH26/EX26.8/P8_punching_power.sce b/698/CH26/EX26.8/P8_punching_power.sce
new file mode 100644
index 000000000..82df2e99f
--- /dev/null
+++ b/698/CH26/EX26.8/P8_punching_power.sce
@@ -0,0 +1,47 @@
+clc
+//Example 26.8
+//Punching power
+
+//------------------------------------------------------------------------------
+
+//Given data
+Sut=300* 10^6
+d=0.025
+l=0.02
+rho=7250
+St=6* 10^6
+Dm=1.25
+w=(9*2*%pi*25)/60
+V=w* Dm/2
+delta=0.1
+
+
+res8=mopen(TMPDIR+'8_punching_power.txt','wt')
+mfprintf(res8,'(a)For punching operation, requirement of power:\n')
+Smax=Sut*%pi*d*l
+mfprintf(res8,'Maximum shear force=Sut*Area =%0.1f N\n',Smax)
+Estroke=(1/2)*Smax*l
+mfprintf(res8,'Energy required per stroke=%0.3f Nm\n',Estroke)
+Etot=Estroke*25
+mfprintf(res8,'Total energy required per minute=%0.2f Nm\n',Etot)
+P=Etot/(60*0.9)
+mfprintf(res8,'Power of Motor=%0.2f W\n\n',P)
+
+mfprintf(res8,'(b)Energy stored in flywheel:\n')
+E=0.9*Estroke
+mfprintf(res8,'\t=%0.2f Nm\n',E)
+mfprintf(res8,'Out of this,5%% is supplied by arms and hub, and 95%% by rim\n')
+K=0.95
+mr=(K*E)/(V^2 *delta)
+mfprintf(res8,'\tmr=%0.3f kg\n\n',mr)
+
+mfprintf(res8,'(c)mr=pi*Dm*t*b*rho\n')
+t=sqrt(mr/(%pi*Dm*rho*2))
+mfprintf(res8,'For rectangular rim, b=2t=%0.3f m and t=%0.3f m\n',2*t,t)
+mfprintf(res8,'Checking for stresses,\nSt=rho*V^2=1.57Mpa, which is less than 6Mpa, hence safe.')
+
+
+mclose(res8)
+editor(TMPDIR+'8_punching_power.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
generated by cgit (git 2.34.1) at 2024-12-19 13:13:00 +0000