diff options
Diffstat (limited to '278/CH10')
| -rwxr-xr-x | 278/CH10/EX10.1/ex_10_1.sce | 26 | ||||
| -rwxr-xr-x | 278/CH10/EX10.10/ex_10_10.sce | 40 | ||||
| -rwxr-xr-x | 278/CH10/EX10.11/ex_10_11.sce | 46 | ||||
| -rwxr-xr-x | 278/CH10/EX10.12/ex_10_12.sce | 32 | ||||
| -rwxr-xr-x | 278/CH10/EX10.13/ex_10_13.sce | 54 | ||||
| -rwxr-xr-x | 278/CH10/EX10.14/ex_10_13.sce | 54 | ||||
| -rwxr-xr-x | 278/CH10/EX10.15/ex_10_15.sce | 58 | ||||
| -rwxr-xr-x | 278/CH10/EX10.16/ex_10_16.sce | 48 | ||||
| -rwxr-xr-x | 278/CH10/EX10.2/ex_10_2.sce | 22 | ||||
| -rwxr-xr-x | 278/CH10/EX10.3/ex_10_3.sce | 17 | ||||
| -rwxr-xr-x | 278/CH10/EX10.4/ex_10_4.sce | 34 | ||||
| -rwxr-xr-x | 278/CH10/EX10.5/ex_10_5.sce | 54 | ||||
| -rwxr-xr-x | 278/CH10/EX10.6/ex_10_6.sce | 42 | ||||
| -rwxr-xr-x | 278/CH10/EX10.7/ex_10_6.sce | 42 | ||||
| -rwxr-xr-x | 278/CH10/EX10.8/ex_10_8.sce | 38 | ||||
| -rwxr-xr-x | 278/CH10/EX10.9/ex_10_9.sce | 48 |
16 files changed, 327 insertions, 328 deletions
diff --git a/278/CH10/EX10.1/ex_10_1.sce b/278/CH10/EX10.1/ex_10_1.sce index 0cae290a7..97647ef54 100755 --- a/278/CH10/EX10.1/ex_10_1.sce +++ b/278/CH10/EX10.1/ex_10_1.sce @@ -1,14 +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
+ +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 index 505bc826a..ac247d7fd 100755 --- a/278/CH10/EX10.10/ex_10_10.sce +++ b/278/CH10/EX10.10/ex_10_10.sce @@ -1,20 +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)
+ +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 index 8f106c8b3..c33f0a131 100755 --- a/278/CH10/EX10.11/ex_10_11.sce +++ b/278/CH10/EX10.11/ex_10_11.sce @@ -1,24 +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
+ +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 index c20b99868..ce6c1fc2a 100755 --- a/278/CH10/EX10.12/ex_10_12.sce +++ b/278/CH10/EX10.12/ex_10_12.sce @@ -1,17 +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
+ +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 index 50c4c0a16..1a0de3ae1 100755 --- a/278/CH10/EX10.13/ex_10_13.sce +++ b/278/CH10/EX10.13/ex_10_13.sce @@ -1,28 +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
+ +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 index 50c4c0a16..1a0de3ae1 100755 --- a/278/CH10/EX10.14/ex_10_13.sce +++ b/278/CH10/EX10.14/ex_10_13.sce @@ -1,28 +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
+ +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 index 088b60494..79776e7fc 100755 --- a/278/CH10/EX10.15/ex_10_15.sce +++ b/278/CH10/EX10.15/ex_10_15.sce @@ -1,30 +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)
+ +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 index 65cd4e992..c4a924df2 100755 --- a/278/CH10/EX10.16/ex_10_16.sce +++ b/278/CH10/EX10.16/ex_10_16.sce @@ -1,25 +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
+ +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 index 18110e8c9..727e80783 100755 --- a/278/CH10/EX10.2/ex_10_2.sce +++ b/278/CH10/EX10.2/ex_10_2.sce @@ -1,12 +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
+ +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 index f2244f767..3c53e1697 100755 --- a/278/CH10/EX10.3/ex_10_3.sce +++ b/278/CH10/EX10.3/ex_10_3.sce @@ -1,10 +1,9 @@ -//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
+ +//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 index d0dd21c58..58d88d4ba 100755 --- a/278/CH10/EX10.4/ex_10_4.sce +++ b/278/CH10/EX10.4/ex_10_4.sce @@ -1,18 +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
+ +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 index 64bc1198f..0ff0c7c09 100755 --- a/278/CH10/EX10.5/ex_10_5.sce +++ b/278/CH10/EX10.5/ex_10_5.sce @@ -1,27 +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)
+ +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 index 7002a0016..f1050c17e 100755 --- a/278/CH10/EX10.6/ex_10_6.sce +++ b/278/CH10/EX10.6/ex_10_6.sce @@ -1,21 +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)
+ +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 index 7002a0016..f1050c17e 100755 --- a/278/CH10/EX10.7/ex_10_6.sce +++ b/278/CH10/EX10.7/ex_10_6.sce @@ -1,21 +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)
+ +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 index 3ef1cf3ec..57847b47a 100755 --- a/278/CH10/EX10.8/ex_10_8.sce +++ b/278/CH10/EX10.8/ex_10_8.sce @@ -1,19 +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)
+ +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 index 1033792aa..9ccb3aea7 100755 --- a/278/CH10/EX10.9/ex_10_9.sce +++ b/278/CH10/EX10.9/ex_10_9.sce @@ -1,25 +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
+ +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 |