10 files changed, 400 insertions, 405 deletions

diff --git a/278/CH22/EX22.1/ex_22_1.sce b/278/CH22/EX22.1/ex_22_1.sce
index cbab28a55..dd6458766 100755
--- a/278/CH22/EX22.1/ex_22_1.sce
+++ b/278/CH22/EX22.1/ex_22_1.sce
@@ -1,34 +1,34 @@
-//find...

-clc

-//solution

-//given

-D=300//mm

-R=0.150//mm

-Cs=0.003

-N=1800//rpm

-w=188.5//rad/s

-rho=7250//kg/m^3

-//let m eb the mass of fly wheel

-//ref fig 22.6

-//total energy at E =total energy at A

-//Eb=E+295

-//Ec=E+295-685=E-390

-//Ed=E-350

-//Ee=E-690

-//Ef=E+270

-//Eg=E

-//Ea=E

-//max energy is at B and min is a E

-//dE=Eb-Ee=985

-//dE=985//mm^2

-//conveting to N-m

-dE=985*0.087//N-m

-//dE=m*R^2*w^2*Cs

-m=dE/(R^2*w^2*Cs)//kg

-printf("the mass of flywheel is,%f kg\n",m)

-//let t be thickness and b be width of rim

-//b=2t

-//A=b*t=2*t^2

-//m=A*2*%pi*R*rho=13668*t^2

-t=sqrt(m/13668)//m

+
+clc
+//solution
+//given
+D=300//mm
+R=0.150//mm
+Cs=0.003
+N=1800//rpm
+w=188.5//rad/s
+rho=7250//kg/m^3
+//let m eb the mass of fly wheel
+//ref fig 22.6
+//total energy at E =total energy at A
+//Eb=E+295
+//Ec=E+295-685=E-390
+//Ed=E-350
+//Ee=E-690
+//Ef=E+270
+//Eg=E
+//Ea=E
+//max energy is at B and min is a E
+//dE=Eb-Ee=985
+//dE=985//mm^2
+//conveting to N-m
+dE=985*0.087//N-m
+//dE=m*R^2*w^2*Cs
+m=dE/(R^2*w^2*Cs)//kg
+printf("the mass of flywheel is,%f kg\n",m)
+//let t be thickness and b be width of rim
+//b=2t
+//A=b*t=2*t^2
+//m=A*2*%pi*R*rho=13668*t^2
+t=sqrt(m/13668)//m
 printf("the thicknes and width is,%f m\n,%f m\n",t,2*t)
\ No newline at end of file
diff --git a/278/CH22/EX22.10/ex_22_10.sce b/278/CH22/EX22.10/ex_22_10.sce
index 5bbb6e43d..e01e314ce 100755
--- a/278/CH22/EX22.10/ex_22_10.sce
+++ b/278/CH22/EX22.10/ex_22_10.sce
@@ -1,66 +1,65 @@
-//find...

-clc

-//solution

-//given

-P=180*1000//W

-N=240//rpm

-ft=5.2*10^6//N/m^2

-//N1-N2=0.03

-rho=7220//kg/m^3

-tf=40//N/mm^2

-Tmean=(P*60)/(2*%pi*N)//N-m

-printf("mean torque acig is,%f N-m\n",Tmean)

-//ref fig 22.18

-q=4*%pi

-Wdpc=Tmean*q

-Wp=1.33*Wdpc//work done in power stroke....eq1

-//Wp1=(0.5*%pi)*Tmax...eq2

-Tmax=Wp/(%pi/2)//N-m

-printf("max torque is,%f N-m\n",Tmax)

-//BG=BF-FG

-BG=Tmax-Tmean//N-m

-BF=Tmax

-dE=Wp*(BG/BF)^2//N-m

-printf("dE is,%f N-m\n",dE)

-//let D be mean dia

-//let v be peripheral velo

-v=sqrt(ft/rho)//m/s

-D=(v*60)/(N*%pi)//m

-R=D/2

-printf("the dia of wheel is,%f m\n",D)

-//N1-N2=0.03*N

-Cs=0.03

-w=2*%pi*N/60//rad/s

-//dE=E*2*Cs

-m=dE/(R^2*w^2*Cs)

-printf("mass of wheel is,%f kg\n",m)

