diff options
Diffstat (limited to '278/CH12')
| -rwxr-xr-x | 278/CH12/EX12.1/ex_12_1.sce | 62 | ||||
| -rwxr-xr-x | 278/CH12/EX12.2/ex_12_2.sce | 46 | ||||
| -rwxr-xr-x | 278/CH12/EX12.3/ex_12_3.sce | 33 | ||||
| -rwxr-xr-x | 278/CH12/EX12.4/ex_12_4.sce | 50 | ||||
| -rwxr-xr-x | 278/CH12/EX12.5/ex_12_6.sce | 29 | ||||
| -rwxr-xr-x | 278/CH12/EX12.6/ex_12_6.sce | 52 | ||||
| -rwxr-xr-x | 278/CH12/EX12.7/ex_12_7.sce | 52 | ||||
| -rwxr-xr-x | 278/CH12/EX12.8/ex_12_8.sce | 36 | ||||
| -rwxr-xr-x | 278/CH12/EX12.9/ex_12_9.sce | 46 |
9 files changed, 406 insertions, 0 deletions
diff --git a/278/CH12/EX12.1/ex_12_1.sce b/278/CH12/EX12.1/ex_12_1.sce new file mode 100755 index 000000000..b625e7ceb --- /dev/null +++ b/278/CH12/EX12.1/ex_12_1.sce @@ -0,0 +1,62 @@ +//desing cotter joint
+clc
+//solution
+//given
+P=30*10^3//N
+ft=50//N/mm^2
+t=35//N/mm^2
+fc=90//N/mm^2//crushing stress
+//let d be diameter of rods
+pi=3.14
+//P=A*ft
+//P=(p1/4)*d^2*ft
+d=sqrt((P*4)/(pi*ft))
+printf("the dia nof cotter jont is,%f mm\n",d)
+//let d2 be dia of spigot and t11 be thickness
+//t11=d2/4
+//P=[{(pi/4)*d2^2}-(d2*t)]*ft=26.8*d2^2
+d2=sqrt(P/26.8)//mm
+t11=d2/4//mm
+//let fc1 be induced crushing stress
+fc1=P/(d2*t11)//N/mm^2
+printf("the induced crushing stress is,%f N/mm^2\n ",fc1)
+printf("since induced stress is greater then 90 N/mm^2,therefore d2 an t are not safe limits,let us find d2 and t by substituitn fc1=90\n")
+//let d2=d21 and t=t1
+//P=d21*t1*fc
+//P=22.5*d2^2
+d21=sqrt(P/22.5)//mm
+t1=d21/4//mm
+printf("the safe values od d2 and t are ,%f mm\n,%f mm\n",d21,t1)
+//let b be width of cotter
+//P=2*b*t1*t=(2*9.12*35)*b
+b=P/(2*9.12*35)//mm
+printf("the width of cotter is,%f mm\n ",b)
+//let d4 be dia of socket collar
+//P=(d4-d2)*t1*fc
+d4=d21+(P/(t1*fc))//mm
+printf("the diametr of socket collar is,%f mm\n",d4)
+//let c be the thickness of socket collar
+//P=2*(d4-d2)*c*t
+c=P/(2*(d4-d21)*t)//mm
+printf("the thicknes of socket collar is,%f mm\n",c)
+//let a be distance from end of slot to end of the rod
+//P=2*a*d21*t
+a=P/(2*d21*t)//mm
+printf("distance from end of slot to end of the rod is,%f mm\n",a)
+
+//let d3 be dia of spigot collar
+//P=(pi/4)*[d3^2-d21^2]*fc
+//d3^2=d21^2 + (P*4)/(90*pi)
+d3=sqrt(d21^2 + (P*4)/(90*pi))//mm
+printf("dia of spigot collar is,%f mm\n",d3)
+//let T1 be thickness of spigot collar
+//P=pi*d21*T1*t
+T1=P/(pi*d21*t)//
+printf("thickness of spigot collar is,%f mm\n",T1)
+printf("let thickness of spigot collar be T1=8mm=T12")
+//let l be lengt of cotter
+T12=8//mm
+printf("the thicness of spigot colar is,%f mm\n",T12)
+l=4*d//mm
+e=1.2*d//mm
+printf("the length of cotter and e is,%f mm\n,%f mm\n",l,e)
\ No newline at end of file diff --git a/278/CH12/EX12.2/ex_12_2.sce b/278/CH12/EX12.2/ex_12_2.sce new file mode 100755 index 000000000..28bca9996 --- /dev/null +++ b/278/CH12/EX12.2/ex_12_2.sce @@ -0,0 +1,46 @@ +//dsing sleeve and cotter joint
+clc
+//solution
+//given
+P=60*10^3//N
+ft=60//N/mm^2
+t=70//N/mm^2
+fc=125//N/mm^2
+pi=3.14
+//let d be diameter of rods
+//P=A*ft
+//P=(p1/4)*d^2*ft
+printf("the dia of cotter jont is,%f mm\n",sqrt((P*4)/(pi*ft)))
+printf("the standard dia of cotter jont is d=26mm\n")
+d=36//mm
+//let d2 be dia of spigot and t11 be thickness
+//t11=d2/4
+//P=[{(pi/4)*d2^2}-(d2*t)]*ft=32.13*d2^2
+//d2=sqrt(P/32.13)//mm
+//t11=d2/4//mm
+printf("the dia d2 is,%f mm\n",sqrt(P/32.13))//mm)
+printf("the dia d2 is 44mm\n")
+d2=44//mm
+printf("the thickness is ,%f mm\n",d2/4)
+printf("the thckness is,11mm\n")
+t11=11//mm
+//let fc1 be induced crushing stress
+//fc1=P/(d2*t11)//N/mm^2
+printf("the value of d2 is,%f mm\n",d2)
+printf("the induced crushing stress is,%f N/mm^2\n ",P/(d2*t11))
+printf("the induced crushing stress is say 124 N/mm^2 whihc is less then 125,hence d2 and t11 is correct\n")
+//let b be width of cotter
+//P=2*b*t11*t=(2*11*70)*b
+//b=P/(2*11*70)//mm
+printf("the width of cotter is,%f mm\n ",P/(2*11*70))
+printf("the width of cotter is say 40mm\n")
+//let a be distance from end of slot to end of the rod
+//P=2*a*d21*t
+//a=P/(2*d2*t)//mm
+printf("distance from end of slot to end of the rod is,%f mm\n",P/(2*d2*t))
+printf("distance from end of slot to end of the rod is say 10mm")
+//let c be distance of rod end from its end to cottre hole
+//P=2*(d1-d2)*c*t=2240*c
+c=P/(2240)//mm
+printf("istance of rod end from its end to cottre hole is,%f mm",c)
+
diff --git a/278/CH12/EX12.3/ex_12_3.sce b/278/CH12/EX12.3/ex_12_3.sce new file mode 100755 index 000000000..35a9abcf0 --- /dev/null +++ b/278/CH12/EX12.3/ex_12_3.sce @@ -0,0 +1,33 @@ +//desing joint
+clc
+//solution
+//given
+P=50*10^3//N
+d=75//mm
+ft=25//N/mm^2
+t=20//N/mm^2
+//let B1 be the width of strap
+//B1=d
+B1=75//mm
+//t11=B1/4//mm
+printf("the thickness is,%f mm\n",B1/4)
+printf("the thickness can be taken as 20mm\n ")
+t11=20//mm
+//let t1 be thickness of strap at thnner side
+//P=2*B1*t1*ft//N
+//t1=P/(2*B1*ft)//mm
+printf("the thickness of strap at thinner side is,%f mm\n ",P/(2*B1*ft))
+printf("the thickness can be takn as 15 mm\n")
+t1=15//mm
+//let t3 be thickness of strap at cotter
+//2*t3*(B1-t)=2*t1*B1
+//t3=(2*t1*B1)/(2*(B1-t))//mm
+printf("thickness of strap at cotter is,%f mm\n",(2*t1*B1)/(2*(B1-t)))
+printf("thickness of strap at cotter say 21mm\n")
+t3=21//mm
+//let B be total width of gib and cotter
+//P=2*B*t11*t
+//B=P/(2*t11*t)//mm
+printf("the total width of gib and cotter is,%f mm\n ",P/(2*t11*t))
+printf("the total width of gib and cotter is say 65mm")
+
diff --git a/278/CH12/EX12.4/ex_12_4.sce b/278/CH12/EX12.4/ex_12_4.sce new file mode 100755 index 000000000..2e359346b --- /dev/null +++ b/278/CH12/EX12.4/ex_12_4.sce @@ -0,0 +1,50 @@ +//desing gib and cottor joint
+clc
+//solution
+//given
+P=35*10^3//N
+ft=20//N/mm^2
+t=15//N/mm^2
+fc=50//N/mm^2
+//let x be side of square rod
+//P=x^2*ft//N
+//x=sqrt(P/ft)//mm
+printf("the side of square is,%f mm\n",sqrt(P/ft))
+printf("the side of square is,say x=42mm\n")
+//B1=x=42mm
+x=42//mm
+B1=42//mm//width of strap
+//let t1 be thickness
+//t1=B1/4//mm
+printf("the width of strap is ,%f mm\n",B1)
+printf("the thickness of cottar is,%f mm\n",B1/4)
+printf("the thickness of cottar is,say 12mm\n")
+t1=12//mm
+//let B be width of gib and cotter
+//P=2*B*t*t1=360*B
+//B=P/360//mm
+printf("the width of gib and cotter is,%f mm ",P/360)
+printf("The width of gib and cotter is ,say100mm\n")
+B=100//mm
+b1=0.55*B//mm//width of gib
+b=0.45*B//mm//width of cotter
+printf("the width of cotter and gib is,%f mm\n,%f mm\n respctively",b,b1)
+//let t2 be thickness of strap
+//P=2*((x*t2)-(t2*t1))*ft=1200*t2
+//t2=P/1200//mm
+printf("the thickness of strap is,%f mm\n",P/1200)
+printf("the thickness of strap is,Say 30mm\n")
+t2=30//mm
+//P=2*t2*t*fc1=720*fc1
+fc1=P/720//N/mm^2
+printf("the induced crushing stress is,%f N/mm^2\n ",fc1)
+printf("since induced stress is less then safe limits\n")
+//let l1 be length of rod
+//P=2*l1*x*t
+l1=P/(2*x*t)//mm
+printf("the value of be length of rod is,%f mm\n",l1)
+//let l2 be length of rod in double shear
+//P=2*2*l2*t2*t=1800*l2
+l2=P/1800//mm
+printf("the length of rod in double shear is,%f mm\n",l2)
+
diff --git a/278/CH12/EX12.5/ex_12_6.sce b/278/CH12/EX12.5/ex_12_6.sce new file mode 100755 index 000000000..971065b53 --- /dev/null +++ b/278/CH12/EX12.5/ex_12_6.sce @@ -0,0 +1,29 @@ +//design cottered foundation bolts
+clc
+//solution
+//given
+P=50*10^3//N
+ft=80//N/mm^2
+t=50//N/mm^2
+fc=100//N/mm^2
+pi=3.14
+//P=(pi/4)*d^2*ft=62.84*d^2
+//d=sqrt(P/62.84)//mm
+printf("the diameter of bolt is,%f mm\n",sqrt(P/62.84))
+printf("the diameter of bolt is,say 30mm\n")
+d=30//mm
+//let d1 be dia of enlarged end of bolt
+//t1 be thickness of cotter
+//t1=d1/4
+//P=[((pi/4)*d1^2)-(d1*t1)]*ft
+//P=42.84*d1^2
+//d1=sqrt(P/42.84)//mm
+printf("the dia of enlarged end of bolt is,%f mm\n ",sqrt(P/42.84))
+printf("the dia of enlarged end of bolt is,say 36mm\n")
+d1=36//mm
+t1=d1/4//mm
+printf("the thickness is,%f mm\n",t1)
+//let b width of cotter
+//P=2*b*t1*t==900*b
+b=P/(900)//mm
+printf("the width of cotter is,%f mm\n",b)
\ No newline at end of file diff --git a/278/CH12/EX12.6/ex_12_6.sce b/278/CH12/EX12.6/ex_12_6.sce new file mode 100755 index 000000000..0472b9bfc --- /dev/null +++ b/278/CH12/EX12.6/ex_12_6.sce @@ -0,0 +1,52 @@ +//design knuckle joint
+clc
+//solution
+//given
+P=150*10^3//N
+ft=75//N/mm^2
+t=60//N/mm^2
+fc=150//N/mm^2
+pi=3.14
+//let d be dia of rod
+//P=(pi/4)*d^2*ft=59*d^2
+//d=sqrt(P/59)//mm
+printf("the diameter of bolt is,%f mm\n",sqrt(P/59))
+printf("the diameter of bolt is,say 52mm\n")
+d=52//mm
+//d1=d=52//mm//dia of knuckle pin
+d1=52//mm
+d2=2*d//mm//dia of outer eye
+d3=1.5*d//mm//dia of knucle pin head and collar
+T=1.25*d//mm//thickness of single eye
+T1=0.75*d//thickness of fork
+T2=0.5*d//thickness of pin head
+//let t1 be shear stress acting
+//P=(pi/4)*2*d1^2*t1//
+t1=(P*4)/(2*pi*d1^2)//N//mm^2
+printf("the double shear acting is,%f N/mm^2\n",t1)
+printf("since the doblue shear acting is 35.3 which is less then 60,hence desing is safe\n")
+//let ft1 be failur stress
+//P=(d2-d1)*T*ft1
+ft1=P/((d2-d1)*T)//N/mm^2
+printf("the failure stress in tension acting is,%f N/mm^2\n",ft1)
+printf("since the failure stress in tension acting is 44.3 whihc is less then75,hence design is safe\n")
+//let t2 be shear stress in shearing
+//P=(d2-d1)*T*t2
+t2=P/((d2-d1)*T)//N/mm^2
+printf("the shear stress in shearing acting is,%f N/mm^2\n",t2)
+printf("since the shear stress in shearing acting is 44.3 whihc is less then 60,hence design is safe\n")
+//let fc1 be tension in crushing
+//P=d1*T*fc1//N
+fc1=P/(d1*T)//
+printf("the tension in crushing is,%f N/mm^2\n",fc1)
+//let ft2 forked end tension
+//P=(d2-d1)*2*T1*ft2
+ft2=P/((d2-d1)*2*T1)//
+printf("forked end tension si,%f N/mm^2\n",ft2)
+//let t3 be forked end shear
+//P=(d2-d1)*T*t3*2
+t3=P/((d2-d1)*T*2)//N/mm^2
+printf("forked end shear is,%f N/mm^2\n",t3)
+//let fc2 be stress forked end crushing
+fc2=P/(d1*T*2)//N/mm^2
+printf("the stress firked end crushing is,%f N/mm^2",fc2)
\ No newline at end of file diff --git a/278/CH12/EX12.7/ex_12_7.sce b/278/CH12/EX12.7/ex_12_7.sce new file mode 100755 index 000000000..0472b9bfc --- /dev/null +++ b/278/CH12/EX12.7/ex_12_7.sce @@ -0,0 +1,52 @@ +//design knuckle joint
+clc
+//solution
+//given
+P=150*10^3//N
+ft=75//N/mm^2
+t=60//N/mm^2
+fc=150//N/mm^2
+pi=3.14
+//let d be dia of rod
+//P=(pi/4)*d^2*ft=59*d^2
+//d=sqrt(P/59)//mm
+printf("the diameter of bolt is,%f mm\n",sqrt(P/59))
+printf("the diameter of bolt is,say 52mm\n")
+d=52//mm
+//d1=d=52//mm//dia of knuckle pin
+d1=52//mm
+d2=2*d//mm//dia of outer eye
+d3=1.5*d//mm//dia of knucle pin head and collar
+T=1.25*d//mm//thickness of single eye
+T1=0.75*d//thickness of fork
+T2=0.5*d//thickness of pin head
+//let t1 be shear stress acting
+//P=(pi/4)*2*d1^2*t1//
+t1=(P*4)/(2*pi*d1^2)//N//mm^2
+printf("the double shear acting is,%f N/mm^2\n",t1)
+printf("since the doblue shear acting is 35.3 which is less then 60,hence desing is safe\n")
+//let ft1 be failur stress
+//P=(d2-d1)*T*ft1
+ft1=P/((d2-d1)*T)//N/mm^2
+printf("the failure stress in tension acting is,%f N/mm^2\n",ft1)
+printf("since the failure stress in tension acting is 44.3 whihc is less then75,hence design is safe\n")
+//let t2 be shear stress in shearing
+//P=(d2-d1)*T*t2
+t2=P/((d2-d1)*T)//N/mm^2
+printf("the shear stress in shearing acting is,%f N/mm^2\n",t2)
+printf("since the shear stress in shearing acting is 44.3 whihc is less then 60,hence design is safe\n")
+//let fc1 be tension in crushing
+//P=d1*T*fc1//N
+fc1=P/(d1*T)//
+printf("the tension in crushing is,%f N/mm^2\n",fc1)
+//let ft2 forked end tension
+//P=(d2-d1)*2*T1*ft2
+ft2=P/((d2-d1)*2*T1)//
+printf("forked end tension si,%f N/mm^2\n",ft2)
+//let t3 be forked end shear
+//P=(d2-d1)*T*t3*2
+t3=P/((d2-d1)*T*2)//N/mm^2
+printf("forked end shear is,%f N/mm^2\n",t3)
+//let fc2 be stress forked end crushing
+fc2=P/(d1*T*2)//N/mm^2
+printf("the stress firked end crushing is,%f N/mm^2",fc2)
\ No newline at end of file diff --git a/278/CH12/EX12.8/ex_12_8.sce b/278/CH12/EX12.8/ex_12_8.sce new file mode 100755 index 000000000..8f46529d6 --- /dev/null +++ b/278/CH12/EX12.8/ex_12_8.sce @@ -0,0 +1,36 @@ +//design knucle joint
+clc
+//solution
+//given
+P=70*10^3//N
+ftur=420//N/mm^2//for rod//ultimate point stress
+ftup=510//N/mm^2//for pin
+tu=396//N/mm^2
+Fs=6
+ftr=ftur/Fs//N/mm^2//yeild
+t=tu/Fs//N/mm^2
+pi=3.14
+//let d be dia of rod
+//P=(pi/4)*d^2*ftr=55*d^2
+//d=sqrt(P/55)//mm
+printf("the diameter of bolt is,%f mm\n",sqrt(P/55))
+printf("the diameter of bolt is,say 36mm\n")
+d=36//mm
+//d1=d=36//mm//dia of knuckle pin
+d1=36//mm
+d2=2*d//mm//dia of outer eye
+d3=1.5*d//mm//dia of knucle pin head and collar
+T=1.25*d//mm//thickness of single eye
+T1=0.75*d//thickness of fork
+////let t1 be double shear stress acting
+//P=(pi/4)*2*d1^2*t1//
+t1=(P*4)/(2*pi*d1^2)//N//mm^2
+printf("the double shear acting is,%f N/mm^2\n",t1)
+//let ft1 be failur stress
+//P=(d2-d1)*T*ft1
+ft1=P/((d2-d1)*T)//N/mm^2
+printf("the failure stress in tension acting is,%f N/mm^2\n",ft1)
+//let ft2 forked end tension
+//P=(d2-d1)*2*T1*ft2
+ft2=P/((d2-d1)*2*T1)//
+printf("forked end tension si,%f N/mm^2\n",ft2)
\ No newline at end of file diff --git a/278/CH12/EX12.9/ex_12_9.sce b/278/CH12/EX12.9/ex_12_9.sce new file mode 100755 index 000000000..3ab4e8754 --- /dev/null +++ b/278/CH12/EX12.9/ex_12_9.sce @@ -0,0 +1,46 @@ +//design adjustable screwed joint
+clc
+//solution
+//given
+P=50*10^3//N
+ft=75//N/mm^2
+t=37.5//N/mm^2
+pi=3.14
+Pd=1.3*P//N//load for threaded section
+//let d be dia and dc be core dia
+//Pd=(pi/4)*dc^2*ft
+//dc=sqrt((4*Pd)/(pi*ft))//mm
+printf("the core dia is,%f mm\n",sqrt((4*Pd)/(pi*ft)))
+printf("the standard core dai using table 11.1 is 34.093mm\n")
+dc=34.093//mm
+//corrresponding dia d =39
+d=39//mm
+printf("the dia of rod is,%f mm\n",d)
+//let l be length of coupler nut
+//Pd=pi*dc*l*t
+//l=P/(pi*dc*t)//mm
+printf("the length of coupler nut is,%f mm\n",P/(pi*dc*t))
+x1=d//mm
+x2=1.25*d//mm
+printf("the upper and lower limit of lkength are,%f mm\n,%f mm\n",x1,x2)
+printf("taking l=x1=d into calculation\n")
+l=d//mm
+n=1/4//mm
+//Pd=(pi/4)*[d^2-dc^2]*n*l*fc=2750*fc
+fc=(Pd/[(pi/4)*[d^2-dc^2]*n*l])
+printf("the crushing load is,%f N/mm^2\n",fc)
+//let D be outer dia
+//P=(pi/4)*(D^2-d^2)*ft
+D=[{(P*4)/(pi*ft)}+d^2]^0.5//mm
+printf("the outer dai is,%f mm\n",D)
+//let D1 and D2 be outer and inner dia of coupler
+D1=d+6//mm
+D2=[{(P*4)/(pi*ft)}+D1^2]^0.5//mm
+printf("the outer and inner dia are,%f mm\n,%f mm\n",D1,D2)
+//let L be length of coupler
+L=6*d//mm
+printf("the length of coupler is,%f mm\n",L)
+T1=0.75*d//mm
+printf("the thickness of coupler is,%f mm\n ",t1)
+T2=0.5*d//mm
+printf("the thickness of coupler nut is,%f mm\n",T2)
|