diff options
Diffstat (limited to '1627')
57 files changed, 865 insertions, 0 deletions
diff --git a/1627/CH1/EX1.1/Ex1_1.sce b/1627/CH1/EX1.1/Ex1_1.sce new file mode 100644 index 000000000..0b623817d --- /dev/null +++ b/1627/CH1/EX1.1/Ex1_1.sce @@ -0,0 +1,8 @@ +clc
+//initialisation of variables
+M=5*14.59//slugs
+g=9.8//m/s^2
+//CALCULATIONS
+W=M*g//N
+//RESULTS
+printf('The weight of substance is=% f N',W)
diff --git a/1627/CH10/EX10.2/Ex10_2.sce b/1627/CH10/EX10.2/Ex10_2.sce new file mode 100644 index 000000000..c07e8f124 --- /dev/null +++ b/1627/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+p=38//cm^3/rev
+Q=65//min
+d=1800//rpm
+p1=103//bars
+h=1/1000//rev/min
+//CALCULATIONS
+Q1=p*h*d//min
+Ev=Q/Q1*100//percent
+Ta=(p*10^-6)*(p1*10^5)/(2*(%pi))//N.m
+//RESULTS
+printf('The volumetric efficiency and torque applied to the shaft is=% f N.m',Ta)
diff --git a/1627/CH10/EX10.3/Ex10_3.sce b/1627/CH10/EX10.3/Ex10_3.sce new file mode 100644 index 000000000..adab23125 --- /dev/null +++ b/1627/CH10/EX10.3/Ex10_3.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+a=45//deg
+b=120//deg
+r=1750//rpm
+v=15//cm
+p=1000//N.s/m^4
+u1=15*10^-2//m
+v1=0.5//m
+//CALCULATIONS
+U2=(2*%pi*r/60)*u1//m/s
+V1=U2-[(v*v1)]//m/s
+P=U2*V1//kPa
+//RESULTS
+printf('The pressure =% f kPa',P)
diff --git a/1627/CH10/EX10.4/Ex10_4.sce b/1627/CH10/EX10.4/Ex10_4.sce new file mode 100644 index 000000000..b27633ea3 --- /dev/null +++ b/1627/CH10/EX10.4/Ex10_4.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+p=1000//N.s^2/m^4
+r=220//rpm
+d=3.5//m^3/s
+p1=25//m/s
+r1=0.75//m
+r2=0.60//m
+U1=(2*%pi*r/60)*r1//m/s
+U2=(2*%pi*r/60)*r2//m/s
+v=0.5//m
+v1=0.707//m
+p2=10//m
+//CALCULATIONS
+V1=U1+p1*v//m/s
+V2=U2-(p2)*v1//m/s
+P=(p*d)*[(U1*V1)-(U2*V2)]//J/s
+//RESULTS
+printf('The power developed by the turbine wheel is=% f J/s',P)
diff --git a/1627/CH10/EX10.5/Ex10_5.sce b/1627/CH10/EX10.5/Ex10_5.sce new file mode 100644 index 000000000..d1bb59bc7 --- /dev/null +++ b/1627/CH10/EX10.5/Ex10_5.sce @@ -0,0 +1,8 @@ +clc
+//initialisation of variables
+N=100//rpm
+f=60//cps
+//CALCULATIONS
+P=120*f/N//poles
+//RESULTS
+printf('The poles is=% f poles',P)
diff --git a/1627/CH2/EX2.1/Ex2_1.sce b/1627/CH2/EX2.1/Ex2_1.sce new file mode 100644 index 000000000..759d8165f --- /dev/null +++ b/1627/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+w=3//mm
+s=7.26*10^-2//N/m
+g=9.79*10^3//N/m^3
+d=3*10^-3//m
+//CALCULATIONS
+h=(4*s)/(g*d)//m
+//RESULTS
+printf('The rise of water above the surface is=% f m',h)
diff --git a/1627/CH2/EX2.2/Ex2_2.sce b/1627/CH2/EX2.2/Ex2_2.sce new file mode 100644 index 000000000..ed987ce75 --- /dev/null +++ b/1627/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,20 @@ +clc
+//initialisation of variables
+sb=7.8
+sg=0.97
+v=75*10^-3//m/s
+r=1.5*10^-3//m
+g=9788.12//N/m^3
+g1=978.81//dyne/cm^3
+r1=1.5*10^-1//cm
+v1=75*10^-1//cm/s
+r2=1.5*32.81*10^-4//ft
+g2=62.31//lbf/ft^3
+v2=75*32.81*10^-4//ft/s
+//CALCULATIONS
+Mu=(2/9)*(r^2*g)*(sb-sg)/(v)//N S/m^2
+Mu1=(2/9)*(r1^2*g1)*(sb-sg)/(v1)//dyne s/cm^2
+Mu2=(2/9)*(r2^2*g2)*(sb-sg)/(v2)//lbf s/ft^2
+M=Mu2*(1/144)//lbf s/in^2
+//RESULTS
+printf('The absolute viscosity of fluid is =% f lbf s/ft^2',M)
diff --git a/1627/CH3/EX3.1/Ex3_1.sce b/1627/CH3/EX3.1/Ex3_1.sce new file mode 100644 index 000000000..0d52c073b --- /dev/null +++ b/1627/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+F=150//N
+a1=25//m
+A=(25)*(10^-6)//mm^2
+a=100//mm^2
+q=9.806//N/kgf
+//CALCULATIONS
+P=F/A//N/m^2
+P1=F/((q)*A)//kgf/cm^2
+F2=F*a/a1//N
+F3=(F*a)/(q*a1)//kgf
+//RESULTS
+printf('The force on the larger piston in newtons and kilograms force is=% f kgf',F3)
diff --git a/1627/CH3/EX3.2/Ex3_2.sce b/1627/CH3/EX3.2/Ex3_2.sce new file mode 100644 index 000000000..1c73f04c7 --- /dev/null +++ b/1627/CH3/EX3.2/Ex3_2.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+F=35.5*10^4//N
+p=100*10^5//bars
+q=%pi//ft
+//CALCULATIONS
+D=sqrt((4*F)/(q*p))*1000//mm
+//RESULTS
+printf('The cylinder size is =% f mm',D)
diff --git a/1627/CH3/EX3.3/Ex3_3.sce b/1627/CH3/EX3.3/Ex3_3.sce new file mode 100644 index 000000000..69fabab63 --- /dev/null +++ b/1627/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+d=100*10^-3//m
+p=35*10^6//N/m^2
+c=5.17*10^8//N/m^2
+//CALCULATIONS
+Tc=(p*d)/(2*c)*1000//mm
+f=Tc*2//mm
+//RESULTS
+printf('The safety factor is=% f mm',f)
diff --git a/1627/CH3/EX3.4/Ex3_4.sce b/1627/CH3/EX3.4/Ex3_4.sce new file mode 100644 index 000000000..3ec6b4e06 --- /dev/null +++ b/1627/CH3/EX3.4/Ex3_4.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+w=300//m
+w1=9788//N/m^3
+m=0.433//psi
+m1=3.2808//ft/m
+//CALCULATIONS
+P=(w1*w)//N/m^3
+P1=m*(w*m1)//lbf/in^2
+//RESULTS
+printf('The pressure is =% f lbf/in^2',P1)
diff --git a/1627/CH3/EX3.5/Ex3_5.sce b/1627/CH3/EX3.5/Ex3_5.sce new file mode 100644 index 000000000..a6151d8d4 --- /dev/null +++ b/1627/CH3/EX3.5/Ex3_5.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+t=30//deg
+y=9802//N/m^3
+sg=0.78
+r=6*10^-2//m
+//CALCULATIONS
+P=(1/2)*y*sg*r//Pa
+//RESULTS
+printf('The pressure is=% f Pa',P)
diff --git a/1627/CH3/EX3.6/Ex3_6.sce b/1627/CH3/EX3.6/Ex3_6.sce new file mode 100644 index 000000000..30b002743 --- /dev/null +++ b/1627/CH3/EX3.6/Ex3_6.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+p=0.5//m
+w=3//m
+t=20//deg
+p1=3/2//m
+ht=0
+y=9802//N/m^3
+p=2/3//m
+//CALCULATIONS
+hb=w*sind(t)//m
+h=(ht+hb/2)//m
+F=y*h*p*w//N
+Xp=p*w//m
+//RESULTS
+printf('The total force on the plane and distance to the center of pressure is=% f m',Xp)
diff --git a/1627/CH3/EX3.7/Ex3_7.sce b/1627/CH3/EX3.7/Ex3_7.sce new file mode 100644 index 000000000..cec536a45 --- /dev/null +++ b/1627/CH3/EX3.7/Ex3_7.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+w=5//m
+w1=10//m
+a=60//deg
+y=9802//N/m^3
+//CALCULATIONS
+h=w+((w/2)*sind(a))//m
+F=y*h*(w*w1)//kN
+y2=w+w*sind(a)//m
+Xp=w*[1-(1/3)*(w1+y2)/(w+y2)]//m
+hc=w+Xp*sind(a)//m
+//RESULTS
+printf('The distance from to the center of pressure is=% f m',hc)
diff --git a/1627/CH3/EX3.8/Ex3_8.sce b/1627/CH3/EX3.8/Ex3_8.sce new file mode 100644 index 000000000..07719f87b --- /dev/null +++ b/1627/CH3/EX3.8/Ex3_8.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+y=9802//N/m^3
+d=3.5*0.25*0.20//m^3
+v=11.5*0.82*0.65//ft^3
+g=62.4//lbf/ft^3
+//CALCULATIONS
+F=y*d//N
+F1=g*v//lbf
+//RESULTS
+printf('The buoyant force acting on the underside of the tie=is=% f lbf',F1)
diff --git a/1627/CH3/EX3.9/Ex3_9.sce b/1627/CH3/EX3.9/Ex3_9.sce new file mode 100644 index 000000000..11930572a --- /dev/null +++ b/1627/CH3/EX3.9/Ex3_9.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+p=%pi
+d=0.09//m^2
+w=0.75//m
+d1=15//m
+d2=30//cm
+s=9802//N/m^3
+r=0.25//m
+g=1.00//m
+//CALCULATIONS
+V=p*d*r*d1//m^3
+F=w*s*V//N
+V0=F/(g*s)//m^3
+h=(4*V0)/(p*d)//m
+//RESULTS
+printf('The pole touch the botton without additionnal support or weight=% f m',h)
diff --git a/1627/CH4/EX4.1/Ex4_1.sce b/1627/CH4/EX4.1/Ex4_1.sce new file mode 100644 index 000000000..c014b097f --- /dev/null +++ b/1627/CH4/EX4.1/Ex4_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+a1=44.16//cm^2
+a2=4.91//cm^2
+b1=75//mm
+b2=25//mm
+//CALCULATIONS
+V=b2*[2*a1-a2]//cm^3
+//RESULTS
+printf('The displacement per cycle is=% f cm^3',V)
diff --git a/1627/CH4/EX4.10/Ex4_10.sce b/1627/CH4/EX4.10/Ex4_10.sce new file mode 100644 index 000000000..98e8ca1a2 --- /dev/null +++ b/1627/CH4/EX4.10/Ex4_10.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+h=10//m
+h1=20//m
+g=9.8//m/s^2
+//CALCULATIONS
+V=sqrt(2*g*h)//m/s
+T=sqrt((2)*(h1)/g)//s
+L=V*T//m
+//RESULTS
+printf('The water steram touch the ground is=% f m',L)
diff --git a/1627/CH4/EX4.2/Ex4_2.sce b/1627/CH4/EX4.2/Ex4_2.sce new file mode 100644 index 000000000..cb12fca5e --- /dev/null +++ b/1627/CH4/EX4.2/Ex4_2.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+a=30//cm
+w=3//m/s
+p=61.02//in^2
+g=9.84//ft/sec
+w2=60//s/min
+r=1/231//gal/in^3
+//CALCULATIONS
+Q=%pi*(a*10^-2)^2/4*w*(w2)//m^3/min
+Q1=Q*(10^3)*p*(r)//gpm
+//RESULTS
+printf('The capacity of =% f gpm',Q1)
diff --git a/1627/CH4/EX4.3/Ex4_3.sce b/1627/CH4/EX4.3/Ex4_3.sce new file mode 100644 index 000000000..ae106360c --- /dev/null +++ b/1627/CH4/EX4.3/Ex4_3.sce @@ -0,0 +1,25 @@ +clc
+//initialisation of variables
+a=5//cm
+b=25//cm
+s=8.5//bars
+r=40//cpm
+T=460//F
+p2=77//ft
+p1=68//ft
+T1=273//F
+T2=273//F
+t=20//c
+d=1.01*10^5//N/m^2
+q2=61024//in^3/m^3
+q3=1/1728//ft^3/in^3
+p=14.7//psi
+//CALCULATIONS
+Q=%pi*((a*10^-2)^2/4)*(b*10^-2)*(r)*1000//m^3/min
+Q2=((s*10^5+d)*Q)/d*0.001//m^3/min
+Q3=Q2*(t+T1)/(b+T2)//m^3/min free air
+Q4=Q*q2*q3*0.001//cfm
+Q5=(s*14.5+p)*(Q4)/p//cfm free air
+Q6=Q5*(p1+T)/(p2+T)//cfm free air
+//RESULTS
+printf('The air consumption in units of free air is=% f cfm free air',Q6)
diff --git a/1627/CH4/EX4.4/Ex4_4.sce b/1627/CH4/EX4.4/Ex4_4.sce new file mode 100644 index 000000000..c43139527 --- /dev/null +++ b/1627/CH4/EX4.4/Ex4_4.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+f=5//cm
+d=10//cm
+r=150//liters
+p=4//in
+A2=7.84*10^-3//m^2
+//CALCULATIONS
+A=((%pi)*(f*10^-2)^2)/p//m^2
+V1=(r*10^-3)*(1/60)/A//m/s
+V2=(A*V1)/A2//m/s
+//RESULTS
+printf('The velocity of the fluid in both pipes=% f m/s',V2)
diff --git a/1627/CH4/EX4.5/Ex4_5.sce b/1627/CH4/EX4.5/Ex4_5.sce new file mode 100644 index 000000000..f2372c71a --- /dev/null +++ b/1627/CH4/EX4.5/Ex4_5.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+p=8000*10^-3//liters/min
+r=15*10^-2//cm
+v=2.5//m
+//CALCULATIONS
+V1=(4*(p)*(1/60))/(%pi*(r)^2)//m/s
+D=sqrt(4*(p)*(1/60)/(%pi*v))*100//cm
+//RESULTS
+printf('The diameter of the suction line is=% f cm',D)
diff --git a/1627/CH4/EX4.6/Ex4_6.sce b/1627/CH4/EX4.6/Ex4_6.sce new file mode 100644 index 000000000..e9b61a4bf --- /dev/null +++ b/1627/CH4/EX4.6/Ex4_6.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+r=2000*10^-3//liters/min
+s=0.85
+d=10*10^-2//cm
+d1=3*10^-2//m
+p=6.5//MPa
+g=9.8//ft
+a=1.02*10^-4//m^3/N
+p1=780.92//m
+b=6.5*10^6//N/m^2
+//CALCULATIONS
+V1=(4*(r)*(1/60))/(%pi)*(d)^2//m/s
+V2=(4*(r)*(1/60))/((%pi/(d1)^2))//m/s
+P1=((a*b)/s)+((V1)/(2*g))+(V1/(2*g))
+P2=sqrt((V2)/(2*g))/((a/s))/2//MPa
+//RESULTS
+printf('The work is done or energy dissipated from the system is=% f MPa',P2)
diff --git a/1627/CH4/EX4.7/Ex4_7.sce b/1627/CH4/EX4.7/Ex4_7.sce new file mode 100644 index 000000000..ec555e440 --- /dev/null +++ b/1627/CH4/EX4.7/Ex4_7.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+p=65*10^5//N/m^2
+r=8000//liters/minute
+p1=25*10^5//bars
+sg=0.85
+a=1.02*10^-4//m^3
+b=15*10^5//N/m^2
+//CALCULATIONS
+Ha=(a*p)/sg//m
+He=Ha-(a*p1)/sg//m
+H=Ha-He//m
+//RESULTS
+printf('The energy extracted from the fluid in terms corresponding to head=% f m',H)
diff --git a/1627/CH4/EX4.8/Ex4_8.sce b/1627/CH4/EX4.8/Ex4_8.sce new file mode 100644 index 000000000..2cf45a333 --- /dev/null +++ b/1627/CH4/EX4.8/Ex4_8.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+p=1.227//kg
+v=90.27//m/s^2
+p1=1.01*10^5//N/m^2
+//CALCULATIONS
+Ps=p1+(1/2)*(p*v)//N/m^2
+//RESULTS
+printf('The stagnation pressure is=% f N/m^2',Ps)
diff --git a/1627/CH4/EX4.9/Ex4_9.sce b/1627/CH4/EX4.9/Ex4_9.sce new file mode 100644 index 000000000..20d218ff8 --- /dev/null +++ b/1627/CH4/EX4.9/Ex4_9.sce @@ -0,0 +1,8 @@ +clc
+//initialisation of variables
+g=9.8//m/s^2
+h=20//m
+//CALCULATIONS
+V=sqrt(2*g*h)//m//s
+//RESULTS
+printf('The velocity is=% f m/s',V)
diff --git a/1627/CH5/EX5.1/Ex5_1.sce b/1627/CH5/EX5.1/Ex5_1.sce new file mode 100644 index 000000000..e4f77fc1b --- /dev/null +++ b/1627/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+h=50//m
+l=250//m^3
+F=9802//N/m^3
+t=1//s
+h1=50*3.2808//ft/m
+l1=250*35.31//ft/m
+q=62.4//lb/ft^3
+h1=746
+//CALCULATIONS
+P=(F*l*h)/t//MW
+P1=q*l1*h1/t//ft-lb/sec
+HP=P/h1//kHP
+//RESULTS
+printf('The horsepower potential is=% f kHP',HP)
diff --git a/1627/CH5/EX5.2/Ex5_2.sce b/1627/CH5/EX5.2/Ex5_2.sce new file mode 100644 index 000000000..19f2eacc2 --- /dev/null +++ b/1627/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+m=1635//kg
+g=9.8//m/s^2
+a=10*10^-2//m
+s=150//cm
+A=78.5//cm^2
+t=4//s
+p1=7460
+//CALCULATIONS
+P=(4*m*g)/(%pi)*(a)^2//Pa
+CHP=(P)*(A)*(s)/((p1)*(t))*0.1//hp
+//RESULTS
+printf('The system pressure and cylinder horsepower is=% f hp',CHP)
diff --git a/1627/CH5/EX5.3/Ex5_3.sce b/1627/CH5/EX5.3/Ex5_3.sce new file mode 100644 index 000000000..42e8c9e31 --- /dev/null +++ b/1627/CH5/EX5.3/Ex5_3.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+P=135//bars
+Q=201//min
+p=448
+//CALCULATIONS
+FPH=P*Q/p*0.1//hp
+//RESULTS
+printf('The fluid horsepower potential of the system is=% f hp',FPH)
diff --git a/1627/CH5/EX5.4/Ex5_4.sce b/1627/CH5/EX5.4/Ex5_4.sce new file mode 100644 index 000000000..52b23fc9a --- /dev/null +++ b/1627/CH5/EX5.4/Ex5_4.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+t=12//hp
+N=1500//rpm
+p=44760//N m
+//CALCULATIONS
+T=(t*p)/((2*%pi)*(N))//N.m
+//RESULTS
+printf('The fluid power motor turning at=% f N.m',T)
diff --git a/1627/CH5/EX5.5/Ex5_5.sce b/1627/CH5/EX5.5/Ex5_5.sce new file mode 100644 index 000000000..dcea91ee8 --- /dev/null +++ b/1627/CH5/EX5.5/Ex5_5.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+sg=0.86
+m=6*10^-3//N.s/m^2
+f=250*10^-3//liters/min
+t=1/60//sec
+d=5*10^-2//m
+y=9802//N/m^3
+g=9.8//m/s^2
+//CALCULATIONS
+V=(4*f*t)/((%pi)*(d)^2)//m/s
+P=(y*sg)/(g)//N.s^2/m^4
+NR=(V*d*P)/(m)
+//RESULTS
+printf('The lminr or flow turbulent=% f',NR)
diff --git a/1627/CH5/EX5.6/Ex5_6.sce b/1627/CH5/EX5.6/Ex5_6.sce new file mode 100644 index 000000000..3d5d7308e --- /dev/null +++ b/1627/CH5/EX5.6/Ex5_6.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+m=27*10^-3//N.s/m^2
+sg=0.90
+m1=27//cp
+v1=5.6*10^-4//lbf.sec/ft^2
+v2=2.5*10^-2//m
+y=9802//N/m^3
+g=9.8//m/s^2
+Nr=4000
+Nr1=2000
+//CALCULATIONS
+P=(y*sg)/g//N.s^2/m^4
+V1=(Nr*m)/(v2*P)//m/s
+V2=(Nr1*m)/(v2*P)//m/s
+//RESULTS
+printf('The critical velocity range is=% f m/s',V2)
diff --git a/1627/CH5/EX5.7/Ex5_7.sce b/1627/CH5/EX5.7/Ex5_7.sce new file mode 100644 index 000000000..ea9ed299b --- /dev/null +++ b/1627/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+sg=0.85
+f1=300//m
+f2=0.05//m
+p=1000*10^-3//liters/min
+t=(1/60)//min/sec
+v=6.5*10^-2//m
+g=9.8//m/s^2
+p1=6.5//cm
+//CALCULATIONS
+V=(4*p*t)/((%pi)*(v)^2)//m/s
+hf=((f2)*(f1)*(V)^2)/((p1)*2*g)//m
+//RESULTS
+printf('The pressure drop between the tanks is=% f m',hf)
diff --git a/1627/CH5/EX5.8/Ex5_8.sce b/1627/CH5/EX5.8/Ex5_8.sce new file mode 100644 index 000000000..e814c0eba --- /dev/null +++ b/1627/CH5/EX5.8/Ex5_8.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+v=25*10^-2//m
+a=8//m^3/min
+t=1/60//sec/min
+f=0.015
+p=100//m
+p1=1.2//kg/m^3
+p2=2.7//m/s
+g=9.8//m/s^2
+q=998//kg/m^3
+v1=9802//N/m^3
+//CALCULATIONS
+V=(4*a*t)/((%pi)*(v)^2)//m/s
+hf=(f)*((p)*(p2)^2*(p1))/(v*2*g*v1)//m^-3
+P=v1*hf*10//Pa
+//RESULTS
+printf('The pressure drop is=% f Pa',P)
diff --git a/1627/CH6/EX6.1/Ex6_1.sce b/1627/CH6/EX6.1/Ex6_1.sce new file mode 100644 index 000000000..9d2a12406 --- /dev/null +++ b/1627/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,26 @@ +clc
+//initialisation of variables
+sg=0.85
+v=7*10^-3//N.s/m^2
+v1=1.46*10^-4//lbf.sec/ft^2
+f=0.05//m
+r=400*10^-3//m^3/min
+t=1/60//min/sec
+s=5*10^-2//m
+g=9.8//m/s^2
+q=9802//N/m^3
+h=7*10^-3//N.s/m^2
+p=0.000046//m
+f1=0.027
+f2=200//m
+t1=448//f
+//CALCULATIONS
+V=(4*r*t)/((%pi)*(s)^2)//m/s
+P=(q*sg)/(g)//N.s^2/m^4
+NR=(V*s*P)/(h)
+R=(p/f)
+hf=(f1*f2*(V)^2)/(s*2*g)//m
+H=q*hf*sg//bars
+FHP=H*f2/t1//hp
+//RESULTS
+printf('The pressure drop and horsepower friction loss =% f hp',FHP)
diff --git a/1627/CH6/EX6.2/Ex6_2.sce b/1627/CH6/EX6.2/Ex6_2.sce new file mode 100644 index 000000000..86d09aff5 --- /dev/null +++ b/1627/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,37 @@ +clc
+//initialisation of variables
+w=400*10^-3//m^3/min
+t=1/60//min/s
+q=10*10^-2//m
+v=1*10^-6//m^2
+v1=4*10^-2//m
+v2=10^-5//m^2/s
+p=0.000046/0.01
+R=0.000046/0.04
+g=9.8//m/s^2
+v3=100//m
+v4=0.78//m
+d1=0.5//m
+d3=0.037//m
+d2=0.84//m
+Hg=10*1.44//m
+Hck=2.5*1.44//m
+f4=188.81//m
+h4=4*0.9*1.44//m
+Het=1.0*1.44//m
+p1=9802//N/m^3
+p2=10^-5//bars
+w2=400//min
+w3=448
+//CALCULATIONS
+V=(4*w*t)/((%pi)*(q)^2)//m/s
+V4=(4*w*t)/((%pi)*(v1)^2)//m/s
+Nr=(V*q)/v2
+Nr4=(V4*v1)/v2
+He=(v4*(V)^2)/(2*g)//m
+f10=(He*v3*(V)^2)/(q*2*g)//m
+Hr=d1*d2*d3//m
+Htotal=He+f10+Hr+Hg+Hck+f4+h4+Het//m
+FHP=(Htotal*p1*p2*w2)/w3//hp
+//RESULTS
+printf('The head and power loss associate with the friction in the system is=% f hp',FHP)
diff --git a/1627/CH6/EX6.3/Ex6_3.sce b/1627/CH6/EX6.3/Ex6_3.sce new file mode 100644 index 000000000..1981ae802 --- /dev/null +++ b/1627/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,17 @@ +clc
+//initialisation of variables
+v=5*10^-2//m^2/s
+r=1900*10^-3//m
+t=1/60//min/s
+v1=5*10^-6//m^2/s
+e=0.00028//m
+d=0.05//m
+k=3.6//v
+f=0.122//m
+//CALCULATIONS
+V=4*(r)*t/((%pi)*(v)^2)//m/s
+Nr=(V*v)/(v1)
+R=e/d
+Le=v*(k/f)//m
+//RESULTS
+printf('The equivalent lenght of straight pipe is=% f m',Le)
diff --git a/1627/CH6/EX6.4/Ex6_4.sce b/1627/CH6/EX6.4/Ex6_4.sce new file mode 100644 index 000000000..3c62d565c --- /dev/null +++ b/1627/CH6/EX6.4/Ex6_4.sce @@ -0,0 +1,25 @@ +clc
+//initialisation of variables
+r=20000//liter/minute
+v=14*10^-6//ft^2/sec
+w=1.3*10^-6//m^2/s
+f=0.025
+f1=0.029
+q=8*10^3//m
+p1=1/60//min/s
+hf=150//m
+g=9.8//m/s^2
+d=0.414//m
+e=0.00165//m
+d1=0.427//m
+//CALCULATIONS
+D=0.81*(f)*(q)*(r*10^-3*p1)^2/(hf*g)//m^5
+V=(4*(r*10^-3)*p1)/((%pi)*(d)^2)//m/s
+NR=V*d/(w)
+R=e/d
+D1=0.81*(f1)*(q)*(r*10^-3*p1)^2/(hf*g)//m^5
+V2=(4*(r*10^-3)*p1)/((%pi)*(d1)^2)//m/s
+NR1=V2*d1/w
+R1=e/d1
+//RESULTS
+printf('The diameter of a concrete pipe is=% f ',R1)
diff --git a/1627/CH6/EX6.5/Ex6_5.sce b/1627/CH6/EX6.5/Ex6_5.sce new file mode 100644 index 000000000..44c614996 --- /dev/null +++ b/1627/CH6/EX6.5/Ex6_5.sce @@ -0,0 +1,22 @@ +clc
+//initialisation of variables
+v=4*10^-7//m^2/s
+t=1/60//min/s
+v1=4.3*10^-6//ft^2/sec
+q=10*10^-2
+p=300//m
+p1=1000*10^-3//m^3
+r1=0.000046//m
+w=0.10//m
+f=0.0175//m
+g=9.8//m/s^2
+v3=2.02//m/s
+p2=20//m
+//CALCULATIONS
+V1=(4*(p1)*t)/((%pi)*(q)^2)//m/s
+Nr=(V1)*(q)/(v)
+R=r1/w
+hf=(f*p*(v3)^2)/(q*2*g)//m
+ha=p2+(V1^2)/(2*g)+hf//m
+//RESULTS
+printf('The pressure at the pump outlet to maintain the flow secified is=% f m',ha)
diff --git a/1627/CH6/EX6.6/Ex6_6.sce b/1627/CH6/EX6.6/Ex6_6.sce new file mode 100644 index 000000000..b0f690cde --- /dev/null +++ b/1627/CH6/EX6.6/Ex6_6.sce @@ -0,0 +1,32 @@ +clc
+//initialisation of variables
+w1=250//m
+w2=10000//min
+p1=20//cm
+p2=30//cm
+p3=30*10^-2//m
+p4=20*10^-2//m
+s=1/60//min/s
+v1=300//m
+v2=700//m
+f=0.025
+a=0.167//m^3/s
+g=9.8//m/s^2
+vb=1.02//m
+v3=0.1318//m^2
+v4=0.163//m^2
+B=1922//min
+//CALCULATIONS
+Qt1=((%pi)*(p3)^2)/4//m^2
+Qt2=((%pi)*(p4)^2)/4//m^2
+hfa=((f)*(v1))/((p3)*2*g)//s^2/m
+hfb=((f)*(v2))/((p4)*2*g)//s^2/m
+VA=(hfb)/(hfa)
+V=sqrt(VA)
+Q1=Qt1*V*vb+Qt2*vb//m^3/s
+Q2=v3*vb+Qt2*vb//m^3/s
+Q=v4*vb//m^3/s
+QB=((%pi)*(p4)^2*vb)/(4)//m^3/s
+QA=w2-B//min
+//RESULTS
+printf('The diameter is=% f min',QA)
diff --git a/1627/CH6/EX6.7/Ex6_7.sce b/1627/CH6/EX6.7/Ex6_7.sce new file mode 100644 index 000000000..748625090 --- /dev/null +++ b/1627/CH6/EX6.7/Ex6_7.sce @@ -0,0 +1,43 @@ +clc
+//initialisation of variables
+a=0.0006//m
+b=0.0002//m
+r1=30//cm
+r2=20//cm
+w1=1.3*10^-6//m^2/s
+w2=8078*10^-3//m^3/min
+s=1/60//min/sec
+f=0.024
+vb=1.02//m/s
+fa=0.0245
+fb=0.0213
+m=15//percent
+g=9.8//m/s^2
+m1=300//m
+m2=700//m
+n=265//m
+p1=0.0707//m^2
+p2=0.0314//m^2
+p3=0.1230//m^2
+VB=1.08//m/s
+r3=30*10^-2//m
+r4=20*10^-2//m
+//CALCULATIONS
+Va=(4*(w2)*(s))/((%pi)*(r3)^2)//m/s
+NRa=(Va)*(r3)/(w1)
+R=(a/(r3))
+NRb=(vb)*(r4)/(w1)
+R1=(b/(r4))
+V1=((fa)*(m1))/((r3)*(2*g))
+V2=((fb*m2))/((r4)*(2*g))
+V=sqrt(V2/V1)
+Q1=p1*V+p2//m^3/s
+Q2=p3+p2//m^3/s
+Q3=Q1*VB//m/s
+VA=V*VB//m/s
+NRB=(VB)*(r4)/(w1)
+QA=((%pi)*(r3)^2*(VA))/(4)*60//m^3/s
+QB=((%pi)*(r4)^2)*(VB)/(4)*60//m^3/s
+QT=(QA+QB)*n//gpm
+//RESULTS
+printf('The kinematic viscocity of water the total within the accurancy limit is=% f gpm',QT)
diff --git a/1627/CH7/EX7.1/Ex7_1.sce b/1627/CH7/EX7.1/Ex7_1.sce new file mode 100644 index 000000000..9f41ccd3f --- /dev/null +++ b/1627/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,8 @@ +clc
+//initialisation of variables
+p=3.57//m^2
+v=5.14//m
+//CALCULATIONS
+R=p/v//m
+//RESULTS
+printf('The hydraulic radius is=% f m',R)
diff --git a/1627/CH7/EX7.2/Ex7_2.sce b/1627/CH7/EX7.2/Ex7_2.sce new file mode 100644 index 000000000..008f896d0 --- /dev/null +++ b/1627/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+w=15//cm
+w2=20//cm
+a=5//cm
+W=0.61*(%pi)*30//cm
+d=706.5//cm^2
+x=14.1*a//cm^2
+//CALCULATIONS
+S=a/w
+A=(0.61*d)+x//cm^2
+R=A/W//cm
+//RESULTS
+printf('The hydraulic radius is=% f cm',R)
diff --git a/1627/CH7/EX7.3/Ex7_3.sce b/1627/CH7/EX7.3/Ex7_3.sce new file mode 100644 index 000000000..a4d8bd7da --- /dev/null +++ b/1627/CH7/EX7.3/Ex7_3.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+p=0.1//m
+p1=50//m
+a=1.000//m^1/3/s
+R=501.45*10^-4//m^2
+s=8.73*10^-2//m
+n=0.030
+m=1.672*(0.087)^2/3//m
+//CALCULATIONS
+S=p/p1
+Q=((1)^1/3)*m*(S)^1/2//m^3
+//RESULTS
+printf('The flow of rate trough the pipe=% f m^3',Q)
diff --git a/1627/CH7/EX7.4/Ex7_4.sce b/1627/CH7/EX7.4/Ex7_4.sce new file mode 100644 index 000000000..e86897050 --- /dev/null +++ b/1627/CH7/EX7.4/Ex7_4.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+a=6//m^3
+w=9.33//m
+d=600//m
+k=33//m
+//CALCULATIONS
+R=a/w//m
+S=1/d
+Q=(k*(a)*(R)^2/3*(S)^1/2)*10//m^3/s
+//RESULTS
+printf('The Chezy Manning equation is=% f m^3/s',Q)
diff --git a/1627/CH8/EX8.1/Ex8_1.sce b/1627/CH8/EX8.1/Ex8_1.sce new file mode 100644 index 000000000..b5cde6354 --- /dev/null +++ b/1627/CH8/EX8.1/Ex8_1.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+p1=5//cm
+v=50//m/s
+p2=5*10^-2//m
+g=9.8//m/s^2
+q=9802//N/m^3
+//CALCULATIONS
+Q=(%pi)*(p2)^2*v/4//m^3/s
+F=q*Q*v/g*0.001//kN
+//RESULTS
+printf('The force exerted on the plate=% f kN',F)
diff --git a/1627/CH8/EX8.2/Ex8_2.sce b/1627/CH8/EX8.2/Ex8_2.sce new file mode 100644 index 000000000..3d6d9e657 --- /dev/null +++ b/1627/CH8/EX8.2/Ex8_2.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+h=200//m
+h2=300//m
+p=7.5*10^-2//cm
+g=9.8//m/s^2
+T=746//j/s
+q=9802//N/m^3
+//CALCULATIONS
+V=sqrt(2*g*h)//m/s
+Q=(%pi)*(p)^2*V/4//m^3/s
+HP=(q*h*Q)/T//hp
+E=(h/h2)*100//percent
+//RESULTS
+printf('The efficiency is=% f percent',E)
diff --git a/1627/CH8/EX8.3/Ex8_3.sce b/1627/CH8/EX8.3/Ex8_3.sce new file mode 100644 index 000000000..9752150b6 --- /dev/null +++ b/1627/CH8/EX8.3/Ex8_3.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+a=1000*10^-3//m^3/min
+t=1/60//min/s
+p=4*10^-2//m
+p2=2*10^-2//m
+p1=10*10^5//N/m^2
+p3=1.26*10^-3//m^2
+b=1000//N/s^2/m^4
+//CALCULATIONS
+V1=(4*a*t)/((%pi)*(p)^2)//m/s
+V2=(4*a*t)/((%pi)*(p2)^2)//m/s
+Fr=(p1*p3)-(b)*(a)*t*(V2-V1)//N
+//RESULTS
+printf('The magnitude and direction of the resultant force actiong on the hose is=% f N',Fr)
diff --git a/1627/CH8/EX8.4/Ex8_4.sce b/1627/CH8/EX8.4/Ex8_4.sce new file mode 100644 index 000000000..3455894ef --- /dev/null +++ b/1627/CH8/EX8.4/Ex8_4.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+v1=15//m/s
+v2=20//m/s
+v3=0.5//m/s
+a=60//degree
+b=74//deg
+c=cosd(c)
+//CALCULATIONS
+Vx=v2*v3-v1//m/s
+Vy=v2*sind(a)//m/s
+V=sqrt((Vx)^2+(Vy)^2)//m/s
+fhi=-(Vx/Vy)
+f=cosd(fhi)//deg
+//RESULTS
+printf('The magnitude and dirction of the resultant vector=% f deg',f)
diff --git a/1627/CH8/EX8.5/Ex8_5.sce b/1627/CH8/EX8.5/Ex8_5.sce new file mode 100644 index 000000000..d213163c1 --- /dev/null +++ b/1627/CH8/EX8.5/Ex8_5.sce @@ -0,0 +1,16 @@ +clc
+//initialisation of variables
+w=0.05//m^3/s
+p=1000//N.s^2/m^4
+v=25//m/s
+a=135//deg
+v1=30//m/s
+b=55//deg
+//CALCULATIONS
+Fx=(p*w)*[(v)*-cosd(a)-v1]//N
+Fy=(p*w)*(v*-cosd(a))//N
+FR=sqrt((Fx)^2+(Fy)^2)//N
+F=-(Fy/Fx)
+F1=tand(b)//deg
+//RESULTS
+printf('The angle of the resultant force on the vane=% f deg',F1)
diff --git a/1627/CH8/EX8.6/Ex8_6.sce b/1627/CH8/EX8.6/Ex8_6.sce new file mode 100644 index 000000000..e1c02f702 --- /dev/null +++ b/1627/CH8/EX8.6/Ex8_6.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+w=7*10^-2//m
+v=25//m/s
+a=170//deg
+v1=1000//N.s^2/m^4
+v2=40//m
+p=1+0.9848
+t=746//N.m/s
+//CALCULATIONS
+Q=((%pi)*(w)^2*(v))/4//m^3/s
+Fx=(v1*Q*(v2-v)*p)//N
+Hp=Fx*v/t//hp
+//RESULTS
+printf('The potential horsepower developed by the pelton wheel is=% f hp',Hp)
diff --git a/1627/CH8/EX8.7/Ex8_7.sce b/1627/CH8/EX8.7/Ex8_7.sce new file mode 100644 index 000000000..d5ce1ec1e --- /dev/null +++ b/1627/CH8/EX8.7/Ex8_7.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+p=15*10^5//N/m^2
+v=78.5*10^-4//m^2
+v1=1000//N.s^2/m^4
+v2=0.07//m^3/s
+x=8.49//m/s
+q=1-0.5//m
+a=60//deg
+p1=4000//min
+p2=10//cm
+y=0.866//m
+//CALCULATIONS
+Fx=[(p*v)+((v1)*(v2)*x)]*(q)*0.001//kN
+Fy=[(p*v)+((v1)*v2*x)]*y*0.001//N
+FR=sqrt(Fx)^2+(Fy)^2//kN
+F=Fy/Fx//deg
+//RESULTS
+printf('The magnitude and direction of the force exerted on the bend is=% f deg',F)
diff --git a/1627/CH9/EX9.1/Ex9_1.sce b/1627/CH9/EX9.1/Ex9_1.sce new file mode 100644 index 000000000..34153fcc5 --- /dev/null +++ b/1627/CH9/EX9.1/Ex9_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+f=250//N
+p=20*40//cm
+v=0.5//m/s
+f2=7.62*10^-5//m
+//CALCULATIONS
+Mu=(f*f2)/(p*10^-4*v)//N.s/m^2
+//RESULTS
+printf('The dynamic viscosity of the lubricant is=% f N.s/m^2',Mu)
diff --git a/1627/CH9/EX9.2/Ex9_2.sce b/1627/CH9/EX9.2/Ex9_2.sce new file mode 100644 index 000000000..040c11bba --- /dev/null +++ b/1627/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+g=9.8//m/s^2
+m=102//kg
+a=20*40*10^-4//cm
+h=7.62*10^-5//m
+Mu=4.76*10^-1//N.s/m^2
+v=0.5//m/s
+//CALCULATIONS
+P=(m*g)/(a)//Pa
+F=(Mu*v)/(P*h)
+//RESULTS
+printf('The friction factor for the bearing is=% f',F)
diff --git a/1627/CH9/EX9.3/Ex9_3.sce b/1627/CH9/EX9.3/Ex9_3.sce new file mode 100644 index 000000000..ddac97471 --- /dev/null +++ b/1627/CH9/EX9.3/Ex9_3.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+c=0.005//cm
+v=2*10^-1/2//N.s/m^2
+l=7.5//cm
+mu=2*10^-2//N.s/m^2
+d=5*10^-2//m
+N=1500*(1/60)//rev/s
+L=7.5*10^-2//m
+//CALCULATIONS
+F=(2*(mu)*(%pi)^2*(d)^2*N*L)/(c*10^-2)//N
+HP=(F*(%pi)*d*N)/746//hp
+//RESULTS
+printf('The friction horsepower loss is=% f hp',HP)
diff --git a/1627/CH9/EX9.4/Ex9_4.sce b/1627/CH9/EX9.4/Ex9_4.sce new file mode 100644 index 000000000..7c2d95c46 --- /dev/null +++ b/1627/CH9/EX9.4/Ex9_4.sce @@ -0,0 +1,12 @@ +clc
+//initialisation of variables
+F=37//N
+g=9.8//m/s^2
+w=90//kg
+L=7.5*10^-2//m
+D=5*10^-2//mm
+//CALCULATIONS
+f=F/(w*g)
+P=(w*g)/(L*D)//kPa
+//RESULTS
+printf('The friction coefficent and lubricant pressure is=% f kPa',P)
diff --git a/1627/CH9/EX9.5/Ex9_5.sce b/1627/CH9/EX9.5/Ex9_5.sce new file mode 100644 index 000000000..3effbe0ef --- /dev/null +++ b/1627/CH9/EX9.5/Ex9_5.sce @@ -0,0 +1,9 @@ +clc
+//initialisation of variables
+v=105//
+T1=210//F
+T2=100//F
+//CALCULATIONS
+T=T2-T1//F
+//RESULTS
+printf('The high value of the viscosity in the temperature is=% f F',T)
|