initial commit / add all books

15 files changed, 436 insertions, 0 deletions

diff --git a/278/CH25/EX25.1/ex_25_1.sce b/278/CH25/EX25.1/ex_25_1.sce
new file mode 100755
index 000000000..fcc21c918
--- /dev/null
+++ b/278/CH25/EX25.1/ex_25_1.sce
@@ -0,0 +1,27 @@
+//find..

+clc

+//solution

+//given

+m=1200//kg

+s=1/5

+v=20//m/s

+h=50//m

+d=600//mm

+r=0.300//m

+mb=20//kg

+c=520//J/kg/dec C

+Ek=(0.5)*m*v^2//N-m

+g=9.81//m/s^2

+Ep=m*g*h*s//N-m

+E=Ep+Ek

+Ft=E/50//N

+Tb=Ft*r//N-m

+printf("torque applied is,%f N-m\n",Tb)

+//let dt be average temp rise 

+Hg=E

+dt=Hg/(mb*c)//deg celcius

+printf("average temperature rise is,%f deg celcius\n",dt)

+//et u be coefficient of friction

+Rn=m*g

+u=Ft/(Rn)//

+printf("min coefficient of friction is,%f ",u)

diff --git a/278/CH25/EX25.10/ex_25_10.sce b/278/CH25/EX25.10/ex_25_10.sce
new file mode 100755
index 000000000..0947d1403
--- /dev/null
+++ b/278/CH25/EX25.10/ex_25_10.sce
@@ -0,0 +1,30 @@
+//find..

+clc

+//solution

+//given

+//ref fig 25.21 and 25.22

+q=3.93//rad

+d=350//mm

+r=175//mm

+Tb=350*1000//N-mm

+u=0.3

+//let P1 be pull,cloackwise roration

+//log(T1/T2)=u*q

+//T1/T2=3.256  ...eq1

+//Tb=(T1-T2)*r=175(T1-T2)

+//T1-T2=2000//N.....eq2

+//from eq1 and eq2,we get

+T1=2886.5//N

+T2=886.5//N

+//taking moment abt O

+P1=(T2*150-T1*35)/500

+printf("pull req clockwise is,%f N\n",P1)

+//P2 ,anticlockwise

+P2=(T1*150-T2*35)/500//N

+printf("pull req in anticlockwise is,%f N\n",P2)

+//ref fig 25.23

+//find OA

+OB=35

+//self locking considered

+OA=T1*OB/T2//mm

+printf("value of OA is,%f mm\n",OA)
\ No newline at end of file
diff --git a/278/CH25/EX25.11/ex_25_11.sce b/278/CH25/EX25.11/ex_25_11.sce
new file mode 100755
index 000000000..6af92c3e6
--- /dev/null
+++ b/278/CH25/EX25.11/ex_25_11.sce
@@ -0,0 +1,20 @@
+//find..

+clc

+//solution

+//given

+d=600//mm

+r=0.300//mm

+q=4.2//rad

+t=5//mm

+w=100//mm

+u=0.3

+ft=50//N/mm^2

+//let P be least force req

+//log(T1/T2)=u*q

+//T1/T2=3.53  ...eq1

+T1=ft*t*w

+T2=T1/3.53

+P=(T2*150-T1*75)/(600)//N

+printf("force req is ,%f N\n ",P)

+Tb=(T1-T2)*r//N-m

+printf("torque applied is,%f N-m\n",Tb)
\ No newline at end of file
diff --git a/278/CH25/EX25.12/ex_25_12.sce b/278/CH25/EX25.12/ex_25_12.sce
new file mode 100755
index 000000000..375090567
--- /dev/null
+++ b/278/CH25/EX25.12/ex_25_12.sce
@@ -0,0 +1,30 @@
+//find..

+clc

+//solution

+//given

+P=220//N

+u=0.4

+q=%pi

+d=150//mm

+r=0.075//m

+//let T1 be max force 

+//T2 be min force

+Tb=450//N-m

+//Tb=(T1-T2)*r

+T1=(T2+6000)//N

+//taking mont abt O