-//let t be thickness and b be width of rim

-//b=2t

-//A=b*t=2*t^2

-t=sqrt(m/96730)//mm

-printf("the thicknes and width is,%f m\n,%f m\n",t,2*t)

-//let d be dia of hub ,d1 be dia of shaft,l be length of hub

-//let Tmax1 be max torque on shaft

-Tmax1=2*Tmean*1000//N-mm

-//d1=(Tmax1*16/(%pi*tf))^(1/3)

-printf("dia od shaft is,%f mm\n",(Tmax1*16/(%pi*tf))^(1/3))

-printf("the dia of shaft is say 125mm\n")

-d1=125//mm

-d=2*d1//mm

-l=2*t//mm

-printf("the dia of hub and length of hub is,%f mm\n,%f m\n",d,l)

-//let a1 be major and b1 be minor axis

-//a1=2*b1

-n=6

-fb=15//N/mm^2

-M=Tmax1*(D*1000-d)/(D*n*1000)//N-mm

-printf("bending moment is,%f N-mm\n",M)

-//Z=(%pi/32)*b1*a1^2=0.05*a1^3

-//fb=M/Z

-a1=(M/(fb*0.05))^(1/3)//mm

-b1=0.5*a1

-printf("major and minor axis is,%f mm\n,%f mm\n",a1,b1)

-printf("corrsponding to shaft of dia 125 mm,width is 36 mm and thicknss ofkey is 20 mm\n")

-//let L be length of key

-L=Tmax1/(36*tf*d1/2)//mm

+clc
+//solution
+//given
+P=180*1000//W
+N=240//rpm
+ft=5.2*10^6//N/m^2
+//N1-N2=0.03
+rho=7220//kg/m^3
+tf=40//N/mm^2
+Tmean=(P*60)/(2*%pi*N)//N-m
+printf("mean torque acig is,%f N-m\n",Tmean)
+//ref fig 22.18
+q=4*%pi
+Wdpc=Tmean*q
+Wp=1.33*Wdpc//work done in power stroke....eq1
+//Wp1=(0.5*%pi)*Tmax...eq2
+Tmax=Wp/(%pi/2)//N-m
+printf("max torque is,%f N-m\n",Tmax)
+//BG=BF-FG
+BG=Tmax-Tmean//N-m
+BF=Tmax
+dE=Wp*(BG/BF)^2//N-m
+printf("dE is,%f N-m\n",dE)
+//let D be mean dia
+//let v be peripheral velo
+v=sqrt(ft/rho)//m/s
+D=(v*60)/(N*%pi)//m
+R=D/2
+printf("the dia of wheel is,%f m\n",D)
+//N1-N2=0.03*N
+Cs=0.03
+w=2*%pi*N/60//rad/s
+//dE=E*2*Cs
+m=dE/(R^2*w^2*Cs)
+printf("mass of wheel is,%f kg\n",m)
+//let t be thickness and b be width of rim
+//b=2t
+//A=b*t=2*t^2
+t=sqrt(m/96730)//mm
+printf("the thicknes and width is,%f m\n,%f m\n",t,2*t)
+//let d be dia of hub ,d1 be dia of shaft,l be length of hub
+//let Tmax1 be max torque on shaft
+Tmax1=2*Tmean*1000//N-mm
+//d1=(Tmax1*16/(%pi*tf))^(1/3)
+printf("dia od shaft is,%f mm\n",(Tmax1*16/(%pi*tf))^(1/3))
+printf("the dia of shaft is say 125mm\n")
+d1=125//mm
+d=2*d1//mm
+l=2*t//mm
+printf("the dia of hub and length of hub is,%f mm\n,%f m\n",d,l)
+//let a1 be major and b1 be minor axis
+//a1=2*b1
+n=6
+fb=15//N/mm^2
+M=Tmax1*(D*1000-d)/(D*n*1000)//N-mm
+printf("bending moment is,%f N-mm\n",M)
+//Z=(%pi/32)*b1*a1^2=0.05*a1^3
+//fb=M/Z
+a1=(M/(fb*0.05))^(1/3)//mm
+b1=0.5*a1
+printf("major and minor axis is,%f mm\n,%f mm\n",a1,b1)
+printf("corrsponding to shaft of dia 125 mm,width is 36 mm and thicknss ofkey is 20 mm\n")
+//let L be length of key
+L=Tmax1/(36*tf*d1/2)//mm
 printf("length of key is,%f mm\n",L)
