initial commit / add all books

12 files changed, 407 insertions, 0 deletions

diff --git a/278/CH13/EX13.1/ex_13_1.sce b/278/CH13/EX13.1/ex_13_1.sce
new file mode 100755
index 000000000..33f15d658
--- /dev/null
+++ b/278/CH13/EX13.1/ex_13_1.sce
@@ -0,0 +1,24 @@
+//design rectanglar key

+clc

+//solution

+//given

+d=50//mm

+t=42//N/mm^2

+fc=70//N/mm^2

+//from tab 13.1,using d=50mm 

+w=16//mm

+T=10//mm

+//let l be length of key

+//Tq1=l*w*t*d/2=16800*l1//N-mm//torque

+pi=3.14

+Tq=(pi/16)*t*d^3//

+printf("the torsional moment acting is,%f N-mm\n",Tq)

+l1=Tq/16800//mm

+//Tq2=l2*T*fc*d/4=8750*l2

+l2=Tq/8750//mm

+printf("since l2 >l1,taking large value l2=l ,length of key\n")

+//l=l2//mm

+printf("the length of key is,%f mm\n",l2)

+printf("the length oif key is,say 120 mm\n")

+l=120//mm

+

diff --git a/278/CH13/EX13.10/ex_13_10.sce b/278/CH13/EX13.10/ex_13_10.sce
new file mode 100755
index 000000000..848e75729
--- /dev/null
+++ b/278/CH13/EX13.10/ex_13_10.sce
@@ -0,0 +1,46 @@
+// find dia of bolts ,thickness of flanges and key dimensions

+clc

+//solution

+//given

+d=35//mm

+n=6

+D1=125//mm

+T=800*10^3//N-mm

+N=350//rpm

+ts=63//N/mm^2

+tb=56//N/mm^2

+tc=10//N/mm^2

+tk=46//N/mm^2

+//let d1 be nominal dia

+//T=(%pi/4)*d1^2*tb*n*D1/2

+//d1=(T/16495)^(0.5)//mm

+printf("the dia of bolt is,%f mm\n",(T/16495)^(0.5))

+printf("the dia of bolt is say d1=8mm\n")

+d1=8//mm

+D=2*d

+//let tf be flange thickness

+//T=((%pi*D^2)/2)*tc*tf

+//tf=T/[((%pi*D^2)/2)*tc]

+printf("the flange thickness is,%f mm\n",T/[((%pi*D^2)/2)*tc])

+printf("the flange thicknes is say tf=12mm\n")

+tf=12//mm

+//from table 13.1,we find that shaft of dia 70mm diametr

+w=12//width of diametre

+t1=8//mm//thickness of key

+l=1.5*d//mm

+L=1.5*d//mm

+//let tk1 be induced stress

+//T=l*w*tk1*d/2

+tk1=T/11025//N/mm^2

+printf("the induces stress is,%f N/mm^2\n",tk1)

+printf("since induced stress is gerater then safe limits of 46 N/mm^2,therfore,we use limiting case by putting tk1=tk=46\n")

+//l1=T/(12*46*17.5)//mm

+printf("the length of key is,%f mm\n",T/(12*46*17.5))

+printf("the length of key is say 85mm\n")

+//L1=l1

+L1=85//mm

+printf("the legth of hub is,%f mm\n",L1)

+P=2*%pi*N*T/60//W

+printf("the power rtransmitted is,%f W\n",P)

+

+

diff --git a/278/CH13/EX13.11/ex_13_11.sce b/278/CH13/EX13.11/ex_13_11.sce
new file mode 100755
index 000000000..3c16ff96c
--- /dev/null
+++ b/278/CH13/EX13.11/ex_13_11.sce
@@ -0,0 +1,27 @@
+//find dia of shaft,dia of bolts,thickness of flange and dia of flange

+clc

+//solution

+//given

+P=3*10^6//W

+N=100//rpm

+tb=60//N/mm^2

+ts=60//N/mm^2

+n=8