+//220*200+T1*50=T2*100

+T2=[(220*200)+(300000)]/50//N

+T1=6000+T2//N

+printf("max and min force is,%f N\n,%f N\n",T1,T2)

+//ref fig 25.25,26,27

+//log(T11/T22)=u*q

+//T11/T22=3.52  ...eq1

+//taking moment ABT O

+//220*200+T22*50=T11*100....eq2

+//from eq1 and eq 2,we egt

+T11=146//N

+T22=514//N

+Tb=(T11-T22)*r//N-m

+printf("max torque acting is %f N-m\n",Tb)

+

diff --git a/278/CH25/EX25.14/ex_25_14.sce b/278/CH25/EX25.14/ex_25_14.sce
new file mode 100755
index 000000000..c0cd89ec0
--- /dev/null
+++ b/278/CH25/EX25.14/ex_25_14.sce
@@ -0,0 +1,27 @@
+//find..

+clc

+//solution

+//given

+n=12

+q=(%pi/180)*7.5//rad

+t=0.075//m

+d=0.85//m

+P=225*1000//W

+N=240//rpm

+u=0.4

+//ref fig 25.35

+//(T1+T1b)*sin(q)=Rn....eq1

+//(T1-T1b)*cos(q)=uRn....eq2

+//(T1/T1b)=(1+utan(q))/(1-utan(q))//constant

+//similarly for other blocks

+//T1b/T2b=T2b/T3b..etc remain constant

+//T1/T2={(1+utan(q))/(1-utan(q))}^12=3.55//....eq1

+//let P1 be least force req at C

+D=d+2*t//m

+//(T1-T2)=P*60/(%pi*D*N)=17900//N....eq2

+//from eq1 and eq2

+T1=24920//N

+T2=7020//N

+P1=(T2*150-T1*30)/500//N

+printf("least force req is,%f N\n",P1)

+

diff --git a/278/CH25/EX25.15/ex_25_15.sce b/278/CH25/EX25.15/ex_25_15.sce
new file mode 100755
index 000000000..9ab6e4053
--- /dev/null
+++ b/278/CH25/EX25.15/ex_25_15.sce
@@ -0,0 +1,25 @@
+//find..

+clc

+//solution

+//given

+//ref fig 25.37,25,38,39

+b=35//mm

+u=0.4

+r=150//mm

+l=200//mm

+q1=(%pi/180)*25//rad

+q2=(%pi/180)*125//rad

+p1=0.4//N/mm^2

+Tbi=u*p1*b*r^2*(cos(q1)-cos(q2))//braking torque

+Tb=2*Tbi//total braking torque

+O1B=100

+OO1=O1B/cos(q1)//mm

+printf("OO1 is,%f mm\n",OO1)

+Mn=0.5*p1*b*r*OO1*[(q2-q1)+0.5*(sin(2*q1)-sin(2*q2))]

+printf("moment due to normal force is,%f N-mm\n",Mn)

+Mf=u*p1*b*r*[r*(cos(q1)-cos(q2))+((OO1/4)*(cos(2*q2)-cos(2*q1)))]

+printf("moment due to friction force is,%f N-mm\n",Mf)

+F1=(Mn-Mf)/l//N

+printf("F1 is,%f N\n",F1)

+F2=(Mn+Mf)/l//N

+printf("F2 is ,%f N\n",F2)

diff --git a/278/CH25/EX25.2/ex_25_2.sce b/278/CH25/EX25.2/ex_25_2.sce
new file mode 100755
index 000000000..8bd47e742
--- /dev/null
+++ b/278/CH25/EX25.2/ex_25_2.sce
@@ -0,0 +1,16 @@
+//find..

+clc

+//solution

+//given

+d=250//mm

+r=125//mm

+q=%pi/4

+P=700//N

+u=0.35

+ub=(4*u*sin(q))/(2*q+sin(2*q))//eqivalent coffint of friction

+//Ft=ub*Rn

+//taking moment abt O

+//700*(250+200)+Ft*50=Rn*200=Ft/ub*200=520*Ft

+Ft=700*(250+200)/470//N