\ No newline at end of file
diff --git a/278/CH22/EX22.11/ex_22_11.sce b/278/CH22/EX22.11/ex_22_11.sce
index 9d122ee1b..4734e5bf9 100755
--- a/278/CH22/EX22.11/ex_22_11.sce
+++ b/278/CH22/EX22.11/ex_22_11.sce
@@ -1,49 +1,48 @@
-//find...

-clc

-//solution

-//given

-P=185*1000//W

-N=100//rpm

-//dE=0.15*E

-D=2.4//m

-R=1.2//m

-//let m be mass

-E=(P*60)/N//N-m

-dE=0.15*E//N-m

-rho=7200

-Cs=0.02

-v=(%pi*D*N)/60//m/s

-m=dE/(v^2*Cs)//kg

-printf("mass is,%f kg\n",m)

-//let t be thickness and b be width of rim

-//b=2t

-//m=A*%pi*D*rho

-//A=b*t=2*t^2

-t=sqrt(m/108588)//mm

-printf("the thicknes and width is,%f m\n,%f m\n",t,2*t)

-//let d be dia of hub ,d1 be dia of shaft,l be length of hub

-Tmean=(P*60)/(2*%pi*N)//N-m

-Tmax1=2*Tmean*1000//N-mm

-//d1=(Tmax1*16/(%pi*tf))^(1/3)

-printf("dia od shaft is,%f mm\n",(Tmax1*16/(%pi*tf))^(1/3))

-printf("the dia of shaft is say 165mm\n")

-d1=165//mm

-d=2*d1//mm

-l=2*t//mm

-printf("the dia of hub and length of hub is,%f mm\n,%f m\n",d,l)

-//let a1 be major and b1 be minor axis

-//a1=2*b1

-n=6

-fb=14//N/mm^2

-M=Tmax1*(D*1000-d)/(D*n*1000)//N-mm

-printf("bending moment is,%f N-mm\n",M)

-//Z=(%pi/32)*b1*a1^2=0.05*a1^3

-//fb=M/Z

-a1=(M/(fb*0.05))^(1/3)//mm

-b1=0.5*a1

-tf=40

-printf("major and minor axis is,%f mm\n,%f mm\n",a1,b1)

-printf("corrsponding to shaft of dia 165 mm,width is 45 mm and thicknss of key is 25 mm\n")

-//let L be length of key

-L=Tmax1/(45*tf*d1/2)//mm

+clc
+//solution
+//given
+P=185*1000//W
+N=100//rpm
+//dE=0.15*E
+D=2.4//m
+R=1.2//m
+//let m be mass
+E=(P*60)/N//N-m
+dE=0.15*E//N-m
+rho=7200
+Cs=0.02
+v=(%pi*D*N)/60//m/s
+m=dE/(v^2*Cs)//kg
+printf("mass is,%f kg\n",m)
+//let t be thickness and b be width of rim
+//b=2t
+//m=A*%pi*D*rho
+//A=b*t=2*t^2
+t=sqrt(m/108588)//mm
+printf("the thicknes and width is,%f m\n,%f m\n",t,2*t)
+//let d be dia of hub ,d1 be dia of shaft,l be length of hub
+Tmean=(P*60)/(2*%pi*N)//N-m
+Tmax1=2*Tmean*1000//N-mm
+//d1=(Tmax1*16/(%pi*tf))^(1/3)
+tf=40;
+printf("dia od shaft is,%f mm\n",(Tmax1*16/(%pi*tf))^(1/3))
+printf("the dia of shaft is say 165mm\n")
+d1=165//mm
+d=2*d1//mm
+l=2*t//mm
+printf("the dia of hub and length of hub is,%f mm\n,%f m\n",d,l)
+//let a1 be major and b1 be minor axis
+//a1=2*b1
+n=6
+fb=14//N/mm^2
+M=Tmax1*(D*1000-d)/(D*n*1000)//N-mm
+printf("bending moment is,%f N-mm\n",M)
+//Z=(%pi/32)*b1*a1^2=0.05*a1^3
+//fb=M/Z
+a1=(M/(fb*0.05))^(1/3)//mm
+b1=0.5*a1
+printf("major and minor axis is,%f mm\n,%f mm\n",a1,b1)
+printf("corrsponding to shaft of dia 165 mm,width is 45 mm and thicknss of key is 25 mm\n")
+//let L be length of key
+L=Tmax1/(45*tf*d1/2)//mm
 printf("length of key is,%f mm\n",L)
