summaryrefslogtreecommitdiff
path: root/278/CH11
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /278/CH11
downloadScilab-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/CH11')
-rwxr-xr-x278/CH11/EX11.1/ex_11_1.sce10
-rwxr-xr-x278/CH11/EX11.10/ex_11_10.sce17
-rwxr-xr-x278/CH11/EX11.11/ex_11_11.sce7
-rwxr-xr-x278/CH11/EX11.12/ex_11_12.sce22
-rwxr-xr-x278/CH11/EX11.13/ex_11_12.sce22
-rwxr-xr-x278/CH11/EX11.14/ex_11_14.sce33
-rwxr-xr-x278/CH11/EX11.15/ex_11_14.sce33
-rwxr-xr-x278/CH11/EX11.16/ex_11_16.sce64
-rwxr-xr-x278/CH11/EX11.17/ex_11_17.sce21
-rwxr-xr-x278/CH11/EX11.18/ex_11_18.sce16
-rwxr-xr-x278/CH11/EX11.19/ex_11_18.sce16
-rwxr-xr-x278/CH11/EX11.2/ex_11_2.sce14
-rwxr-xr-x278/CH11/EX11.3/ex_11_3.sce14
-rwxr-xr-x278/CH11/EX11.4/ex_11_4.sce18
-rwxr-xr-x278/CH11/EX11.5/ex_11_5.sce20
-rwxr-xr-x278/CH11/EX11.6/ex_11_6.sce28
-rwxr-xr-x278/CH11/EX11.7/ex_11_7.sce35
-rwxr-xr-x278/CH11/EX11.8/ex_11_8.sce32
-rwxr-xr-x278/CH11/EX11.9/ex_11_9.sce32
19 files changed, 454 insertions, 0 deletions
diff --git a/278/CH11/EX11.1/ex_11_1.sce b/278/CH11/EX11.1/ex_11_1.sce
new file mode 100755
index 000000000..90372fb80
--- /dev/null
+++ b/278/CH11/EX11.1/ex_11_1.sce
@@ -0,0 +1,10 @@
+//find safe tensile load
+clc
+//soltuion
+//given
+d=30//mm
+ft=42//N/mm^2
+//using table 11.1,area corresponding to d=30mm is A=561//N/mm^2
+A=561//mm^2
+F=A*ft//N
+printf("the value of force is,%f N",F) \ No newline at end of file
diff --git a/278/CH11/EX11.10/ex_11_10.sce b/278/CH11/EX11.10/ex_11_10.sce
new file mode 100755
index 000000000..b99cd939c
--- /dev/null
+++ b/278/CH11/EX11.10/ex_11_10.sce
@@ -0,0 +1,17 @@
+//find size mild steel
+clc
+//solution
+//given
+p=0.84//N/mm^2
+ft=56//N/mm^2
+//ref fig 11.29
+//since pince is 350 mm,therfor area ia A
+A=350*350//mm^2
+P=A*p//N
+printf("the value of force acting is,%f N\n",P)
+//let dc be core diameter
+pi=3.14
+//P=(pi/4)*dc^2*ft//N
+dc=sqrt((P*4)/(pi*ft))
+printf("the value of dc is,%f mm\n",dc)
+printf("the standard value of core diametr is 49.177 mm fron T11.1") \ No newline at end of file
diff --git a/278/CH11/EX11.11/ex_11_11.sce b/278/CH11/EX11.11/ex_11_11.sce
new file mode 100755
index 000000000..eca8e8e5a
--- /dev/null
+++ b/278/CH11/EX11.11/ex_11_11.sce
@@ -0,0 +1,7 @@
+//determine diameter of hole
+Do=48//mm
+//from table 11.1 ,core dia Do=48//mm,Dc=41.795//mm
+Do=48//mm
+Dc=41.795//mm
+D=sqrt(Do^2-Dc^2)//mm
+printf("the dia of bolt is,%f mm",D)
diff --git a/278/CH11/EX11.12/ex_11_12.sce b/278/CH11/EX11.12/ex_11_12.sce
new file mode 100755
index 000000000..b7180140a
--- /dev/null
+++ b/278/CH11/EX11.12/ex_11_12.sce
@@ -0,0 +1,22 @@
+//determine the size of bolts
+clc
+//solution
+//given
+//ref fig 11.31
+W=30000//N
+ft=60//N/mm^2
+L1=80//mm
+L2=250//mm
+L=500//mm
+Wt1=W/4//N
+printf("the value of Wt1 is,%f N\n",Wt1)
+w=(W*L)/(2*(L1^2+L2^2))//N/mm
+printf("the value of w is,%f N/mm\n",w)
+Wt2=w*L2//N
+printf("the value of Wt2 is,%f N\n",Wt2)
+Wt=Wt1+Wt2//N
+printf("the value of Wt is,%f N\n",Wt)
+pi=3.14
+//klet dc be coire dia
+dc=sqrt((Wt*4)/(pi*ft))//mm
+printf("the core diameter of bolt is,%f mm",dc) \ No newline at end of file
diff --git a/278/CH11/EX11.13/ex_11_12.sce b/278/CH11/EX11.13/ex_11_12.sce
new file mode 100755
index 000000000..b7180140a
--- /dev/null
+++ b/278/CH11/EX11.13/ex_11_12.sce
@@ -0,0 +1,22 @@
+//determine the size of bolts
+clc
+//solution
+//given
+//ref fig 11.31
+W=30000//N
+ft=60//N/mm^2
+L1=80//mm
+L2=250//mm
+L=500//mm
+Wt1=W/4//N
+printf("the value of Wt1 is,%f N\n",Wt1)
+w=(W*L)/(2*(L1^2+L2^2))//N/mm
+printf("the value of w is,%f N/mm\n",w)
+Wt2=w*L2//N
+printf("the value of Wt2 is,%f N\n",Wt2)
+Wt=Wt1+Wt2//N
+printf("the value of Wt is,%f N\n",Wt)
+pi=3.14
+//klet dc be coire dia
+dc=sqrt((Wt*4)/(pi*ft))//mm
+printf("the core diameter of bolt is,%f mm",dc) \ No newline at end of file
diff --git a/278/CH11/EX11.14/ex_11_14.sce b/278/CH11/EX11.14/ex_11_14.sce
new file mode 100755
index 000000000..85a20fa67
--- /dev/null
+++ b/278/CH11/EX11.14/ex_11_14.sce
@@ -0,0 +1,33 @@
+//find the size of the bolts
+clc
+//solution
+//given
+//ref fig 11.35
+W=12000//N
+L=400//mm
+L1=50//mm
+L2=375//mm
+ft=84//N/mm^2
+n=4
+Ws=W/n//shear load on each bolt
+Wt=0.5*[[W*L*L2]/[L1^2 +L2^2]]//N
+Wte=0.5*[Wt + sqrt(Wt^2 +4*(Ws)^2)]//N//equivalent tensile load
+//let dc be core dia
+pi=3.14
+//A=(pi/4)*dc^2*ft=66*dc^2
+dc=sqrt(Wte/66)//mm
+//let tabd b be thickness and depth of arm
+//Z=(1/6)*t*b^2
+M=W*L//N-mm
+Z=M/84//
+//asume b=250
+b=250//mm
+//Z=b^2*t/6
+t=(M*6)/(ft*b^2)
+printf("the value of core diameteris, %f mm\n",dc)
+printf("the standard value of core diametr is 11.546 mm fron T11.1\n")
+printf("the value of equivalent tensile load is,%f N\n",Wte)
+printf("the value tensile load is,%f N\n",Wt)
+printf("the value of load actiung on each bolt is,%f N\n",Ws)
+printf("the moment acting is,%f N-mm\n",M)
+printf("the value of thickness is,%f mm",t) \ No newline at end of file
diff --git a/278/CH11/EX11.15/ex_11_14.sce b/278/CH11/EX11.15/ex_11_14.sce
new file mode 100755
index 000000000..85a20fa67
--- /dev/null
+++ b/278/CH11/EX11.15/ex_11_14.sce
@@ -0,0 +1,33 @@
+//find the size of the bolts
+clc
+//solution
+//given
+//ref fig 11.35
+W=12000//N
+L=400//mm
+L1=50//mm
+L2=375//mm
+ft=84//N/mm^2
+n=4
+Ws=W/n//shear load on each bolt
+Wt=0.5*[[W*L*L2]/[L1^2 +L2^2]]//N
+Wte=0.5*[Wt + sqrt(Wt^2 +4*(Ws)^2)]//N//equivalent tensile load
+//let dc be core dia
+pi=3.14
+//A=(pi/4)*dc^2*ft=66*dc^2
+dc=sqrt(Wte/66)//mm
+//let tabd b be thickness and depth of arm
+//Z=(1/6)*t*b^2
+M=W*L//N-mm
+Z=M/84//
+//asume b=250
+b=250//mm
+//Z=b^2*t/6
+t=(M*6)/(ft*b^2)
+printf("the value of core diameteris, %f mm\n",dc)
+printf("the standard value of core diametr is 11.546 mm fron T11.1\n")
+printf("the value of equivalent tensile load is,%f N\n",Wte)
+printf("the value tensile load is,%f N\n",Wt)
+printf("the value of load actiung on each bolt is,%f N\n",Ws)
+printf("the moment acting is,%f N-mm\n",M)
+printf("the value of thickness is,%f mm",t) \ No newline at end of file
diff --git a/278/CH11/EX11.16/ex_11_16.sce b/278/CH11/EX11.16/ex_11_16.sce
new file mode 100755
index 000000000..f3fd72014
--- /dev/null
+++ b/278/CH11/EX11.16/ex_11_16.sce
@@ -0,0 +1,64 @@
+//find a.)dia of fixing bolts,b.)dimension of arms
+clc
+//soltuion
+//given
+//refer fig 11.39
+W=10000//N
+q=60//deg
+f1=100//N/mm^2
+t=60//N/mm^2
+Wh=W*sin(%pi/3)//N
+printf("the horizontal component is,%f N\n",Wh)
+Wv=W*cos(pi/3)//N
+printf("the vertical component is,%f N\n",Wv)
+Wt1=Wh/4//force on each bolt//N
+printf("the direct tensile load on each bolt is,%f N\n",Wt1)
+x1=0.05//m//distance of horizontal component from CG
+Th=Wh*x1//N-m//torque due to horizntl compnt
+Ws=Wv/4//N//shear load on each bolt
+printf("shear load on each boltis,%f N\n",Ws)
+x2=0.3//m
+Tv=Wv*x2//N-m
+Tn=Tv-Th//N-m//net moment
+printf("net moment is,%f N-m\n",Tn)
+L1=(250-175)/2000//m//dis btw 1 and 2 bolt
+L3=L1+0.175//m//dis btw 3 and 4 bolt
+printf("the value of L3 is,%f m\n",L3)
+//let w be load on each bolt
+//Te=2*(w*L1)*L1 + 2*(w*L2)*L2=2*w(L1^2 +L2^2)//total moment abt E
+//Te=0.093*w//N-m
+w=Tn/0.093//N/m
+printf("the laod on each per meter distance from E is,%f N/m\n",w)
+L2=180//mm
+Wt2=w*L3//N
+printf("the value of Wt1 is ,%f N\n",Wt1)
+printf("the value of Wt2 is,%f N\n",Wt2)
+Wt=Wt1+Wt2//N
+printf("the value of total force is,%f N\n",Wt)
+Wte=0.5*[Wt + sqrt(Wt^2 + 4*Ws^2)]//N
+printf("the value of equivalent force is,%f N\n",Wte)
+//let dc be core dia
+dc=sqrt((4*Wte)/(pi*f1))//mm
+printf("the value of core dia is,%f mm\n",dc)
+printf("the valuf of core dia from tabl 11.1 instandard condition is 8.18mm\n")
+//let t be thickness and b be the width,b=3*t
+//A=3*b*t=9*t^2//mm^2
+//I={[b*(2*t +b)^3]/12}-{(b-t)*b^3/12}
+//I=321*t^4/12
+//Z=I/(t+0.5*b)=10.7*t^3//mm^3
+//ft1=Wh/A=962/t^2//N/mm^2
+Mh=Wh*0.05//N-m
+//ft2=Mh/Z=40.5*10^3/t^3//N/mm^2
+//Ty=Wv/A=556/t^3//N/mm^2
+Mv=Wv*0.3//N-m
+//ft3=Mv/Z=140.2*10^3/t^3//N/mm^2
+//Ftnet=ft1-ft2+ft3//N/mm^2
+//Ftnet=(962/t^2)-(40.5*10^3/t^3)+(140.210^3/t^3)
+//Ftnet=(962/t^2)+(99.7*10^3/t^3)
+Ftnet=100//N/mm^2
+//by hit and trial
+//'Ftnet=100=(962/t^2)+(99.7*10^3/t^3)
+t=10.4//mm
+b=3*t//mm
+printf("the thickness is,%f mm\n",t)
+printf("the width is,%f mm",b)
diff --git a/278/CH11/EX11.17/ex_11_17.sce b/278/CH11/EX11.17/ex_11_17.sce
new file mode 100755
index 000000000..c52597a5a
--- /dev/null
+++ b/278/CH11/EX11.17/ex_11_17.sce
@@ -0,0 +1,21 @@
+//find size of bolts
+clc
+//solution
+//given
+//ref fig 11.42
+n=8
+d=1.6//m
+r=0.8//m
+D=2//m
+R=1//m
+W=100000//N
+e=5//m
+ft=100//N/mm^2
+L=e-R//m
+//let dc be core dia
+pi=3.14
+Wt=(2*W*L*(R+r))/(n*(2*R^2+r^2))//N
+printf("the max load acting is,%f N\n",Wt)
+dc=sqrt((W*4)/(pi*ft))//mm
+printf("the core dia is,%f mm\n",dc)
+printf("the standard value of core dia is 31.093 from table 11.1") \ No newline at end of file
diff --git a/278/CH11/EX11.18/ex_11_18.sce b/278/CH11/EX11.18/ex_11_18.sce
new file mode 100755
index 000000000..857030a33
--- /dev/null
+++ b/278/CH11/EX11.18/ex_11_18.sce
@@ -0,0 +1,16 @@
+//find size of bolts
+clc
+//solution
+//given
+n=4
+d=500//mm
+r=250//mm
+D=650//mm
+R=325//mm
+W=400*10^3//N
+L=350//mm
+ft=60//N/mm^2
+//let dc be core dia
+pi=3.14
+Wt=[(2*W*L)*{R+r*cos(pi/n)}]/{n*(2*R^2 +r^2)}
+printf("the value of load acting is,%f N\n",Wt) \ No newline at end of file
diff --git a/278/CH11/EX11.19/ex_11_18.sce b/278/CH11/EX11.19/ex_11_18.sce
new file mode 100755
index 000000000..857030a33
--- /dev/null
+++ b/278/CH11/EX11.19/ex_11_18.sce
@@ -0,0 +1,16 @@
+//find size of bolts
+clc
+//solution
+//given
+n=4
+d=500//mm
+r=250//mm
+D=650//mm
+R=325//mm
+W=400*10^3//N
+L=350//mm
+ft=60//N/mm^2
+//let dc be core dia
+pi=3.14
+Wt=[(2*W*L)*{R+r*cos(pi/n)}]/{n*(2*R^2 +r^2)}
+printf("the value of load acting is,%f N\n",Wt) \ No newline at end of file
diff --git a/278/CH11/EX11.2/ex_11_2.sce b/278/CH11/EX11.2/ex_11_2.sce
new file mode 100755
index 000000000..c86963fd1
--- /dev/null
+++ b/278/CH11/EX11.2/ex_11_2.sce
@@ -0,0 +1,14 @@
+//find stress
+clc
+//solution
+//given
+d=24//mm
+//using table 11.1,area corresponding to d=24mm ,core diameter dc is=20.32//mm
+dc=20.32//mm
+//let ft is stress
+P=2840*d//N
+pi=3.14
+//P=A*ft
+A=(pi/4)*dc^2
+ft=P/(A)//N/mm^2
+printf("the stress acting is,%f N/mm^2",ft) \ No newline at end of file
diff --git a/278/CH11/EX11.3/ex_11_3.sce b/278/CH11/EX11.3/ex_11_3.sce
new file mode 100755
index 000000000..5e8591baf
--- /dev/null
+++ b/278/CH11/EX11.3/ex_11_3.sce
@@ -0,0 +1,14 @@
+//find nominal diameter of bolt
+clc
+//solution
+//given
+//ref fig 11.22
+P=60000//N
+ft=100//N/mm^2
+//let d nominal diameter and dc core dia
+//P=ft/A
+//A=(pi/4)*dc^2
+pi=3.14
+dc=sqrt(P*4/(pi*ft))
+printf("the value of dc is,%f mm\n",dc)
+printf("the nominal value of d is 33 mm fron T11.1") \ No newline at end of file
diff --git a/278/CH11/EX11.4/ex_11_4.sce b/278/CH11/EX11.4/ex_11_4.sce
new file mode 100755
index 000000000..92fd8ac43
--- /dev/null
+++ b/278/CH11/EX11.4/ex_11_4.sce
@@ -0,0 +1,18 @@
+//find size of bolts
+clc
+//solution
+//given
+T=25*10^3//N-mm
+n=4
+Rp=30//mm
+t=30//N/mm^2
+Ps=T/Rp//N//shearing load
+//let dc be core dia
+//P=t*n*A
+//A=(pi/4)*dc^2
+pi=3.14
+//P=t*n*(pi/4)*dc^2=94.26*dc^2
+//P=Ps
+dc=sqrt(Ps/94.26)//mm
+printf("the value of dc is,%f mm\n",dc)
+printf("the standard value of core diametr is 3.141 mm fron T11.1") \ No newline at end of file
diff --git a/278/CH11/EX11.5/ex_11_5.sce b/278/CH11/EX11.5/ex_11_5.sce
new file mode 100755
index 000000000..459e6b079
--- /dev/null
+++ b/278/CH11/EX11.5/ex_11_5.sce
@@ -0,0 +1,20 @@
+//find dia meter of threaded part
+clc
+//solution
+//given
+D=100//mm
+p=1.6//N/mm^2
+ft=50//N/mm^2
+pi=3.14
+A=(pi/4)*D^2
+F=A*p//N
+printf("the value of force is,%f N\n",F)
+//since leverage is 8,therfor
+W=F/8//N
+P=F-W
+//let dc be core dia'
+//P=(pi/4)*dc^2*ft
+dc=sqrt(P*4/(pi*ft))//mm
+printf("the value of core dai is,%f mm\n",dc)
+printf("the standard value of core diametr is 18.376 mm fron T11.1")
+
diff --git a/278/CH11/EX11.6/ex_11_6.sce b/278/CH11/EX11.6/ex_11_6.sce
new file mode 100755
index 000000000..f83da2a62
--- /dev/null
+++ b/278/CH11/EX11.6/ex_11_6.sce
@@ -0,0 +1,28 @@
+//caLCULATE the nmber ans size of studs
+clc
+//soltuion
+//given
+D=350//mm
+p=1.25//N/mm^2
+ft=33//N/mm^2
+//let d be diameter of studs and dc be core daimeter of studs
+pi=3.14
+P=(pi/4)*D^2*p//N
+//assuming nominal dia of studs =24, corrsponding dc=20.32//mm
+d=24//mm
+dc=20.32//mm
+//P1=(pi/4)*dc^2*ft*n
+n=P*4/(pi*dc^2*ft)
+printf("the value of nukmber of studs is,%f \n",n)
+printf("let us assume the value of nukmber of studs is 12\n" )
+d1=25//mm//dia of stid hole
+t=10//mm//assume
+Dp=D+2*t+3*d1//mmm
+printf("the value of pitch dia is,%f mm\n",Dp)
+Pc=(pi*Dp)/(12)//n=12//mm//circumferential pitch
+printf("the value of circumferential pitch is,%f mm\n",Pc)
+x1=20*sqrt(d1)//mm
+x2=30*sqrt(d1)//mm
+printf("the lower and upper limet of circumferential pitch is,%f mm\n and ,%f mm",x1,x2)
+printf("since Pc lies btw x1 and x2,hence design is safe")
+printf("the size of stud is M24") \ No newline at end of file
diff --git a/278/CH11/EX11.7/ex_11_7.sce b/278/CH11/EX11.7/ex_11_7.sce
new file mode 100755
index 000000000..edb76a140
--- /dev/null
+++ b/278/CH11/EX11.7/ex_11_7.sce
@@ -0,0 +1,35 @@
+//desing th cover plate
+clc
+//solution
+//given
+D=120//mm
+r=60//mm
+p=6//N/mm^2
+ft=60//N/mm^2
+ftb=40//N/mm^2
+t=r*[sqrt((ft+p)/(ft-p))-1]//mm
+printf("the value of thicness is,%f mm\n",t)
+printf("let us consider t=10mm\n")
+//let d be nominal dia,dc core dia,nnumber of bolts
+pi=3.14
+P=(pi/4)*D^2*p//N
+//let us assume d=24//mm,corrsponding dc=20.32/
+d=24//mm
+dc=20.32//mm
+//P1=(pi/4)*dc^2*ftb*n//resistance offered by n bolts
+//P1=12973*n//N
+//P=P1
+n=P/12973
+printf("the value of number of studs is,%f \n",n)
+printf("let us assume the value of number of studs is 6\n" )
+d1=25//mm//dia of stid hole
+t=10//mm//assume
+Dp=D+2*t+3*d1//mmm
+printf("the value of pitch dia is,%f mm\n",Dp)
+Pc=(pi*Dp)/(6)//n=12//mm//circumferential pitch
+printf("the value of circumferential pitch is,%f mm\n",Pc)
+x1=20*sqrt(d1)//mm
+x2=30*sqrt(d1)//mm
+printf("the lower and upper limet of circumferential pitch is,%f mm\n and ,%f mm\n",x1,x2)
+printf("since Pc lies btw x1 and x2,hence design is safe\n")
+printf("the size of bolt is M24") \ No newline at end of file
diff --git a/278/CH11/EX11.8/ex_11_8.sce b/278/CH11/EX11.8/ex_11_8.sce
new file mode 100755
index 000000000..2ed8b2b16
--- /dev/null
+++ b/278/CH11/EX11.8/ex_11_8.sce
@@ -0,0 +1,32 @@
+//find size of bolt required
+clc
+//soltuion
+//given
+D=300//mm
+p=1.5//N/mm^2
+n=8
+fy=330//N/mm^2
+fe=240//n/mm^2
+//P1=1.5*P2
+Fs=2
+K=0.5
+pi=3.14
+P2=(pi/4)*D^2*p//N
+P1=1.5*P2//N
+Pmax=P1+K*P2//N
+printf("the max force on head is,%f N\n",Pmax)
+Pmax1=Pmax/n//N//load on each bolt
+Pmin=P1/n//N
+Pm=(Pmin+Pmax1)/2//N//average load
+Pv=(Pmax1-Pmin)/2//N//variable load
+printf("the mean and vaiable load acting are Pm and Pv,%f N\n,%f N\n",Pm,Pv)
+//let dc core diametr of bolt in mm
+//As=(pi/4)*dc^2//mm^2//stress area of bolt
+//fm=Pm/As=29534/dc^2//N/mm^2
+//fv=Pv/As=4220/dc^2//N/mm^2
+//acc to soderberg's formula ,
+//fv=fe[(1/Fs)-(fm/fy)]
+//4420/dc^2=240*[(1/2)-29534/(dc^2*330)]
+dc=sqrt(25700/120)//mm
+printf("the value of core dai is,%f mm\n",dc)
+printf("the standard value of core diametr is 14.933 mm fron T11.1")
diff --git a/278/CH11/EX11.9/ex_11_9.sce b/278/CH11/EX11.9/ex_11_9.sce
new file mode 100755
index 000000000..2ed8b2b16
--- /dev/null
+++ b/278/CH11/EX11.9/ex_11_9.sce
@@ -0,0 +1,32 @@
+//find size of bolt required
+clc
+//soltuion
+//given
+D=300//mm
+p=1.5//N/mm^2
+n=8
+fy=330//N/mm^2
+fe=240//n/mm^2
+//P1=1.5*P2
+Fs=2
+K=0.5
+pi=3.14
+P2=(pi/4)*D^2*p//N
+P1=1.5*P2//N
+Pmax=P1+K*P2//N
+printf("the max force on head is,%f N\n",Pmax)
+Pmax1=Pmax/n//N//load on each bolt
+Pmin=P1/n//N
+Pm=(Pmin+Pmax1)/2//N//average load
+Pv=(Pmax1-Pmin)/2//N//variable load
+printf("the mean and vaiable load acting are Pm and Pv,%f N\n,%f N\n",Pm,Pv)
+//let dc core diametr of bolt in mm
+//As=(pi/4)*dc^2//mm^2//stress area of bolt
+//fm=Pm/As=29534/dc^2//N/mm^2
+//fv=Pv/As=4220/dc^2//N/mm^2
+//acc to soderberg's formula ,
+//fv=fe[(1/Fs)-(fm/fy)]
+//4420/dc^2=240*[(1/2)-29534/(dc^2*330)]
+dc=sqrt(25700/120)//mm
+printf("the value of core dai is,%f mm\n",dc)
+printf("the standard value of core diametr is 14.933 mm fron T11.1")