+Tb=Ft*r

+printf("torque applied is,%f N-mm\n",Tb)
\ No newline at end of file
diff --git a/278/CH25/EX25.3/ex_25_3.sce b/278/CH25/EX25.3/ex_25_3.sce
new file mode 100755
index 000000000..396bead04
--- /dev/null
+++ b/278/CH25/EX25.3/ex_25_3.sce
@@ -0,0 +1,13 @@
+//find..

+clc

+//solution

+//given

+r=0.16//m

+u=0.3

+P=600//N

+//taking moment abt point A

+//Rn=Ft/u

+//Rn*350+Ft*(200-160)=600*(400+350)

+Ft=600*750/1207//N

+Tb=Ft*r//N-m

+printf("torque acting is,%f N-m\n",Tb)
\ No newline at end of file
diff --git a/278/CH25/EX25.4/ex_25_4.sce b/278/CH25/EX25.4/ex_25_4.sce
new file mode 100755
index 000000000..b46b8c51e
--- /dev/null
+++ b/278/CH25/EX25.4/ex_25_4.sce
@@ -0,0 +1,21 @@
+//find..

+clc

+//solution

+//given

+Tb=360*1000//N-mm

+d=300//mm

+r=0.15//m

+u=0.3

+//ref fig 25.8  and 25.9

+Ft=Tb/0.15/1000//N

+Rn=Ft/u

+//P*(600+200)+Ft*50=Rn*200

+P=(Rn*200-Ft*50)/800

+printf("force req in fig25.8 is,%f N\n",P)

+//P1*800=Rn*200+Ft*50

+P1=(Rn*200+Ft*50)/800

+printf("force req in fig 25.9 is,%f N\n",P1)

+//P*(600+200)+Ft*x-Rn*200=0

+//if P=0

+x=Rn*200/Ft//mm

+printf("location of fulcrum is,%f mm\n",x)
\ No newline at end of file
diff --git a/278/CH25/EX25.5/ex_25_5.sce b/278/CH25/EX25.5/ex_25_5.sce
new file mode 100755
index 000000000..92f32f94f
--- /dev/null
+++ b/278/CH25/EX25.5/ex_25_5.sce
@@ -0,0 +1,29 @@
+//find..

+clc

+//solution

+//given

+de=650//mm

+re=0.325//m

+d=1//m

+r=0.500//mm

+n=4

+q=(%pi/180)*22.5

+m=2000//kg

+v=2.5//m/s

+h=2.75//m

+u=0.2

+g=9.81//m/s^2

+pb=0.3//N/mm^2

+acc=v^2/(2*h)//m/s^2

+fc=m*acc//N

+W=(2000*9.81)+fc//N

+T=W*re//N-m

+Ftt=T/r//N

+Ft=Ftt/4//N

+Rn=Ft/0.2//N

+//Ab=w*(2*r*sin(q))=382.7*w//mm^2

+//pb=W/Ab

+w=Rn/(0.3*382.7)//mm

+printf("width of side is ,%f mm\n",w)

+TE=(0.5*m*v^2)+(m*g*h)

+printf("heat generated is,%f N-m\n",TE)

diff --git a/278/CH25/EX25.6/ex_25_6.sce b/278/CH25/EX25.6/ex_25_6.sce
new file mode 100755
index 000000000..41e0ac336
--- /dev/null
+++ b/278/CH25/EX25.6/ex_25_6.sce
@@ -0,0 +1,36 @@
+//find..

+clc

+//solution

+//given

+Tb=1400*1000//N-mm

+d=350//mm

+r=175//mm

+q=(1.75)/2//rad

+u=0.4

+pb=0.3//N/mm^2

+//ref fig 25.11

+ub=(4*u*sin(q))/(2*q+sin(2*q))//eqivalent coffint of friction

+//let S be spring force

+//taking moment abt fulcrum O1

+//Rn1=Ft1/u

+//S*450=Rn1*200 + Ft1*(175-40)

+//put Rn1=Ft1/ub...

+//S*450=579.4*Ft1

+//Ft1=S*450/579.4