\ No newline at end of file
diff --git a/278/CH22/EX22.13/ex_22_13.sce b/278/CH22/EX22.13/ex_22_13.sce
index 39f90f169..72f86c8fe 100755
--- a/278/CH22/EX22.13/ex_22_13.sce
+++ b/278/CH22/EX22.13/ex_22_13.sce
@@ -1,50 +1,50 @@
-//find...

-clc

-//solution

-//given

-Do=1.8//m

-Di=1.35//m

-b=0.3//m

-N=250//rpm

-T=15000//N-m

-ftb=35//n/mm^2

-ftl=40//n/mm^2

-//w=1.25*h

-n=6

-fta=15//N/mm^2

-d1=150//mm

-rho=7200//kg/m^3

-D=(Do+Di)/2//m

-t=(Do-Di)/2//m

-v=(%pi*D*N)/60//m/s

-ft=rho*v^2*10^6//N/mm^2

-A=b*t//m^2

-Ft=ft*A*10^6//N

-//let dc be core dia

-//Ft=(%pi/4)*dc^2*ftb*4=110*dc^2

-//dc=sqrt(Ft/110)//mm

-printf("the core dia is,%f mm\n",sqrt(Ft/110))

-printf("the standard core dia is 48.65mm\n")

-dc=48.65//mm

-//let h be depth of link and w be width of link

-//w=1.25*h

-//Al=w*h=1.25*h^2

-//let Fmax be max tensile force 

-Fmax=2*ft*A//N....eq1

-//Fmax=4*ftl*Al=200*h^2...eq2

-//from eq 1 and eq2 

-h=46//mm

-w=1.25*h//mm

-printf("the heigth and width of of link is,%f mm\n,%f mm\n",h,w)

-//let a1 be major and b1 be minor axis

-//a1=2*b1

-n=6

-d=2*d1//m

-M=T*(D*1000-d)/(D*n*1000)//N-mm

-printf("bending moment is,%f N-mm\n",M*1000)

-//Z=(%pi/32)*b1*a1^2=0.05*a1^3

-//fb=M/Z

-a1=(M*1000/(fta*0.05))^(1/3)//mm

-b1=0.5*a1

-tf=40

+
+clc
+//solution
+//given
+Do=1.8//m
+Di=1.35//m
+b=0.3//m
+N=250//rpm
+T=15000//N-m
+ftb=35//n/mm^2
+ftl=40//n/mm^2
+//w=1.25*h
+n=6
+fta=15//N/mm^2
+d1=150//mm
+rho=7200//kg/m^3
+D=(Do+Di)/2//m
+t=(Do-Di)/2//m
+v=(%pi*D*N)/60//m/s
+ft=rho*v^2*10^6//N/mm^2
+A=b*t//m^2
+Ft=ft*A*10^6//N
+//let dc be core dia
+//Ft=(%pi/4)*dc^2*ftb*4=110*dc^2
+//dc=sqrt(Ft/110)//mm
+printf("the core dia is,%f mm\n",sqrt(Ft/110))
+printf("the standard core dia is 48.65mm\n")
+dc=48.65//mm
+//let h be depth of link and w be width of link
+//w=1.25*h
+//Al=w*h=1.25*h^2
+//let Fmax be max tensile force 
+Fmax=2*ft*A//N....eq1
+//Fmax=4*ftl*Al=200*h^2...eq2
+//from eq 1 and eq2 
+h=46//mm
+w=1.25*h//mm
+printf("the heigth and width of of link is,%f mm\n,%f mm\n",h,w)
+//let a1 be major and b1 be minor axis
+//a1=2*b1
+n=6
+d=2*d1//m
+M=T*(D*1000-d)/(D*n*1000)//N-mm
+printf("bending moment is,%f N-mm\n",M*1000)
+//Z=(%pi/32)*b1*a1^2=0.05*a1^3
+//fb=M/Z
+a1=(M*1000/(fta*0.05))^(1/3)//mm
+b1=0.5*a1
+tf=40
 printf("major and minor axis is,%f mm\n,%f mm\n",a1,b1)