+//D1=1.6*d

+//let d be dia of shaft

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

+//T=(%pi/16)*t*d^3=11.78*d^3

+//d=(T/11.78)^(1/3)//mm

+printf("the dia of shaft is,%f mm\n ",(T/11.78)^(1/3))

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

+d=300//mm

+//let d1 be nominal dia of bolts

+//T=(%pi/4)*d1^2*tb*n*D1/2

+//d1=(T/90490)^(0.5)//mm

+printf("the dia of bolt is,%f mm\n",(T/16495)^(0.5))

+printf("the dia of bolt is say d1=60 mm\n")

+d1=60//mm

+tf=d/3//mm

+printf("the flange thciness is,%f m\n",tf)

+D2=2.2*d//mm

+printf("the diameter of flange is,%f mm",D2)
\ No newline at end of file
diff --git a/278/CH13/EX13.13/ex_13_13.sce b/278/CH13/EX13.13/ex_13_13.sce
new file mode 100755
index 000000000..73b2b3114
--- /dev/null
+++ b/278/CH13/EX13.13/ex_13_13.sce
@@ -0,0 +1,15 @@
+//find dia of shaft and pins

+clc

+//solution

+//given

+T=5000*10^3//N-mm

+t=60//N/mm^2

+t1=28//N/mm^2

+//let d be dia

+//T=(%pi*t*d^3)/16

+d=(T/11.8)^(1/3)//mm

+printf("the dia of shaft is,%f mm\n",d)

+//let dp diA of pin

+//T=2*(%pi/4)*dp^2*t1*d

+dp=[T/(3300)]^0.5//mm

+printf("the dia of pin is,%f mm",dp)
\ No newline at end of file
diff --git a/278/CH13/EX13.2/ex_13_2.sce b/278/CH13/EX13.2/ex_13_2.sce
new file mode 100755
index 000000000..b757b2369
--- /dev/null
+++ b/278/CH13/EX13.2/ex_13_2.sce
@@ -0,0 +1,24 @@
+//find length of key

+clc

+//solution

+//given

+d=45//mm

+fyts=400//N/mm^2'//for shaft

+w=14//mm

+t=9//mm

+fytk=340//N/mm^2//for key

+Fs=2

+pi=3.14

+//let l be length of key

+tmaxs=fyts/(2*Fs)//N/mm^2

+tmaxk=fytk/(2*Fs)//N/mm^2

+tmax=(pi/16)*tmaxs*d^3//N-mm

+//tmax=l*w*tmaxk*d/2

+l1=(tmax*2)/(w*tmaxk*d)//

+printf("the length of key(l1) is,%f mm\n",l1)

+//tmax=l2*t*fytk*d/4=17213*l2

+l2=tmax/17213//mm

+printf("te length of key(l2) is,%f mm\n",l2)

+printf("since l2 >l1,taking large value l2=l ,length of key\n")

+l=103.89//mm

+printf("the length of key(l) is,%f mm\n",l)
\ No newline at end of file
diff --git a/278/CH13/EX13.3/ex_13_3.sce b/278/CH13/EX13.3/ex_13_3.sce
new file mode 100755
index 000000000..5b26dcea4
--- /dev/null
+++ b/278/CH13/EX13.3/ex_13_3.sce
@@ -0,0 +1,24 @@
+//desing keyway in motr shaft

+clc

+//soltuion

+//given

+P=15*10^3//W

+N=960//rpm

+d=40//mm

+l=75//mm

+t=56//N/mm^2

+fc=112//N/mm^2

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

+//let w be width of key

+//Tq=l*w*t*d/2=84000*w

+//w=Tq/84000//mm

+printf("the width of keywy is,%f mm\n",Tq/84000)

+printf("this width is too small,it should be atleats w=d/4,so taking w=d/4 as min widht we get w=d/4=10//mm\n")

+w=10//mm

+T=10//mm//thickness =width=square key

+h=T/2

+e=1-(0.2*(w/d))-1.1*(h/d)