+//taking moment abt O2

+//S*450+Ft2(175-40)=Rn2*200

+//Rn2=Ft2/ub

+//S*450+Ft2(175-40)=444.4Ft2

+//Ft2=S*450/309.4

+//Tb=(Ft1+Ft2)*r=390.25*S

+S=Tb/390.25//N

+printf("spring force is,%f N\n",S)

+//let b be width of brakes shoes

+//Ab=b*(2*r*sin(q))//mm

+Ft1=S*450/579.4

+Rn1=Ft1/ub

+Ft2=S*450/309.4

+Rn2=Ft2/ub

+//pb=Rn2/Ab

+b=Rn2/(pb*2*r*sin(q))

+printf("width of brake is,%f mm\n",b)
\ No newline at end of file
diff --git a/278/CH25/EX25.7/ex_25_7.sce b/278/CH25/EX25.7/ex_25_7.sce
new file mode 100755
index 000000000..cd898d9a8
--- /dev/null
+++ b/278/CH25/EX25.7/ex_25_7.sce
@@ -0,0 +1,49 @@
+//find..

+clc

+//solution

+//given

+Tb=3*10^6//N-mm

+d=1//m

+r=500//mm

+u=0.3

+q=0.61//rad

+ub=(4*u*sin(q))/(2*q+sin(2*q))//eqivalent coffint of friction

+//ref fig 25.12

+//let S be spring force

+//taking moment abt fulcrum O1

+//S*1250=Rn1*600 + Ft1*(500-250)

+//put Rn1=Ft1/ub...

+//S*1250=2125*Ft1

+//Ft1=S*1250/2125

+//taking moment abt O2

+//S*1250+Ft2(500-250)=Rn2*600

+//Rn2=Ft2/ub

+//S*1250+Ft2(500-250)=1625Ft2

+//Ft2=S*1250/1625

+//Tb=(Ft1+Ft2)*r=680*S

+S=Tb/680

+printf("spring force is,%f N\n",S)

+//let b be width of brakes shoes

+//Ab=b*(2*r*sin(q))//mm

+Ft1=S*1250/2125

+Rn1=Ft1/ub

+Ft2=S*1250/1625

+Rn2=Ft2/ub

+//pb=Rn2/Ab

+b=Rn2/(pb*2*r*sin(q))

+printf("width of brake is,%f mm\n",b)

+//dimension of coil

+//let D be mean dia and d be spring wire dia

+C=6

+t=500//N/mm^2

+n=8

+G=80000//N/mm^2

+K=(4*C-1)/(4*C-4)+(0.615/C)

+Ws=1.3*S

+d=((K*8*Ws*C)/(t*%pi))^(0.5)//mm

+D=6*d//mm

+printf("meand and spring wire dia is,%f mm\n,%f mm\n",D,d)

+dx=8*Ws*C^3*n/(G*d)//mm

+nb=n+2

+fL=nb*d + dx+0.15*dx

+printf("free length of spring is,%f mm\n",fL)
\ No newline at end of file
diff --git a/278/CH25/EX25.8/ex_25_8.sce b/278/CH25/EX25.8/ex_25_8.sce
new file mode 100755
index 000000000..1aa12956e
--- /dev/null
+++ b/278/CH25/EX25.8/ex_25_8.sce
@@ -0,0 +1,30 @@
+//find..

+clc

+//solution

+//given

+d=600//mm

+r=300//mm

+N=200//rpm

+u=0.25

+q=4.713//rad

+P=35000//W

+t=2.5//mm

+ft=50//N/mm^2

+//let P1 be pull

+//log(T1/T2)=u*q

+//T1/T2=3.25...eq1

+//let Tb be breaking torque

+//ref fig 25.16

+Tb=P*60/(2*%pi*N)*1000//N-mm

+//Tb=(T1-T2)*r=300(T1-T2)

+//T1-T2=5557//N.....eq2

+//from eq1 and eq2,we get

+T1=8027//N

+T2=2470//N

+//taking moment abt O

+//P1*750=T*OD=T2*62.5*1.414