\ No newline at end of file
diff --git a/278/CH22/EX22.3/ex_22_3.sce b/278/CH22/EX22.3/ex_22_3.sce
index 6d2f80dd2..92ccc4ca4 100755
--- a/278/CH22/EX22.3/ex_22_3.sce
+++ b/278/CH22/EX22.3/ex_22_3.sce
@@ -1,25 +1,25 @@
-//find...

-clc

-//solution

-//given

-P=150*1000//W

-N=80//rpm

-Ce=0.1

-//(w1-w2)=0.02

-D=2//m

-R=1//m

-rho=7200//kg/m^3

-w=2*%pi*N/60//rad/s

-//Cs=(w1-w2)/w

-Cs=0.04

-Wdpc=P*60/N//N-m

-dE=Ce*Wdpc//N-m

-dEm=0.95*dE

-//let m eb the mass of fly wheel

-//dE=m*R^2*w^2*Cs

-m=dEm/(R^2*w^2*Cs)//kg

-printf("the mass of flywheel is,%f kg\n",m)

-//let A be the area of rim

-//m=A*2*%pi*R*rho

-A=m/(2*%pi*R*rho)//m^2

+
+clc
+//solution
+//given
+P=150*1000//W
+N=80//rpm
+Ce=0.1
+//(w1-w2)=0.02
+D=2//m
+R=1//m
+rho=7200//kg/m^3
+w=2*%pi*N/60//rad/s
+//Cs=(w1-w2)/w
+Cs=0.04
+Wdpc=P*60/N//N-m
+dE=Ce*Wdpc//N-m
+dEm=0.95*dE
+//let m eb the mass of fly wheel
+//dE=m*R^2*w^2*Cs
+m=dEm/(R^2*w^2*Cs)//kg
+printf("the mass of flywheel is,%f kg\n",m)
+//let A be the area of rim
+//m=A*2*%pi*R*rho
+A=m/(2*%pi*R*rho)//m^2
 printf("the area of rim is,%f m^2",A)
\ No newline at end of file
diff --git a/278/CH22/EX22.4/ex_22_4.sce b/278/CH22/EX22.4/ex_22_4.sce
index a4893e73f..a70530f7c 100755
--- a/278/CH22/EX22.4/ex_22_4.sce
+++ b/278/CH22/EX22.4/ex_22_4.sce
@@ -1,28 +1,28 @@
-//find...

-clc

-//solution

-//given

-P=20000//W

-N=300//rpm

-w=31.42//rad/s

-//(w1-w2)/w=0.01*w

-//ref fig 22.8

-q=4*%pi

-Tmean=(P*60)/(2*%pi*N)//N-m

-printf("mean torque acting is,%f N-m\n",Tmean)

-Wdpc=Tmean*q//N-m...eq1

-//Wn=We-Wc=We-We/2.3=0.565*We...eq2

-//from eq1 and eq2

-We=14160//N-m

-Tmax=We*2/(%pi)//N-m

-//BG=BF-FG

-BG=Tmax-Tmean//N-m

-BF=Tmax

-dE=We*(BG/BF)^2//N-m

-printf("the ")

-//Cs=(w1-w2)/w

-Cs=0.02

-//let I be moment of inertia

-//dE=I*w^2*Cs

-I=dE/(w^2*Cs)//kg-m^2

+
+clc
+//solution
+//given
+P=20000//W
+N=300//rpm
+w=31.42//rad/s
+//(w1-w2)/w=0.01*w
+//ref fig 22.8
+q=4*%pi
+Tmean=(P*60)/(2*%pi*N)//N-m
+printf("mean torque acting is,%f N-m\n",Tmean)
+Wdpc=Tmean*q//N-m...eq1
+//Wn=We-Wc=We-We/2.3=0.565*We...eq2
+//from eq1 and eq2
+We=14160//N-m
+Tmax=We*2/(%pi)//N-m
+//BG=BF-FG
+BG=Tmax-Tmean//N-m
+BF=Tmax
+dE=We*(BG/BF)^2//N-m
+printf("the ")
+//Cs=(w1-w2)/w
+Cs=0.02
+//let I be moment of inertia
+//dE=I*w^2*Cs
+I=dE/(w^2*Cs)//kg-m^2
 printf("the moment of inertia is,%f kg-m^2",I)
