diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /278/CH10 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '278/CH10')
| -rwxr-xr-x | 278/CH10/EX10.1/ex_10_1.sce | 14 | ||||
| -rwxr-xr-x | 278/CH10/EX10.10/ex_10_10.sce | 20 | ||||
| -rwxr-xr-x | 278/CH10/EX10.11/ex_10_11.sce | 24 | ||||
| -rwxr-xr-x | 278/CH10/EX10.12/ex_10_12.sce | 17 | ||||
| -rwxr-xr-x | 278/CH10/EX10.13/ex_10_13.sce | 28 | ||||
| -rwxr-xr-x | 278/CH10/EX10.14/ex_10_13.sce | 28 | ||||
| -rwxr-xr-x | 278/CH10/EX10.15/ex_10_15.sce | 30 | ||||
| -rwxr-xr-x | 278/CH10/EX10.16/ex_10_16.sce | 25 | ||||
| -rwxr-xr-x | 278/CH10/EX10.2/ex_10_2.sce | 12 | ||||
| -rwxr-xr-x | 278/CH10/EX10.3/ex_10_3.sce | 10 | ||||
| -rwxr-xr-x | 278/CH10/EX10.4/ex_10_4.sce | 18 | ||||
| -rwxr-xr-x | 278/CH10/EX10.5/ex_10_5.sce | 27 | ||||
| -rwxr-xr-x | 278/CH10/EX10.6/ex_10_6.sce | 21 | ||||
| -rwxr-xr-x | 278/CH10/EX10.7/ex_10_6.sce | 21 | ||||
| -rwxr-xr-x | 278/CH10/EX10.8/ex_10_8.sce | 19 | ||||
| -rwxr-xr-x | 278/CH10/EX10.9/ex_10_9.sce | 25 |
16 files changed, 339 insertions, 0 deletions
diff --git a/278/CH10/EX10.1/ex_10_1.sce b/278/CH10/EX10.1/ex_10_1.sce new file mode 100755 index 000000000..0cae290a7 --- /dev/null +++ b/278/CH10/EX10.1/ex_10_1.sce @@ -0,0 +1,14 @@ +//find the length of weld
+clc
+//soltion
+//given
+b=100//mm//width
+t=10//mm//thickness
+P=80*10^3//N
+T=55//N/mm^2
+//let l and s be length of wled and size of weld
+//s=t
+s=10//mm
+//P=1.414*s*l*T
+l=P/(1.414*s*T)//mm
+printf("the length of weld is,%f mm",l+12.5)
\ No newline at end of file diff --git a/278/CH10/EX10.10/ex_10_10.sce b/278/CH10/EX10.10/ex_10_10.sce new file mode 100755 index 000000000..505bc826a --- /dev/null +++ b/278/CH10/EX10.10/ex_10_10.sce @@ -0,0 +1,20 @@ +//find max noraml and shear stress
+clc
+//solution
+//given
+//ref fig 10.25
+D=50//mm
+s=15//mm
+P=10000//N
+e=200//mm
+//let t is thickness of throat
+//A=t*pi*D
+pi=3.14
+A=0.707*s*pi*D//mm^2
+t=P/A//N/mm^2
+M=P*e//N-mm
+Z=pi*.707*s*D^2/4//mm^3
+fb=M/Z//N/mm^2
+ftmax=(0.5*fb)+(0.5*sqrt(fb^2+4*t^2))//N/mm^2
+Tmax=(0.5*sqrt(fb^2+4*t^2))//N/mm^2
+printf("the max normal stress and shear stress are,%f N/mm^2\n,%f N/mm^2 respectively",ftmax,Tmax)
diff --git a/278/CH10/EX10.11/ex_10_11.sce b/278/CH10/EX10.11/ex_10_11.sce new file mode 100755 index 000000000..8f106c8b3 --- /dev/null +++ b/278/CH10/EX10.11/ex_10_11.sce @@ -0,0 +1,24 @@ +//find size of welds
+clc
+//solution
+//given
+//ref fig 10.26
+P=25*10^3//N
+Tmax=75*10^3//N
+l=100//mm
+b=150//mm
+e=500//mm
+//let t is thickness of throat and s size
+//t=0.707*s
+//A=t*(2*b+2*l)=353.5*s//mm^2
+//t=P/A
+//t=70.72/s//N/mm^2
+M=P*e//N-mm
+//Z=t*[b*l+ b^2/3]=15907.5*s//mm^3
+//fb=M/Z//
+//fb=P*e/Z//
+//fb=785.8/s//N/mm^2
+//Tmax=0.5*[sqrt(fb^2+4*t^2)]
+//75=399.2/s
+s=399.2/75//mm
+printf("the sieze of weld is,%f mm",s)
\ No newline at end of file diff --git a/278/CH10/EX10.12/ex_10_12.sce b/278/CH10/EX10.12/ex_10_12.sce new file mode 100755 index 000000000..c20b99868 --- /dev/null +++ b/278/CH10/EX10.12/ex_10_12.sce @@ -0,0 +1,17 @@ +//cal size of weld at 1 and 2
+clc
+//solution
+//given
+//ref fig 10.27
+P=15*10^3//N
+Tmax=120//N/mm^2
+d=80//mm
+//let s be size of weld
+T=P*240//N-mm//torque
+//t=(2.83*T)/(pi*s*80^2)=506.6/s
+M=P*175//N-mm
+//fb=(5.66*M)/(pi*s*80^2)=(738.8/s)//N/mm^2
+//Tmax=0.5*(sqrt(fb^2+t^2))
+//Tmax=627/s
+s=627/Tmax//mm
+printf("the sieze of weld is,%f mm",s)
\ No newline at end of file diff --git a/278/CH10/EX10.13/ex_10_13.sce b/278/CH10/EX10.13/ex_10_13.sce new file mode 100755 index 000000000..50c4c0a16 --- /dev/null +++ b/278/CH10/EX10.13/ex_10_13.sce @@ -0,0 +1,28 @@ +////find size of weld
+clc
+//solution
+//given
+//ref fig 10.28
+P=15000//N
+T=80//N/mm^2
+b=80//mm
+l=50//mm
+e=125//mm
+//let s be size of weld
+//A=2*t*l//70.7*s//mm^2
+//T1=P/A//N/mm^2//direct stress
+//T1=212/s
+//J=t*l*(3*b^2+l^2)/6//mm^4
+//J=127850*s//mm^4
+ab=40//mm
+bg=25//mm=r1
+r2=(sqrt(ab^2+bg^2))//mm
+printf("the value of r2 is,%f mm\n",r2)
+//T2=P*e*r2/J
+//T2=689.3/s//N/mm^2
+//cos(q)=r1/r2=25/47=0.532
+a=0.532
+//T=sqrt(T1^+T2^2+2*T1*T2*a)
+//80=822/s
+s=822/80//mm
+printf("the sieze of weld is,%f mm",s)
\ No newline at end of file diff --git a/278/CH10/EX10.14/ex_10_13.sce b/278/CH10/EX10.14/ex_10_13.sce new file mode 100755 index 000000000..50c4c0a16 --- /dev/null +++ b/278/CH10/EX10.14/ex_10_13.sce @@ -0,0 +1,28 @@ +////find size of weld
+clc
+//solution
+//given
+//ref fig 10.28
+P=15000//N
+T=80//N/mm^2
+b=80//mm
+l=50//mm
+e=125//mm
+//let s be size of weld
+//A=2*t*l//70.7*s//mm^2
+//T1=P/A//N/mm^2//direct stress
+//T1=212/s
+//J=t*l*(3*b^2+l^2)/6//mm^4
+//J=127850*s//mm^4
+ab=40//mm
+bg=25//mm=r1
+r2=(sqrt(ab^2+bg^2))//mm
+printf("the value of r2 is,%f mm\n",r2)
+//T2=P*e*r2/J
+//T2=689.3/s//N/mm^2
+//cos(q)=r1/r2=25/47=0.532
+a=0.532
+//T=sqrt(T1^+T2^2+2*T1*T2*a)
+//80=822/s
+s=822/80//mm
+printf("the sieze of weld is,%f mm",s)
\ No newline at end of file diff --git a/278/CH10/EX10.15/ex_10_15.sce b/278/CH10/EX10.15/ex_10_15.sce new file mode 100755 index 000000000..088b60494 --- /dev/null +++ b/278/CH10/EX10.15/ex_10_15.sce @@ -0,0 +1,30 @@ +//find max shear stress
+clc
+//solution
+//given
+//ref fig 10.32 and 33
+s=6//mm
+P=20*10^3//N
+l=40//mm
+b=90//mm
+//let t throat thickness
+//let x is distance of Cg from left edge
+x=l^2/(2*l+b)//mm
+//J=t*[(b+2*l)^3/12-(l^2*(b+l)^2/(b*2*l))]
+J=0.707*s*[{(b+2*l)^3/12}-{(l^2*(b+l)^2)/(b+2*l)}]//mm^4
+printf("the value of J is,%f mm^4\n",J)
+Bg=40
+e=200-x//mm
+r1=Bg-x//mm
+Ab=(90/2)//mm
+r2=sqrt(Ab^2+Bg^2)//mm
+//cos(q)=r2/r1=0.5625
+a=0.5625
+A=2*0.707*s*l+(0.707*s*b)//mm^2
+t1=P/A//N/mm^2'
+t2=P*e*r2/J//N/mm^2
+T=sqrt(t1^2 + t2^2 + 2*t1*t2*a)//N/mm^2'
+printf( "the value of x is,%f mm\n",x)
+printf("the value of direct shear stress is,%f N/mm^2\n",t1)
+printf("the value of secondary shear stress is,%f N/mm^2\n",t2)
+printf("the max shera stress is,%f N/mm^2",T)
\ No newline at end of file diff --git a/278/CH10/EX10.16/ex_10_16.sce b/278/CH10/EX10.16/ex_10_16.sce new file mode 100755 index 000000000..65cd4e992 --- /dev/null +++ b/278/CH10/EX10.16/ex_10_16.sce @@ -0,0 +1,25 @@ +//find size of fillet welds at top and bottom
+clc
+//solution
+//given
+//ref fig 10.34
+P=15000//N
+t=150//N/mm^2
+l=25//mm
+//Pva+Pvb=P,Pva=Pvb
+Pva=P/2//N
+Pvb=P/2//N
+//balnce moments abt B
+Pha=(P*50)/75//N
+//let s1 be size at top
+Pa=sqrt(Pva^2+Pha^2)//N
+printf("the value of force at A is,%f N\n",Pa)
+//Pa=thorat area* permissible stress
+//Pa=0.707*s1*l*t=0.707*s1*25*150=2650*s1
+s1=Pa/2650//mm
+printf("the size of weld at top is,%f mm\n",s1)
+//let s2 be size at bottom
+//Pvb=0.707*s2*l*t
+//Pvb=2650*s2
+s2=Pvb/2650//mm
+printf("the size of weld at bottom is,%f mm\n",s2)
\ No newline at end of file diff --git a/278/CH10/EX10.2/ex_10_2.sce b/278/CH10/EX10.2/ex_10_2.sce new file mode 100755 index 000000000..18110e8c9 --- /dev/null +++ b/278/CH10/EX10.2/ex_10_2.sce @@ -0,0 +1,12 @@ +//find the max torque
+clc
+//solution
+//given
+d=50//mm
+s=10//mm
+Imax=80//N/mm^2
+pi=3.14
+//let T be max toque
+//Imax=(2.83*T)/(pi*s*d^2)
+T=Imax*pi*s*d^2/(2.83)//N-mm
+printf("the value of max torque is,%f N-mm",T)
\ No newline at end of file diff --git a/278/CH10/EX10.3/ex_10_3.sce b/278/CH10/EX10.3/ex_10_3.sce new file mode 100755 index 000000000..f2244f767 --- /dev/null +++ b/278/CH10/EX10.3/ex_10_3.sce @@ -0,0 +1,10 @@ +//find max torque
+clc
+//solution
+//given
+l=1000//mm
+Imax=80//N/mm^2
+s=15//mm
+//let T be max toque
+T=Imax*s*l^2/(4.242)//N-mm
+printf("the value of max torque is,%f N-mm",T)
\ No newline at end of file diff --git a/278/CH10/EX10.4/ex_10_4.sce b/278/CH10/EX10.4/ex_10_4.sce new file mode 100755 index 000000000..d0dd21c58 --- /dev/null +++ b/278/CH10/EX10.4/ex_10_4.sce @@ -0,0 +1,18 @@ +//find length of the weld
+clc
+//solution
+//given
+b=100//mm//width
+t=12.5//mm//thickness
+P=50*10^3//N
+T=56//N/mm^2
+//let l and s be length of wled and size of weld
+//s=t
+s=12.5//mm
+//P=1.414*s*l*T
+l=P/(1.414*s*T)//mm
+printf("the value of length of static weld is,%f mm\n",l+12.5)
+T1=T/2.7//N
+//P=1.414*s*l*T1
+l1=P/(1.414*s*T1)//mm
+printf("the value of length of static weld is,%f mm",l1+12.5)
\ No newline at end of file diff --git a/278/CH10/EX10.5/ex_10_5.sce b/278/CH10/EX10.5/ex_10_5.sce new file mode 100755 index 000000000..64bc1198f --- /dev/null +++ b/278/CH10/EX10.5/ex_10_5.sce @@ -0,0 +1,27 @@ +//find length of each parallel fillet weld
+clc
+//solution
+//given
+//ref fig 10.15
+b=75//mm//width
+t=12.5//mm//thickness
+ft=70//N/mm^2
+T=56//N/mm^2
+l1=b-t//mm
+s=12.5//mm
+//let l2 be length of each parallel fillet for static loading
+//P=A*ft
+P=b*t*ft//N//max load
+P1=0.707*s*l1*ft//N
+//P2=1.414*s*l2*T=990*l2//N
+//P=P1+P2
+l2=(P-P1)/990//mm
+printf("the value of length of static weld is,%f mm\n",l2+12.5)
+//length of parallel fillet for fatique loading
+ft1=ft/1.5//N/mm^2
+T1=T/2.7//N/mm^2
+P11=0.707*s*l1*ft1//N
+//P2=1.414*s*l2*T1=366*l22//N
+//P=P1+P2
+l22=(P-P11)/366//mm
+printf("the value of length of static weld is,%f mm\n",l22+12.5)
diff --git a/278/CH10/EX10.6/ex_10_6.sce b/278/CH10/EX10.6/ex_10_6.sce new file mode 100755 index 000000000..7002a0016 --- /dev/null +++ b/278/CH10/EX10.6/ex_10_6.sce @@ -0,0 +1,21 @@ +//determine the length of weld
+clc
+//solution
+//given
+//refer fig 10.16
+b=120//mm//width
+t=15//mm//thickness
+l1=b-12.5//mm
+s=15//mm
+ft1=70//N/mm^2//tensile stress
+ft2=56//N/mm^2//shear stress
+//let l2 be length of weld
+//P=A*ft
+P=120*15*ft1//N
+ft11=ft1/1.5//N/mm^2
+ft22=ft2/2.7//N/mm^2
+P1=0.707*s*l1*ft11//N
+//P2=0.707*s*l2*ft22=440*l2//N
+//P=P1+P2//N
+l2=(P-P1)/440//mm
+printf("the value of length of static weld is,%f mm\n",l2+12.5)
diff --git a/278/CH10/EX10.7/ex_10_6.sce b/278/CH10/EX10.7/ex_10_6.sce new file mode 100755 index 000000000..7002a0016 --- /dev/null +++ b/278/CH10/EX10.7/ex_10_6.sce @@ -0,0 +1,21 @@ +//determine the length of weld
+clc
+//solution
+//given
+//refer fig 10.16
+b=120//mm//width
+t=15//mm//thickness
+l1=b-12.5//mm
+s=15//mm
+ft1=70//N/mm^2//tensile stress
+ft2=56//N/mm^2//shear stress
+//let l2 be length of weld
+//P=A*ft
+P=120*15*ft1//N
+ft11=ft1/1.5//N/mm^2
+ft22=ft2/2.7//N/mm^2
+P1=0.707*s*l1*ft11//N
+//P2=0.707*s*l2*ft22=440*l2//N
+//P=P1+P2//N
+l2=(P-P1)/440//mm
+printf("the value of length of static weld is,%f mm\n",l2+12.5)
diff --git a/278/CH10/EX10.8/ex_10_8.sce b/278/CH10/EX10.8/ex_10_8.sce new file mode 100755 index 000000000..3ef1cf3ec --- /dev/null +++ b/278/CH10/EX10.8/ex_10_8.sce @@ -0,0 +1,19 @@ +//find length of weld at top and bottom
+clc
+//solution
+//given
+//ref fig 10.21
+P=200*10^3//n
+T=75//N/mm^2
+s=10//mm
+//a+b=200//mm
+//let la=length of weld at top
+//lb=length of weld at bottom
+//l=la+lb//total length of belt
+//P=0.707*s*l*T
+l=P/(0.707*s*T)//mm
+b=[(200-10)*10*95+(150*10*5)]/(190*10+1500)//mm
+a=200-b//mm
+la=l*b/(a+b)//mm
+lb=l-la//mm
+printf("the value of length at top and bottom is,%f mm\n,%f mm",la,lb)
diff --git a/278/CH10/EX10.9/ex_10_9.sce b/278/CH10/EX10.9/ex_10_9.sce new file mode 100755 index 000000000..1033792aa --- /dev/null +++ b/278/CH10/EX10.9/ex_10_9.sce @@ -0,0 +1,25 @@ +//find size of weld
+clc
+//solution
+//given
+P=2000//N
+e=120//mm
+l=40//mm
+Tmax=25//N/mm^2
+//let s be size of weld and t be throat thickness
+//ref fig 10.24
+//A=2*t*l
+//A=2*0.707*s*l
+//A=2*0.707*s*40
+//A=56.56*s//mm^2
+//t=P/A
+//t=35.4/s//N/mm^2
+M=P*e//N-mm
+//Z=s*l^2/(4.242)//section modulus//mm^3
+//fb=M/Z//
+//fb=P*e/Z//
+//fb=636.6/s
+//Tmax=0.5*[sqrt(fb^2+4*t^2)]
+//25=320.3/s
+s=320.3/25//mm
+printf("the sieze of weld is,%f mm",s)
\ No newline at end of file |