+P1=T2*62.5*1.414/750//N

+printf("pull req is,%f N\n",P1)

+//let w be width 

+w=T1/(ft*t)

+printf("width is,%f mm\n",w)
\ No newline at end of file
diff --git a/278/CH25/EX25.9/ex_25_9.sce b/278/CH25/EX25.9/ex_25_9.sce
new file mode 100755
index 000000000..1644f74b9
--- /dev/null
+++ b/278/CH25/EX25.9/ex_25_9.sce
@@ -0,0 +1,63 @@
+//find..

+clc

+//solution

+//given

+d=450//mm

+r=225//mm

+Tb=225*1000//N-mm

+OB=100//mm

+u=0.25

+ft=70//N/mm^2

+fc=70//N/mm^2

+t=56//N/mm^2

+pb=8//N/mm^2

+//let P be operating force

+//ref fig 25.17

+q=4.713//rad

+//log(T1/T2)=u*q

+//T1/T2=3.25 ...eq1

+//let Tb be breaking torque

+//ref fig 25.17

+//(T1-T2)*r=Tb//N-mm

+//T1-T2=1000//N.....eq2

+//r=from eq1 and eq2

+T1=1444//N

+T2=444//N

+//taking moment abt O

+//P*500=T2*100

+P=T2*100/500

+//let ds be dia of shaft

+//ds=[Tb*16/(%pi*t)]^(1/3)

+printf("dia fo shaft is,%f mm\n",[Tb*16/(%pi*t)]^(1/3))

+printf("dia of shaft is,say 30mm\n")

+ds=30//mm

+printf("corrsponding to dia 30mm ,we get width(w) is equal to 10 mm,and thickness 8mm\n")

+//let l be length of key

+w=10//mm

+t1=8//mm

+l1=Tb/(w*t*ds/2)//mm

+printf("length on basis of shearing is,%f mm\n",l1)

+l2=Tb/(t1/2*fc*ds/2)//mm

+printf("length using crushing stress is,%f mm\n",l2)

+printf("taking larger of two l2,in to consideration\n")

+l=l2//mm

+//let t2 be thickness of lever

+//B be width,B=2t2

+//Z=(1/6)*t2*B^2=0.67*t2^3//mm^3

+M=P*500//N-mm

+//fc=M/Z

+//t2=(M/(fc*0.67))^(1/3)

+printf("thickness of lever is,%f mm\n",(M/(fc*0.67))^(1/3))

+printf("thicnkness is say 10mm\n")

+t2=10//mm

+printf("width of lever is,%f mm\n",2*t2)

+//design of pins

+//let d3 be dia and l3 be length of pins at O and B

+//d3=1.25*d3

+//T1=d3**l3*pb=10*d3^2

+d3=sqrt(T1/10)//mm

+printf("length and dia of pins is,%f mm\n,%f mm\n",1.25*d3,d3)

+ti=T1*4/(2*%pi*d3^2)//N/mm62

+printf("induced stress is,%f N/mm^2\n",ti)

+printf("since induced stress is within permissible limit ,hence design is safe\n")

+

diff --git a/278/CH25/EX26.5/ex_26_5.sce b/278/CH25/EX26.5/ex_26_5.sce
new file mode 100755
index 000000000..4b3b77641
--- /dev/null
+++ b/278/CH25/EX26.5/ex_26_5.sce
@@ -0,0 +1,20 @@
+//find

+clc

+//solution

+//given

+l=80//mm

+W=2800//N

+d=0.05//m

+c=2*0.05//mm

+Z=0.021

+Qd=80//J/s

+p=W/(l*d*1000)//N/mm^2

+//u=(33/10^8)*(Z*N/p)*(d*1000/c)+0.002

+//u=(495*N/10^8)+0.002

+//Qg=u*W*V

+V=%pi*d*N/60//m/s

+//Qg=((495*N/10^8)+0.002)*2800*[%pi*d*N/60]

+//N^2 +404 N-2.2*10^6=0

+//solving quadratic equation

+N=1295//rpm

+printf("rpm is, %f rpm\n ",N)