\ No newline at end of file
diff --git a/278/CH22/EX22.5/ex_22_5.sce b/278/CH22/EX22.5/ex_22_5.sce
index 8d8aa96a7..0b9d8c8a5 100755
--- a/278/CH22/EX22.5/ex_22_5.sce
+++ b/278/CH22/EX22.5/ex_22_5.sce
@@ -1,46 +1,46 @@
-//find...

-clc

-//solution

-//given

-N=600//rpm

-w=62.84//rad/s

-rho=7250//kg/m^3

-ft=6*10^6//n/M^2

-//REF fig 22.12

-//let I be mont of inertia

-//total energy at E =total energy at A

-//Eb=E+160

-//Ec=E-12

-//Ed=E+156

-//Ee=E-35

-//Ef=E+162

-//Eg=E

-//Ea=E

-//max energy is at F and min is a E

-//dE=Ef-Ee=197

-//dE=197//mm^2

-//conveting to N-m

-dE=197*13.1//N-m

-//Cs=(w1-w2)/w

-Cs=0.02

-//let I be moment of inertia

-//dE=I*w^2*Cs

-I=dE/(w^2*Cs)//kg-m^2

-printf("the moment of inertia is,%f kg-m^2\n",I)

-//let t be thickness and b be width of rim

-//b=2t

-v=sqrt(ft/rho)//m/s

-printf("the tangetntial velocity is,%f m/s\n",v)

-//v=%pi*D*N/60=31.42*D

-printf("dia of flywheel is,%d mm\n",v/31.42*1000)

-//let E be total energy

-E=dE/(2*Cs)//N-m

-Emin=0.92*E//N-m

-//let m eb bmass

-m=Emin*2/(v^2)//kg

-//let t be thickness and b be width of rim

-//b=2t

-//A=b*t=2*t^2

-//m=A*2*%pi*R*rho=41686*t^2

-t=sqrt(m/41686)//m

+
+clc
+//solution
+//given
+N=600//rpm
+w=62.84//rad/s
+rho=7250//kg/m^3
+ft=6*10^6//n/M^2
+//REF fig 22.12
+//let I be mont of inertia
+//total energy at E =total energy at A
+//Eb=E+160
+//Ec=E-12
+//Ed=E+156
+//Ee=E-35
+//Ef=E+162
+//Eg=E
+//Ea=E
+//max energy is at F and min is a E
+//dE=Ef-Ee=197
+//dE=197//mm^2
+//conveting to N-m
+dE=197*13.1//N-m
+//Cs=(w1-w2)/w
+Cs=0.02
+//let I be moment of inertia
+//dE=I*w^2*Cs
+I=dE/(w^2*Cs)//kg-m^2
+printf("the moment of inertia is,%f kg-m^2\n",I)
+//let t be thickness and b be width of rim
+//b=2t
+v=sqrt(ft/rho)//m/s
+printf("the tangetntial velocity is,%f m/s\n",v)
+//v=%pi*D*N/60=31.42*D
+printf("dia of flywheel is,%d mm\n",v/31.42*1000)
+//let E be total energy
+E=dE/(2*Cs)//N-m
+Emin=0.92*E//N-m
+//let m eb bmass
+m=Emin*2/(v^2)//kg
+//let t be thickness and b be width of rim
+//b=2t
+//A=b*t=2*t^2
+//m=A*2*%pi*R*rho=41686*t^2
+t=sqrt(m/41686)//m
 printf("the thickness and iwth of rim is,%f m\n,%f m\n",t,2*t)
\ No newline at end of file
diff --git a/278/CH22/EX22.6/ex_22_6.sce b/278/CH22/EX22.6/ex_22_6.sce
index 89dc7f084..7d88b789b 100755
--- a/278/CH22/EX22.6/ex_22_6.sce
+++ b/278/CH22/EX22.6/ex_22_6.sce
@@ -1,42 +1,41 @@
-//find...

-clc

-//solution

-//given

-N=300//rpm

-w=31.42//rad/s

-ft=5.6*10^6//N/m^2

