summaryrefslogtreecommitdiff
path: root/278/CH18
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /278/CH18
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/CH18')
-rwxr-xr-x278/CH18/EX18.1/ex_18_1.sce17
-rwxr-xr-x278/CH18/EX18.10/ex_18_10.sce51
-rwxr-xr-x278/CH18/EX18.11/ex_18_11.sce43
-rwxr-xr-x278/CH18/EX18.2/ex_18_2.sce27
-rwxr-xr-x278/CH18/EX18.3/ex_18_3.sce31
-rwxr-xr-x278/CH18/EX18.4/ex_18_4.sce28
-rwxr-xr-x278/CH18/EX18.5/ex_18_5.sce33
-rwxr-xr-x278/CH18/EX18.7/ex_18_7.sce44
-rwxr-xr-x278/CH18/EX18.8/ex_18_8.sce24
-rwxr-xr-x278/CH18/EX18.9/ex_18_9.sce26
10 files changed, 324 insertions, 0 deletions
diff --git a/278/CH18/EX18.1/ex_18_1.sce b/278/CH18/EX18.1/ex_18_1.sce
new file mode 100755
index 000000000..53b6ef6bc
--- /dev/null
+++ b/278/CH18/EX18.1/ex_18_1.sce
@@ -0,0 +1,17 @@
+//find..
+clc
+//soltuion
+//given
+N1=150//rpm
+d1=750//rpm
+d2=450//mm
+d3=900//mm
+d4=150//mm
+s1=0.02
+s2=0.02
+//ref fig 18.12
+N4={(d1*d3)/(d2*d4)}*N1//rpm
+printf("the value of N4 is,%f rpm\n",N4)
+//wen slip is there
+N4s={(d1*d3)/(d2*d4)}*N1*(1-s1)*(1-s2)//rpm
+printf("the value N4 when slip is there is,%f rpm",N4s)
diff --git a/278/CH18/EX18.10/ex_18_10.sce b/278/CH18/EX18.10/ex_18_10.sce
new file mode 100755
index 000000000..92d3fdb57
--- /dev/null
+++ b/278/CH18/EX18.10/ex_18_10.sce
@@ -0,0 +1,51 @@
+//find..
+clc
+//soltuion
+//given
+N2=600//rpm
+P=15*1000//w
+N1=1750//rpm
+rho=1000//kg/m^3
+f=4*10^6//N/m^2
+u1=0.5
+u2=0.4
+v=20//m/s
+//ref fig 18.21
+d1=v*60/(%pi*N1)//m
+d2=v*60/(%pi*N2)//m
+printf("the dia of mottr and blower pulley are,%f m\n,%f m\n",d1,d2)
+x=2*d2//m
+L=(%pi/2)*(d1+d2)+(2*x)+(d1-d2)^2/(4*x)
+printf("the length of belt is,%f m\n",L)
+//sin(a)=(r1-r2)/x=0.1643
+a=(%pi/180)*9.46//rad
+q=%pi-2*a//rad
+q2=%pi+2*a
+//since u1*q1 >u2*q2,therfore design is blower based
+
+//let T1 and T2 be tneion on tight and slag side
+//P=(T1-T2)*v
+//T1-T2=750//N
+//log(T1/T2)=u*q=0.4*q2=0.6035
+//T2=T1/4//N
+T1=1000//N
+T2=250//N
+//let a be the area
+//m=a*rho=1500*a//mass/length
+//Tc=m*v^2=0.6*10^6*a//N
+//T=T1+Tc=1000+(0.6*10^6*a)...eq1
+//T=f*a=4*10^6*a....eq2
+//eq1=eq2
+a=1000/(3.4*10^6)//m^2
+printf("the area of belt is,%f m^2\n",a)
+Tc=0.6*10^6*a//N
+To=(T1+T2+2*Tc)/2//N
+printf("min initial tension is,%f N\n",To)
+Toi=To+(0.5)*To//N//increased initial tensaion
+//Toi=(T1i+T2i+2*Tc)/2//N
+//T1i+T2i=2051.2...eq3
+//T1i/T2i=4...eq4
+//from eq3 an eq4
+T1i=1640.96//N
+T2i=T1i/4
+printf("the resultant force in plane of blower is,%f N",T1i-T2i)
diff --git a/278/CH18/EX18.11/ex_18_11.sce b/278/CH18/EX18.11/ex_18_11.sce
new file mode 100755
index 000000000..f8a93cc35
--- /dev/null
+++ b/278/CH18/EX18.11/ex_18_11.sce
@@ -0,0 +1,43 @@
+//find..
+clc
+//soltuion
+//given
+d1=0.3//m
+d2=0.45//m
+q1=2.8//rad
+q2=3.66//rad
+N1=200//rpm
+u=0.25
+P=3000//W
+//let T1 and T2 be tneion on tight and slag side
+//since q2>q1,therfore design is smaller pulley based
+v=%pi*N1*d1/60//m/s
+//P=(T1-T2)*v
+//T1-T2=955//N
+//log(T1/T2)=u*q=0.25*q1=0.3043
+//T2=T1/2.015//N
+T1=1896//N
+T2=941//N
+To=(T1+T2)/2
+Toi=To+(0.1)*To//N//incresed initial tension
+//Toi=(T11+T22)/2//N
+//T11+T22=2*Toi//N
+//T11+T22=3120.7//N....eq1
+//T12/T22=2.015...eq2
+//from eq1 and eq2
+T11=2085.7
+T22=1035//N
+P1=(T11-T22)*v
+u1=u+(0.1)*u
+//log(T111/T222)=u1*q1=0.3348
+//T111/T222=2.16
+//Toi=(T111+T222)/2.....eq3
+//T111+T222=2837....eq4
+//from eq3 and eq4
+T111=1939//N
+T222=898//N
+P2=(T111-T222)*v//W
+pi1=((P1-P)/P)*100
+pi2=((P2-P)/P)*100
+printf("the perctage inc in power wen initial tension is inc is,%f \n",pi1)
+printf("the %age perct inc inpower wen coefficient of riction si,%f",pi2)
diff --git a/278/CH18/EX18.2/ex_18_2.sce b/278/CH18/EX18.2/ex_18_2.sce
new file mode 100755
index 000000000..bf5cdcde2
--- /dev/null
+++ b/278/CH18/EX18.2/ex_18_2.sce
@@ -0,0 +1,27 @@
+//find..
+clc
+//soltuion
+//given
+d1=0.450//rpm
+r1=0.225//m
+d2=0.2//m
+r2=0.1//m
+N1=200//rpm
+x=1.95//m
+T1=1000//N
+u=0.25
+//ref fig 18.17
+L=%pi*(r1+r2)+2*x+(r1+r2)^2/x//m
+printf("the length of belt is,%f m\n",L)
+//sin(a)=(r1+r2)/x=0.1667
+//a=9.6//deg
+a=(%pi/180)*9.6//rad
+q=%pi+(2*a)//rad
+printf("te angle of contact is,%f rad\n",q)
+//let T1 and T2 be tneion on tight and slag side
+//T1/T2=y
+//log(T1/T2)=u*q=0.25*3.477=0.8693
+T2=T1/2.387//N
+v=%pi*N1*d1/60//m/s
+P=(T1-T2)*v
+printf("the power transmitted is,%f W\n",P) \ No newline at end of file
diff --git a/278/CH18/EX18.3/ex_18_3.sce b/278/CH18/EX18.3/ex_18_3.sce
new file mode 100755
index 000000000..b260d413d
--- /dev/null
+++ b/278/CH18/EX18.3/ex_18_3.sce
@@ -0,0 +1,31 @@
+//find..
+clc
+//soltuion
+//given
+t=0.009//m
+b=0.25//m
+d=0.9//m
+N=336//rpm
+q=2.1//rad
+f=2//N/mm^2
+rho=980//kg/m^3
+u=0.35
+v=%pi*N*d/60//m/s
+a=b*t//area
+Tt1=f*a*1000*1000//N
+T=Tt1
+printf("the value of Tt1 is,%f N\n",Tt1)
+m=a*rho//mass/length
+Tc=m*v^2//N
+printf("the centrifugal tension is,%f N\n",Tc)
+T1=T-Tc//N
+//let T1 and T2 be tneion on tight and slag side
+//T1/T2=y
+//log(T1/T2)=u*q=0.25*3.477=0.735
+T2=T1/2.085//N
+printf("the value of T2 is,%f N\n",T2)
+P=(T1-T2)*v//W
+printf("the poweer capacity is,%f W\n",P)
+Tt2=T2+Tc//N
+P1=(Tt1-Tt2)*v//W
+printf("the power capcity by taking centrifugal force is,%f W\n",P1) \ No newline at end of file
diff --git a/278/CH18/EX18.4/ex_18_4.sce b/278/CH18/EX18.4/ex_18_4.sce
new file mode 100755
index 000000000..ace70f5e3
--- /dev/null
+++ b/278/CH18/EX18.4/ex_18_4.sce
@@ -0,0 +1,28 @@
+//find..
+clc
+//soltuion
+//given
+P=30000//W
+d=1.5//m
+N=300//rpm
+q=2.88//rad
+u=0.3
+t=0.0095//m
+rho=1100//kg/m^3
+f=2.5*10^6//N/m^2
+//let T1 and T2 be tneion on tight and slag side
+v=%pi*N*d/60//m/s
+printf("the vel of belt is,%f m/s\n",v)
+//P=(T1-T2)*v//W
+//T1-T2=P/v=1273//N
+//log(T1/T2)=u*q=0.25*3.477=2.375
+//T2=T1/2.375//N
+T1=2199//N
+T2=926//N
+//let b is width
+//m=A*rho=b*t*rho=10.45*b//kg/m
+//Tc=m*v^2=5805*b
+//T=T1+Tc=f*b*t
+//23750*b=2199+5805*b
+b=2199/(23750-5805)//m
+printf("the widht of belt is,%f m\n",b) \ No newline at end of file
diff --git a/278/CH18/EX18.5/ex_18_5.sce b/278/CH18/EX18.5/ex_18_5.sce
new file mode 100755
index 000000000..f3a85c3e6
--- /dev/null
+++ b/278/CH18/EX18.5/ex_18_5.sce
@@ -0,0 +1,33 @@
+//find..
+clc
+//soltuion
+//given
+d1=400//mm
+r1=200//mm
+d2=1600//mm
+r2=800//mm
+q1=2.5//rad
+q2=3.78//rad
+u1=0.3
+u2=0.25
+N1=700//rpm
+P=22.5*10^3//W
+t=0.005//mm
+f=2.3*10^6//N/m^2
+//ref fig 18.19
+v=%pi*N1*d1/60//m/s
+//let T1 and T2 be tneion on tight and slag side
+printf("the vel of belt is,%f m/s\n",v)
+//P=(T1-T2)*v//W
+//T1-T2=P/v=1530//N
+//log(T1/T2)=u*q=0.25*3.477=0.75
+//T2=T1/2.21//N
+T1=2896//N
+T2=1366//N
+//let b is width
+//m=A*rho=b*t*rho=5*b//kg/m
+//Tc=m*v^2=1080*b
+//T=T1+Tc=f*b*t
+//11500*b=2896+1080*b
+b=2896/(11500-1080)//m
+printf("the widht of belt is,%f m\n",b) \ No newline at end of file
diff --git a/278/CH18/EX18.7/ex_18_7.sce b/278/CH18/EX18.7/ex_18_7.sce
new file mode 100755
index 000000000..90635d628
--- /dev/null
+++ b/278/CH18/EX18.7/ex_18_7.sce
@@ -0,0 +1,44 @@
+//find..
+clc
+//soltuion
+//given
+P=110*1000//W
+d1=0.9//m
+r1=0.45//m
+d2=1.2//m
+r2=0.6//m
+v=20//m/s
+x=3.6//m
+u=0.3
+s1=0.012
+s2=0.012
+rho=100//kg/m^3
+//v=%pi*N1*d1/60*(1-s1)//m/s
+N1=20/0.0466//rpm
+//v*(1-s2)=%pi*N2*d2/60//m/s
+N2=19.76*60/(%pi*1.2)//rpm
+T=P*60/(2*%pi*N2)
+//since there is 5% friction
+Tn=1.05*T//net torque
+//since belt is to designed for 20% overload
+TN=1.2*Tn//N-m
+//let T1 and T2 be tneion on tight and slag side
+//TN=(T1-T2)*r2
+//T1-T2=TN/r2=7000/N
+//sin(a)=(r2-r1)/x=2.4 deg
+a=(%pi/180)*2.4//rad
+q1=%pi-a//rad
+printf("the angle of contact is,%f rad \n",q1)
+//log(T1/T2)=u*q1=0.3*q1=0.918
+//T2=T1/2.51//N
+T1=11636//N
+T2=4636//N
+//let b is width
+//m=A*rho=b*t*rho=15*b//kg/m
+//Tc=m*v^2=6000*b
+//T=T1+Tc=f*b*t
+//37500*b=11636+6000*b
+b=11636/(37500-6000)//m
+printf("the widht of belt is,%f m\n",b)
+L=%pi*(r1+r2)+2*x+(r1+r2)^2/x//m
+printf("the length of belt is,%f m",L) \ No newline at end of file
diff --git a/278/CH18/EX18.8/ex_18_8.sce b/278/CH18/EX18.8/ex_18_8.sce
new file mode 100755
index 000000000..18f8210dc
--- /dev/null
+++ b/278/CH18/EX18.8/ex_18_8.sce
@@ -0,0 +1,24 @@
+//find..
+clc
+//soltuion
+//given
+b=0.100//m
+t=0.01//m
+v=16.67//m/s
+//T1-T2=1.8 *T2
+f=1.6//N/mm^2
+rho=1000//kg/m^3
+//let T1 and T2 be tneion on tight and slag side
+T=f*b*t*10^6//N//max tension
+m=0.1*0.01*1000//kg/m
+Tc=m*v^2//N
+T1=T-Tc//N
+T2=T1/2.8//N
+P=(T1-T2)*v
+printf("the power transmitted is,%f W\n",P)
+vm=sqrt(T/(3*m))//m/s
+Tc1=T/3//N
+T11=T-Tc1
+T21=T11/2.8
+P1=(T11-T21)*vm
+printf("the max power tans is,%f W\n",P1) \ No newline at end of file
diff --git a/278/CH18/EX18.9/ex_18_9.sce b/278/CH18/EX18.9/ex_18_9.sce
new file mode 100755
index 000000000..2a13c8873
--- /dev/null
+++ b/278/CH18/EX18.9/ex_18_9.sce
@@ -0,0 +1,26 @@
+//find..
+clc
+//soltuion
+//given
+x=4.8//m
+d1=1.5//m
+d2=1//m
+To=3000//N
+m=1.5//kg/m
+u=0.3
+N2=400//rpm
+v=%pi*N2*d2/60//m/s
+Tc=m*v^2
+//let T1 and T2 be tneion on tight and slag side
+//To=(T1+T2+2*Tc)/2
+//T1+T2=4677
+//sin(a)=(r1-r2)/x=0.0521
+a=(%pi/180)*3//rad
+q=%pi-2*a//rad
+printf("the angle of contact is,% f rad\n",q)
+//log(T1/T2)=u*q=0.3*q=0.3965
+//T2=T1/2.5//N
+T1=3341//N
+T2=1336//N
+P=(T1-T2)*v
+printf("the power transmitted is,%f W\n",P)
generated by cgit (git 2.34.1) at 2025-03-12 11:26:19 +0000