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/CH20 | |
| 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/CH20')
| -rwxr-xr-x | 278/CH20/EX20.1/ex_20_1.sce | 38 | ||||
| -rwxr-xr-x | 278/CH20/EX20.10/ex_20_10.sce | 39 | ||||
| -rwxr-xr-x | 278/CH20/EX20.11/ex_20_11.sce | 39 | ||||
| -rwxr-xr-x | 278/CH20/EX20.12/ex_20_12.sce | 22 | ||||
| -rwxr-xr-x | 278/CH20/EX20.2/ex_20_2.sce | 31 | ||||
| -rwxr-xr-x | 278/CH20/EX20.3/ex_20_3.sce | 40 | ||||
| -rwxr-xr-x | 278/CH20/EX20.5/ex_20_5.sce | 34 | ||||
| -rwxr-xr-x | 278/CH20/EX20.6/ex_20_6.sce | 22 | ||||
| -rwxr-xr-x | 278/CH20/EX20.7/ex_20_7.sce | 23 | ||||
| -rwxr-xr-x | 278/CH20/EX20.8/ex_20_8.sce | 23 | ||||
| -rwxr-xr-x | 278/CH20/EX20.9/ex_20_10.sce | 39 |
11 files changed, 350 insertions, 0 deletions
diff --git a/278/CH20/EX20.1/ex_20_1.sce b/278/CH20/EX20.1/ex_20_1.sce new file mode 100755 index 000000000..03e82c0ed --- /dev/null +++ b/278/CH20/EX20.1/ex_20_1.sce @@ -0,0 +1,38 @@ +//find..
+clc
+//soltuion
+//given
+P=90000//W
+N2=250//rpm
+N1=750//rpm
+d2=1//m
+x=1.75//m
+v=26.67//m/s
+A=375*10^(-6)//m^2
+rho=1000//kg/m^3
+f=2.5//N/mm^2
+B=17.5//deg
+u=0.25
+d1=N2*d2/N1//m
+//sin(a)=(r2-r1)/x=0.1914
+a=(%pi/180)*11.04
+q=%pi-2*a//rad
+printf("the angle of contact is,%f rad\n",q)
+m=A*rho//kg/m
+Tc=m*v^2//N
+printf("the centrifugl tension is,%f N\n",Tc)
+T=f*A*10^6//N
+printf("max tension is,%f N\n",T)
+T1=T-Tc//N
+//log(T1/T2)=u*q*cosec(%pi/180*B)=0.9976
+T2=T1/9.95//N
+Ppb=(T1-T2)*v//W
+printf("power tranmited per belt is,%f W\n",Ppb)
+//n=P/Ppb//
+printf("the number of belts are,%f \n",P/Ppb)
+printf("number of belts are say 6\n")
+n=6
+r1=d1/2
+r2=d2/2
+L=%pi*(r2+r1)+2*x+(r2-r1)^2/x
+printf("the length of belt is,%f m",L)
\ No newline at end of file diff --git a/278/CH20/EX20.10/ex_20_10.sce b/278/CH20/EX20.10/ex_20_10.sce new file mode 100755 index 000000000..4553282a6 --- /dev/null +++ b/278/CH20/EX20.10/ex_20_10.sce @@ -0,0 +1,39 @@ +//design wire rope
+clc
+//soltuion
+//given
+W=55000//N
+depth=300//m
+v=500//m/min
+t=10//s
+//ref T20.6,we choose rope type 6*19
+//,tab; 20.11,Fs =7,for depth 300 to 600m,design load is calculated by taking 2 to 2.5 times factor of safety fiven is table
+//ref table 20.11
+Designload=15*55*1000//N
+//ref table 20.6,tesnile strength of 6*19 is=595*d^2
+//595d^2=designload
+//d=sqrt(Desingload/595)//mm
+printf("the dia of rope is,%f mm\n",sqrt(Designload/595))
+printf("the dia of rope is,say 38mm\n")
+d=38//mm
+dw=0.063*d//ref table 20.10,dw=dia of wire
+A=0.38*d^2
+//ref table 20.6
+w=0.0363*d^2*depth//N
+//ref table 20.12
+D=100*d
+fb=84000*dw/D
+printf("bending stress acting is,%f N/mm^2\n",fb)
+Wb=fb*A//N
+printf("the bending load on rope is,%f N\n",Wb)
+a=v/(60*t)//acceleration
+g=9.81//m/s^2
+Wa=(W+w)/g*a//additonal load
+printf("additional load due to acc si,%f N\n",Wa)
+Wst=2*(W+w)
+printf("the starting load acting is,%f N\n",Wst)
+We=W+w+Wb//N
+printf("effctive load during uniform velocity is,%f N\n",We)
+Fsa=Designload/We
+printf("actual factor of safety is,%f \n",Fsa)
+printf("since factor of safety caculated above are safe,therefore wire rope of dia 38mm and 6*19 is chosen")
\ No newline at end of file diff --git a/278/CH20/EX20.11/ex_20_11.sce b/278/CH20/EX20.11/ex_20_11.sce new file mode 100755 index 000000000..b3780f6d7 --- /dev/null +++ b/278/CH20/EX20.11/ex_20_11.sce @@ -0,0 +1,39 @@ +//finf Fs
+clc
+//soltuion
+//given
+d=38//mm
+D=2000//mm
+W=50000//N
+depth=900//m
+v=3//m/s
+a=1.5//m/s^2
+dw=0.05*d//mm
+Bs=1880//N/mm^2//breaking strength
+Er=84*1000//N/mm^2
+w=47700//N
+//rope is 8*19
+n=8*19
+A=(%pi/4)*dw^2*n//mm^2
+mbs=Bs*A//min breaking strength
+printf("min breaking stresngth is,%f N\n",mbs)
+fb=84000*dw/D
+printf("bending stress acting is,%f N/mm^2\n",fb)
+Wb=fb*A//N
+printf("the bending load on rope is,%f N\n",Wb)
+g=9.81//m/s^2
+Wa=(W+w)/g*a//additonal load
+printf("additional load due to acc si,%f N\n",Wa)
+Wst=2*(W+w)
+printf("the starting load acting is,%f N\n",Wst)
+Wen=W+w+Wb//N//during normal working
+printf("effctive load during uniform velocity is,%f N\n",Wen)
+Fs=mbs/Wen
+printf("the factor of safety during normal working is,%f \n ",Fs)
+Wea=W+w+Wb+Wa//N//during acc
+Fsa=mbs/Wea
+printf("the factor of safety during acc is,%f ",Fsa)
+//during straing
+Wes=Wst+Wb//N
+Fss=mbs/Wes
+printf("the factor of safety during startin is,%f ",Fss)
\ No newline at end of file diff --git a/278/CH20/EX20.12/ex_20_12.sce b/278/CH20/EX20.12/ex_20_12.sce new file mode 100755 index 000000000..07f9d3800 --- /dev/null +++ b/278/CH20/EX20.12/ex_20_12.sce @@ -0,0 +1,22 @@ +//finf dia of wire
+clc
+//soltuion
+//given
+W=25000//N
+w=15000//n
+//D=30*d
+a=1//m/s^2
+er=80000//N/mm^2
+fu=1800//N/mm^2
+//A=0.38*d^2
+//let d be dia of rope
+Wd=W+w//N
+//dw=0.063*d..
+//Wb=Er*dw/D*A=63.84*d^2//N
+g=9.81
+Wa=(W+w)/g*a
+//Wt=Wd+Wa+Wb=44080+63.84*d^2//N....eq1
+//WT=A*stress=A*fu/Fs=114*d^2//assume Fs=6...eq2
+//from eq1 and eq2
+d=sqrt(44080/(114-63.84))//mm
+printf("choosing value of d from table 20.6,we get 32mm")
diff --git a/278/CH20/EX20.2/ex_20_2.sce b/278/CH20/EX20.2/ex_20_2.sce new file mode 100755 index 000000000..d9c91321c --- /dev/null +++ b/278/CH20/EX20.2/ex_20_2.sce @@ -0,0 +1,31 @@ +//find..
+clc
+//soltuion
+//given
+n=2
+B=15//deg
+A=750*10^-6
+u=0.12
+rho=1200//kg/m^3
+f=7*10^6//N/m^2
+d=0.300//m
+N=1500//rpm
+m=A*rho//kg/m
+v=(%pi*N*d)/60//m/s
+Tc=m*v^2//N
+q=%pi
+printf("the centrifugl tension is,%f N\n",Tc)
+T=f*A//N
+printf("max tension is,%f N\n",T)
+T1=T-Tc//N
+//log(T1/T2)=u*q*cosec(%pi/180*B)=0.6335
+T2=T1/4.3//N
+P=(T1-T2)*v*n//W
+printf("the power trans is,%f W\n",P)
+//for max power tranfer
+//let N1 be speed
+//Tc1=T/3
+//Tc1=m*v1^2
+v1=sqrt(T/(3*m))//m/s
+N1=(v1*60/(%pi*d))
+printf("rpm of shaft at max power trans,%f rpm",N1)
\ No newline at end of file diff --git a/278/CH20/EX20.3/ex_20_3.sce b/278/CH20/EX20.3/ex_20_3.sce new file mode 100755 index 000000000..b4bdf38b6 --- /dev/null +++ b/278/CH20/EX20.3/ex_20_3.sce @@ -0,0 +1,40 @@ +//find..
+clc
+//soltuion
+//given
+x=1//m
+P=95*1000//W
+d1=0.3//m
+N1=1000//rpm
+N2=375//rpm
+B=20//deg
+A=400*10^-6//m^2
+f=2.1//N/mm^2
+rho=1100//kg/m^3
+u=0.28
+t=42//N/mm^2
+d2=N1*d1/N2//m
+//sin(a)=(r2-r1)/x=0.25
+a=(%pi/180)*14.5
+q=%pi-2*a//rad
+printf("the angle of contact is,%f rad\n",q)
+m=A*rho//kg/m
+v=(%pi*N1*d1)/60//m/s
+Tc=m*v^2//N
+T=f*A*10^6//N
+printf("max tension is,%f N\n",T)
+T1=T-Tc//N
+//log(T1/T2)=u*q*cosec(%pi/180*B)=0.9407
+T2=T1/8.72//N
+Ppb=(T1-T2)*v//W
+printf("power tranmited per belt is,%f W\n",Ppb)
+//n=P/Ppb//
+printf("the number of belts are,%f \n",P/Ppb)
+printf("number of belts are say 10\n")
+n=10
+//let D be dia of shaft
+T3=(P*60)/(2*%pi*N2)*1000//N-mm
+M=(T1+T2+2*Tc)*200*10//N-mm
+Te=sqrt(T3^2 + M^2)
+D=[(Te*16)/(%pi*t)]^(1/3)//m
+printf("shaft dia is,%f mm\n",D)
\ No newline at end of file diff --git a/278/CH20/EX20.5/ex_20_5.sce b/278/CH20/EX20.5/ex_20_5.sce new file mode 100755 index 000000000..f53032495 --- /dev/null +++ b/278/CH20/EX20.5/ex_20_5.sce @@ -0,0 +1,34 @@ +//find..
+clc
+//soltuion
+//given
+P=20000//W
+d1=0.25//m
+N1=1800//rpm
+d2=0.9//m
+x=1//m
+B=20//deg
+u=0.2
+rho=1110//kg/m^3
+f=2.1//N/mm^2
+A=230*10^-6//m^2
+//sin(a)=(r2-r1)/x=0.325
+a=(%pi/180)*18.96
+q1=%pi-2*a//rad
+q2=%pi+2*a
+//since uq for flat pulley si smalll,therfore desing is flat pulley based
+v=(%pi*N1*d1)/60//m/s
+m=A*rho//kg/m
+Tc=m*v^2//N
+printf("the centrifugl tension is,%f N\n",Tc)
+T=f*A*10^6//N
+printf("max tension is,%f N\n",T)
+T1=T-Tc//N
+//log(T1/T2)=u*q2=0.3304
+T2=T1/2.14//N
+Ppb=(T1-T2)*v//W
+printf("power tranmited per belt is,%f W\n",Ppb)
+//n=P/Ppb//
+printf("the number of belts are,%f \n",P/Ppb)
+printf("number of belts are say 5\n")
+n=5
\ No newline at end of file diff --git a/278/CH20/EX20.6/ex_20_6.sce b/278/CH20/EX20.6/ex_20_6.sce new file mode 100755 index 000000000..1cce0d4de --- /dev/null +++ b/278/CH20/EX20.6/ex_20_6.sce @@ -0,0 +1,22 @@ +//find..
+clc
+//soltuion
+//given
+d=2.6//m
+n=15
+B=22.5
+q=2.967//rad
+u=0.28
+T=960//N
+m=1.5//kg/m
+//let N be speed
+v=sqrt(T/(3*m))//m/s
+N=(v*60)/(%pi*d)//rpm
+printf("rpm is,%f rpm\n",N)
+//for max power trans
+Tc=T/3
+T1=T-Tc
+//log(T1/T2)=u*q*cosec(%pi/180*B)=0.9435
+T2=T1/8.78//
+P=(T1-T2)*v*n//W
+printf("the power trans is,%f W\n",P)
\ No newline at end of file diff --git a/278/CH20/EX20.7/ex_20_7.sce b/278/CH20/EX20.7/ex_20_7.sce new file mode 100755 index 000000000..5caa24356 --- /dev/null +++ b/278/CH20/EX20.7/ex_20_7.sce @@ -0,0 +1,23 @@ +//find..
+clc
+//soltuion
+//given
+n=10
+v=25//m/s
+P=115*1000//W
+q=%pi
+B=22.5//deg
+u=0.2
+m=0.6//kg/m
+//let T1 and T2 be tension on tight and slag side
+//P=(T1-T2)*v*n//W
+//T1-T2=460...eq1
+//log(T1/T2)=u*q*cosec(%pi/180*B)=0.714
+T2=T1/5.18//....eq2
+//from eq1 and eq2
+T1=570//N
+T2=110//N
+Tc=m*v^2
+Tt1=T1+Tc
+Tt2=T2+Tc
+printf("the value of Tt1 and Tt2 is,%f N\n,%f N",Tt1,Tt2)
diff --git a/278/CH20/EX20.8/ex_20_8.sce b/278/CH20/EX20.8/ex_20_8.sce new file mode 100755 index 000000000..d4ecae7c1 --- /dev/null +++ b/278/CH20/EX20.8/ex_20_8.sce @@ -0,0 +1,23 @@ +//find..
+clc
+//soltuion
+//given
+P=600*1000//W
+d=4//m
+N=90//rpm
+q=2.8//rad
+B=22.5//deg
+u=0.28
+m=1.5//kg/m
+T=2400//N
+v=(%pi*N*d)/60//m/s
+Tc=m*v^2//N
+printf("the centrifugl tension is,%f N\n",Tc)
+T1=T-Tc//N
+//log(T1/T2)=u*q*cosec(%pi/180*B)=0.8907
+T2=T1/7.78//N
+Ppb=(T1-T2)*v//W
+printf("power tranmited per belt is,%f W\n",Ppb)
+//n=P/Ppb//
+printf("the number of belts are,%f \n",P/Ppb)
+printf("number of belts are say 20\n")
\ No newline at end of file diff --git a/278/CH20/EX20.9/ex_20_10.sce b/278/CH20/EX20.9/ex_20_10.sce new file mode 100755 index 000000000..4553282a6 --- /dev/null +++ b/278/CH20/EX20.9/ex_20_10.sce @@ -0,0 +1,39 @@ +//design wire rope
+clc
+//soltuion
+//given
+W=55000//N
+depth=300//m
+v=500//m/min
+t=10//s
+//ref T20.6,we choose rope type 6*19
+//,tab; 20.11,Fs =7,for depth 300 to 600m,design load is calculated by taking 2 to 2.5 times factor of safety fiven is table
+//ref table 20.11
+Designload=15*55*1000//N
+//ref table 20.6,tesnile strength of 6*19 is=595*d^2
+//595d^2=designload
+//d=sqrt(Desingload/595)//mm
+printf("the dia of rope is,%f mm\n",sqrt(Designload/595))
+printf("the dia of rope is,say 38mm\n")
+d=38//mm
+dw=0.063*d//ref table 20.10,dw=dia of wire
+A=0.38*d^2
+//ref table 20.6
+w=0.0363*d^2*depth//N
+//ref table 20.12
+D=100*d
+fb=84000*dw/D
+printf("bending stress acting is,%f N/mm^2\n",fb)
+Wb=fb*A//N
+printf("the bending load on rope is,%f N\n",Wb)
+a=v/(60*t)//acceleration
+g=9.81//m/s^2
+Wa=(W+w)/g*a//additonal load
+printf("additional load due to acc si,%f N\n",Wa)
+Wst=2*(W+w)
+printf("the starting load acting is,%f N\n",Wst)
+We=W+w+Wb//N
+printf("effctive load during uniform velocity is,%f N\n",We)
+Fsa=Designload/We
+printf("actual factor of safety is,%f \n",Fsa)
+printf("since factor of safety caculated above are safe,therefore wire rope of dia 38mm and 6*19 is chosen")
\ No newline at end of file |