-rho=7200

-//let D be dia

-//v=(%pi*D*N)/60=15.71*D//m/s

-//ft=rho*v^2=1.8*10^6*D^2

-D=sqrt(ft/(1.8*10^6))//m

-R=D/2//m

-printf("the dia of flywheel is,%f m\n",D)

-//ref fig 22.13

-//total energy at E =total energy at A

-//Eb=E-32

-//Ec=E+376

-//Ed=E+109

-//Ee=E+442

-//Ef=E+132

-//Eg=E+358

-//Eh=E-16

-//Ei=E+244

-//Ej=E

-//Ea=E

-//max energy is at E and min is a B

-//dE=Eb-Ee=474

-//dE=474//mm^2

-//conveting to N-m

-dE=474*27.3//N-m

-//Cs=(w1-w2)/w

-Cs=0.03

-//dE=m*R^2*w^2*Cs

-m=dE/(R^2*w^2*Cs)//kg

-printf("the mass of flywheel is,%f kg\n",m)

-//let t be thickness and b be width of rim

-//b=4t

-//A=b*t=4*t^2

-//m=A*2*%pi*R*rho=159624*t^2

-t=sqrt(m/159624)//m

+
+//solution
+//given
+N=300//rpm
+w=31.42//rad/s
+ft=5.6*10^6//N/m^2
+rho=7200
+//let D be dia
+//v=(%pi*D*N)/60=15.71*D//m/s
+//ft=rho*v^2=1.8*10^6*D^2
+D=sqrt(ft/(1.8*10^6))//m
+R=D/2//m
+printf("the dia of flywheel is,%f m\n",D)
+//ref fig 22.13
+//total energy at E =total energy at A
+//Eb=E-32
+//Ec=E+376
+//Ed=E+109
+//Ee=E+442
+//Ef=E+132
+//Eg=E+358
+//Eh=E-16
+//Ei=E+244
+//Ej=E
+//Ea=E
+//max energy is at E and min is a B
+//dE=Eb-Ee=474
+//dE=474//mm^2
+//conveting to N-m
+dE=474*27.3//N-m
+//Cs=(w1-w2)/w
+Cs=0.03
+//dE=m*R^2*w^2*Cs
+m=dE/(R^2*w^2*Cs)//kg
+printf("the mass of flywheel is,%f kg\n",m)
+//let t be thickness and b be width of rim
+//b=4t
+//A=b*t=4*t^2
+//m=A*2*%pi*R*rho=159624*t^2
+t=sqrt(m/159624)//m
 printf("the thickness and iwth of rim is,%f m\n,%f m\n",t,4*t)
\ No newline at end of file
diff --git a/278/CH22/EX22.7/ex_22_7.sce b/278/CH22/EX22.7/ex_22_7.sce
index 5836e6a6c..931ad6726 100755
--- a/278/CH22/EX22.7/ex_22_7.sce
+++ b/278/CH22/EX22.7/ex_22_7.sce
@@ -1,41 +1,40 @@
-//find...

-clc

-//solution

-//given

-P=50000//W

-N=150//rpm

-n=75

-ft=4*10^6//N/m^2

-rho=7200

-Tmean=(P*60)/(2*%pi*N)//N-m

-printf("mean torque acig is,%f N-m\n",Tmean)

-//ref fig 22.14

-q=4*%pi

-Wdpc=Tmean*q

-Wp=1.4*Wdpc//work done in power stroke....eq1

-//from dia

-//Wp1=(0.5*%pi)*Tmax...eq2

-Tmax=Wp/1.571//N-m

-printf("max torque is,%f N-m\n",Tmax)

-//BG=BF-FG

-BG=Tmax-Tmean//N-m

-BF=Tmax

-dE=Wp*(BG/BF)^2//N-m

-printf("dE is,%f N-m\n",dE)

-//let D be mean dia

-//let v be peripheral velo

-v=sqrt(ft/rho)//m/s

-D=(v*60)/(N*%pi)//m

-printf("the dia of wheel is,%f m\n",D)

-//let t be thickness and b be width of rim

-//b=4t

-//A=b*t=4*t^2

-//N1-N2=0.01*N

-Cs=0.01

-//dE=E*2*Cs

-E=dE/(2*Cs)//N-m