+P1=(pi/16)*t*d^3*e//N//strength of shaft

+Ps=l*w*t*d/2//N//shear strength of shaft

+x=Ps/P1//

+printf("the check value is,%f",x)
\ No newline at end of file
diff --git a/278/CH13/EX13.4/ex_13_4.sce b/278/CH13/EX13.4/ex_13_4.sce
new file mode 100755
index 000000000..f9dd5df8d
--- /dev/null
+++ b/278/CH13/EX13.4/ex_13_4.sce
@@ -0,0 +1,31 @@
+//design muff coupling

+clc

+//solution

+//given

+P=40000//W

+N=350//rpm

+ts=40//N/mm^2

+fcs=80//N/mm^2

+tc=15//N/mm^2

+//let d be dia

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

+//Tq=(%pi/16)*ts*d^3=7.86*d^3

+//d=(Tq/7.86)^(1/3)//mm

+printf("the dia of shaft is,%f mm\n ",(Tq/7.86)^(1/3))

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

+d=55//mm

+D=2*d + 13//mm

+printf("the outer dia of muff is,%f mm\n",D)

+L=3.5*d//mm

+printf("the length of muff is,%f mm\n",L)

+//let tc be induced shear stress

+//T=(%pi/16)*tc*[(D^4-d^4)/D] =370*10^3*fc

+fc=Tq/370000//N/mm^2

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

+//from table 13.1,we find that shaft of dia 55mm diametr

+w=18//width of diametre

+t1=w//mm//thicknessof key

+l=L/2//mm//length of key

+printf("the widht of key is,%f mm\n ",w)

+printf("the thickness of key is,%f mm\n",t1)

+printf("the length of key is,%f mm\n",l)

diff --git a/278/CH13/EX13.5/ex_13_5.sce b/278/CH13/EX13.5/ex_13_5.sce
new file mode 100755
index 000000000..c04538d8a
--- /dev/null
+++ b/278/CH13/EX13.5/ex_13_5.sce
@@ -0,0 +1,31 @@
+//design a clamp coupling

+clc

+//solution

+//given

+P=30000//W

+N=100//rpm

+t=40//N/mm^2

+n=6

+ft=70//N/mm^2

+u=0.3

+//let d be dia

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

+//Tq=(%pi/16)*t*d^3=7.86*d^3

+//d=(Tq/7.86)^(1/3)//mm

+printf("the dia of shaft is,%f mm\n ",(Tq/7.86)^(1/3))

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

+d=75//mm

+D=2*d + 13//mm

+printf("the outer dia of muff is,%f mm\n",D)

+L=3.5*d//mm

+printf("the length of muff is,%f mm\n",L)

+//from table 13.1,we find that shaft of dia 75mm diametr

+w=22//width of diametre

+t1=14//mm//thickness of key

+//let db be the root dia

+//'Tq=(%pi^2)*u*db^2*n*ft*d

+//Tq=5830*db^2

+db=sqrt(Tq/5830)

+printf("the widht of key is,%f mm\n ",w)

+printf("the thickness of key is,%f mm\n",t1)

+printf("the root dia is,%f mm\n",db)
\ No newline at end of file
diff --git a/278/CH13/EX13.6/ex_13_6.sce b/278/CH13/EX13.6/ex_13_6.sce
new file mode 100755
index 000000000..d3921993c
--- /dev/null
+++ b/278/CH13/EX13.6/ex_13_6.sce
@@ -0,0 +1,46 @@
+//design cast iron

+clc

+//soltuion

+//given

+P=15000//W

+N=900//rpm

+K=1.35//service factor

+//ts=tb=tk=40//N/mm^2

+ts=40//N/mm^2

+tb=40//N/mm^2

+tk=40//N/mm^2

+//fcb=fck

+fck=80//N/mm^2

+fcb=80//N/mm^2

+tc=8//N/mm^2

+//let d be dia

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

+Tqmax=Tq*1.35//N-mm

+//Tq=(%pi/16)*t*d^3=7.86*d^3

+//d=(Tq/7.86)^(1/3)//mm

+printf("the dia of shaft is,%f mm\n ",(Tqmax/7.86)^(1/3))

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

+d=35//mm

+D=2*d//mm

+printf("the outer dia of muff is,%f mm\n",D)

+L=1.5*d//mm

+printf("the length of muff is,%f mm\n",L)

+//from table 13.1,we find that shaft of dia 75mm diametr

+w=12//width of diametre

+t1=12//mm//thickness of key

+//let tc be induced shear stress

+//Tqmax=(%pi/16)*tc*[(D^4-d^4)/D] =63147*fc

+fc=Tqmax/63147//N/mm^2

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

+tf=0.5*d//mm

+printf("the thicknes of flange is,%f mm\n",tf)

+//let d1 be nominal dia of bolts

+n=3

+D=3*d

+//Tqmax=(%pi/4)*d1^2*tb*n*D1/2

+d1=sqrt(Tqmax/4950)//mm

+D2=4*d//mm

+tp=0.25*d

+printf("the nominal dia of bolts is,%f mm\n",d1)

+printf("the outer dia of flange is,%f mm\n",D2)

+printf("the thickness of protective circumferencial flange is,%fmm",tp)
\ No newline at end of file
diff --git a/278/CH13/EX13.7/ex_13_7.sce b/278/CH13/EX13.7/ex_13_7.sce
new file mode 100755
index 000000000..6c80c1f92
--- /dev/null
+++ b/278/CH13/EX13.7/ex_13_7.sce
@@ -0,0 +1,45 @@
+//dsign flange

+clc

+//soltuion

+//given

+P=15000//W

+N=200//rpm

+ts=40//N/mm^2

+tb=30//N/mm^2

+//fck=2*tk

+tc=14//N/mm^2

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

+Tmax=1.25*Tmean//N/mm^2

+//Tmax=(%pi/16)*t*d^3=7.86*d^3

+//d=(Tq/7.86)^(1/3)//mm

+printf("the dia of shaft is,%f mm\n ",(Tmax/7.86)^(1/3))

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

+d=50//mm

+D=2*d//mm

+printf("the outer dia of muff is,%f mm\n",D)

+L=1.5*d//mm

+printf("the length of muff is,%f mm\n",L)

+//from table 13.1,we find that shaft of dia 75mm diametr

+w=16//width of diametre

+t1=16//mm//thickness of key

+l=75//mm

+//let tc be induced shear stress

+//Tmax=(%pi/16)*tc*[(D^4-d^4)/D] =184100*fc

+fc=Tmax/184100//N/mm^2

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

+//let tk be induced stress on key

+//Tmax=l*w*l*d*tk*0.5=30000*tk

+tk=Tmax/30000//N/mm^2

+printf("the induced stress in key is,%f mm\n",tk)

+tf=0.5*d//mm

+printf("the thicknes of flange is,%f mm\n",tf)

+//let d1 be nominal dia of bolts

+n=4

+D1=3*d//mm

+//Tqmax=(%pi/4)*d1^2*tb*n*D1/2

+d1=sqrt(Tmax/7070)//mm

+D2=4*d//mm

+tp=0.25*d

+printf("the nominal dia of bolts is,%f mm\n",d1)

+printf("the outer dia of flange is,%f mm\n",D2)

+printf("the thickness of protective circumferencial flange is,%fmm",tp)

diff --git a/278/CH13/EX13.8/ex_13_8.sce b/278/CH13/EX13.8/ex_13_8.sce
new file mode 100755
index 000000000..877d2410c
--- /dev/null
+++ b/278/CH13/EX13.8/ex_13_8.sce
@@ -0,0 +1,48 @@
+//desing flange

+clc

+//soltuion

+//given

+P=90*10^3//W

+N=250//rpm

+ts=40//N/mm^2

+q=0.0175

+tb=30//N/mm^2

+//let d be dia

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

+//T/J=ts/(d/2)