-Erim=(15/16)*E//N-m

-printf("Erim is,%f N-m\n",Erim)

-m=Erim*2/v^2//kg

-t=sqrt(m/271468)

-printf("the thickness and width si,%f m\n,%f m\n",t,4*t)

+
+//solution
+//given
+P=50000//W
+N=150//rpm
+n=75
+ft=4*10^6//N/m^2
+rho=7200
+Tmean=(P*60)/(2*%pi*N)//N-m
+printf("mean torque acig is,%f N-m\n",Tmean)
+//ref fig 22.14
+q=4*%pi
+Wdpc=Tmean*q
+Wp=1.4*Wdpc//work done in power stroke....eq1
+//from dia
+//Wp1=(0.5*%pi)*Tmax...eq2
+Tmax=Wp/1.571//N-m
+printf("max torque is,%f N-m\n",Tmax)
+//BG=BF-FG
+BG=Tmax-Tmean//N-m
+BF=Tmax
+dE=Wp*(BG/BF)^2//N-m
+printf("dE is,%f N-m\n",dE)
+//let D be mean dia
+//let v be peripheral velo
+v=sqrt(ft/rho)//m/s
+D=(v*60)/(N*%pi)//m
+printf("the dia of wheel is,%f m\n",D)
+//let t be thickness and b be width of rim
+//b=4t
+//A=b*t=4*t^2
+//N1-N2=0.01*N
+Cs=0.01
+//dE=E*2*Cs
+E=dE/(2*Cs)//N-m
+Erim=(15/16)*E//N-m
+printf("Erim is,%f N-m\n",Erim)
+m=Erim*2/v^2//kg
+t=sqrt(m/271468)
+printf("the thickness and width si,%f m\n,%f m\n",t,4*t)
diff --git a/278/CH22/EX22.9/ex_22_9.sce b/278/CH22/EX22.9/ex_22_9.sce
index 77a02f682..22bb0b748 100755
--- a/278/CH22/EX22.9/ex_22_9.sce
+++ b/278/CH22/EX22.9/ex_22_9.sce
@@ -1,32 +1,31 @@
-//find...

-clc

-//solution

-//given

-n=25

-d1=25//mm

-t1=18//mm

-tu=300//N/mm^2

-effm=0.95

-Cs=0.1

-ft=6//N/mm^2

-rho=7250//kg/m^3

-D=1.4//m

-R=0.7//m

-As=%pi*d1*t1//area of plate sheared

-Fs=As*tu//N

-Eps=0.5*Fs*t1//N-mm//energy req per stroke

-Epm=Eps*n/1000//N-m

-P=Epm/(60*effm)//W

-printf("power req is,%f W\n",P)

-//let t be thickness and b be width of rim

-//b=2t

-//A=b*t=2*t^2

-dE=(9/10)*Eps//N-m

-//let m be mass of wheel

-Erim=0.95*dE//N-m

-N=9*25//rpm

-w=2*%pi*N/60//rad/s

-m=Erim/(R^2*w^2*Cs)//kg

-//m=A*2*%pi*R*rho=63782*t^2

-t=sqrt(m/63782)//m

-printf("the thickness and width is,%f m\n,%f m\n",t,2*t)

+
+//solution
+//given
+n=25
+d1=25//mm
+t1=18//mm
+tu=300//N/mm^2
+effm=0.95
+Cs=0.1
+ft=6//N/mm^2
+rho=7250//kg/m^3
+D=1.4//m
+R=0.7//m
+As=%pi*d1*t1//area of plate sheared
+Fs=As*tu//N
+Eps=0.5*Fs*t1//N-mm//energy req per stroke
+Epm=Eps*n/1000//N-m
+P=Epm/(60*effm)//W
+printf("power req is,%f W\n",P)
+//let t be thickness and b be width of rim
+//b=2t
+//A=b*t=2*t^2
+dE=(9/10)*Eps//N-m
+//let m be mass of wheel
+Erim=0.95*dE//N-m
+N=9*25//rpm
+w=2*%pi*N/60//rad/s
+m=Erim/(R^2*w^2*Cs)//kg
+//m=A*2*%pi*R*rho=63782*t^2
+t=sqrt(m/63782)//m
+printf("the thickness and width is,%f m\n,%f m\n",t,2*t)