+//T/(%pi*d^4/32)=ts/(d/2)//considering strength iof shaft

+d1=(35*10^6/80)^(1/3)//mm

+//considering rigidity

+//T/J=(C*q/l)

+//T/(%pi*d^4/32)=84000*0.0175/(20*d)

+d2=(35*10^6/73.5)^(1/3)//mm

+printf("the value of d1 and d2 is,%f mm\n,%f mm\n",d1,d2)

+printf("taking larger value into consideration i,e d2,we take d=d2=80mm\n")

+d=80//mm

+D=2*d//mm

+printf("the outer dia of muff is,%f mm\n",D)

+L=1.5*d//mm

+printf("the length of muff is,%f mm\n",L)

+//from table 13.1,we find that shaft of dia 70mm diametr

+w=25//width of diametre

+t1=14//mm//thickness of key

+l=120//mm

+//let tc be inducesd stress

+//Tmax=(%pi/16)*tc*[(D^4-d^4)/D]

+tc=T/{(%pi/16)*[(D^4-d^4)/D]}

+printf("the induce stres is,%f N/mm^2\n",tc)

+printf("the induced shear stress is less then 14,hence it is safe design\n ")

+tf=0.5*d//mm

+printf("the thicknes of flange is,%f mm\n",tf)

+//let d1 be nominal dia of bolts

+n=4

+D1=3*d//mm

+//Tqmax=(%pi/4)*d1^2*tb*n*D1/2

+d1=sqrt(T/11311)//mm

+D2=4*d//mm

+tp=0.25*d

+printf("the nominal dia of bolts is,%f mm\n",d1)

+printf("the outer dia of flange is,%f mm\n",D2)

+printf("the thickness of protective circumferencial flange is,%fmm",tp)

+

+

diff --git a/278/CH13/EX13.9/ex_13_9.sce b/278/CH13/EX13.9/ex_13_9.sce
new file mode 100755
index 000000000..848e75729
--- /dev/null
+++ b/278/CH13/EX13.9/ex_13_9.sce
@@ -0,0 +1,46 @@
+// find dia of bolts ,thickness of flanges and key dimensions

+clc

+//solution

+//given

+d=35//mm

+n=6

+D1=125//mm

+T=800*10^3//N-mm

+N=350//rpm

+ts=63//N/mm^2

+tb=56//N/mm^2

+tc=10//N/mm^2

+tk=46//N/mm^2

+//let d1 be nominal dia

+//T=(%pi/4)*d1^2*tb*n*D1/2

+//d1=(T/16495)^(0.5)//mm

+printf("the dia of bolt is,%f mm\n",(T/16495)^(0.5))

+printf("the dia of bolt is say d1=8mm\n")

+d1=8//mm

+D=2*d

+//let tf be flange thickness

+//T=((%pi*D^2)/2)*tc*tf

+//tf=T/[((%pi*D^2)/2)*tc]

+printf("the flange thickness is,%f mm\n",T/[((%pi*D^2)/2)*tc])

+printf("the flange thicknes is say tf=12mm\n")

+tf=12//mm

+//from table 13.1,we find that shaft of dia 70mm diametr

+w=12//width of diametre

+t1=8//mm//thickness of key

+l=1.5*d//mm

+L=1.5*d//mm

+//let tk1 be induced stress

+//T=l*w*tk1*d/2

+tk1=T/11025//N/mm^2

+printf("the induces stress is,%f N/mm^2\n",tk1)

+printf("since induced stress is gerater then safe limits of 46 N/mm^2,therfore,we use limiting case by putting tk1=tk=46\n")

+//l1=T/(12*46*17.5)//mm

+printf("the length of key is,%f mm\n",T/(12*46*17.5))

+printf("the length of key is say 85mm\n")

+//L1=l1

+L1=85//mm

+printf("the legth of hub is,%f mm\n",L1)

+P=2*%pi*N*T/60//W

+printf("the power rtransmitted is,%f W\n",P)

+

+