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 /2735/CH12 | |
| 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 '2735/CH12')
| -rwxr-xr-x | 2735/CH12/EX12.1/Ex12_1.sce | 19 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.2/Ex12_2.sce | 20 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.3/Ex12_3.sce | 24 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.4/Ex12_4.sce | 21 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.5/Ex12_5.sce | 19 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.6/Ex12_6.sce | 14 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.7/Ex12_7.sce | 21 | ||||
| -rwxr-xr-x | 2735/CH12/EX12.8/Ex12_8.sce | 23 |
8 files changed, 161 insertions, 0 deletions
diff --git a/2735/CH12/EX12.1/Ex12_1.sce b/2735/CH12/EX12.1/Ex12_1.sce new file mode 100755 index 000000000..d52728238 --- /dev/null +++ b/2735/CH12/EX12.1/Ex12_1.sce @@ -0,0 +1,19 @@ +clc
+clear
+//Initialization of variables
+p1=100 //psia
+p2=14.7 //psia
+k=1.4
+T1=700 //R
+R=10.73/29
+V=50
+cv=0.171
+cp=0.24
+R2=1.986/29
+//calculations
+T2=T1/ (p1/p2)^((k-1)/k)
+m1=p1*V/(R*T1)
+m2=p2*V/(R*T2)
+Wrev= cv*(m1*T1 - m2*T2) - (m1-m2)*(T2)*cp
+//results
+printf("Work done in case 1 = %d Btu",Wrev)
diff --git a/2735/CH12/EX12.2/Ex12_2.sce b/2735/CH12/EX12.2/Ex12_2.sce new file mode 100755 index 000000000..83e38433a --- /dev/null +++ b/2735/CH12/EX12.2/Ex12_2.sce @@ -0,0 +1,20 @@ +clc
+clear
+//Initialization of variables
+p1=100 //psia
+p2=10 //psia
+n=1.3
+T1=800 //R
+cv=0.172
+R=1.986/29
+T0=537 //R
+cp=0.24
+//calculations
+T2=T1*(p2/p1)^((n-1)/n)
+dwir=cv*(T1-T2)
+dwr=R*(T2-T1)/(1-n)
+dq=dwr-dwir
+dI=-T0*(cp*log(T2/T1) - R*log(p2/p1))
+//results
+printf("The friction of the process per pound of air = %.1f Btu/lbm",dq)
+printf("\n Loss of available energy = %.2f Btu/lbm",dI)
diff --git a/2735/CH12/EX12.3/Ex12_3.sce b/2735/CH12/EX12.3/Ex12_3.sce new file mode 100755 index 000000000..2967007f3 --- /dev/null +++ b/2735/CH12/EX12.3/Ex12_3.sce @@ -0,0 +1,24 @@ +clc
+clear
+//Initialization of variables
+ms=10 //lbm
+den=62.3 //lbm/ft^3
+A1=0.0218 //ft^2
+A2=0.00545 //ft^2
+p2=50 //psia
+p1=100 //psia
+gc=32.2 //ft/s^2
+dz=30 //ft
+T0=537 //R
+T1=620 //R
+T2=420 //R
+//calculations
+V1=ms/(A1*den)
+V2=ms/(A2*den)
+df=-144/den*(p2-p1) - (V2^2 -V1^2)/(2*gc) - dz
+dI=-T0/T1 *df
+dI2= -T0/T2 *df
+//results
+printf("Friction = %.1f ft-lbf/lbm",df)
+printf("\n Available energy loss in case a = %.1f ft-lbf/lbm",dI)
+printf("\n Available energy loss in case b = %.1f ft-lbf/lbm",dI2)
diff --git a/2735/CH12/EX12.4/Ex12_4.sce b/2735/CH12/EX12.4/Ex12_4.sce new file mode 100755 index 000000000..3adff26c3 --- /dev/null +++ b/2735/CH12/EX12.4/Ex12_4.sce @@ -0,0 +1,21 @@ +clc
+clear
+//Initialization of variables
+r=2.5 //in
+mf=160 //cfm
+rho=1/14
+mu=0.0000121
+v=14 //ft^3/lbm
+g=32.2 //ft/s^2
+z=100 //ft
+//calculations
+A=3.14*(r/12)^2
+V=mf/A /60
+Re=(2*r/12)*V*rho/mu
+disp("From fig 12.4,")
+f=0.0225/4
+dp=4*f*(rho)*(V/v)^2 /(2*g*(2*r/12)) *z
+//dp=2.32
+//results
+printf("Pressure drop = %.2f lbf/ft^2 100 ft",dp)
+disp("The answer in the textbook is wrong. Please use a calculator to verify it.")
diff --git a/2735/CH12/EX12.5/Ex12_5.sce b/2735/CH12/EX12.5/Ex12_5.sce new file mode 100755 index 000000000..119022ede --- /dev/null +++ b/2735/CH12/EX12.5/Ex12_5.sce @@ -0,0 +1,19 @@ +clc
+clear
+//Initialization of variables
+D=0.0724 //ft
+gc=32.2 //ft/s^2
+rho=1/14
+L=100 //ft
+mu2=1.46*10^(-10)
+dp=2.32
+dia=5 //in
+rho2=48500
+vol=14 //ft^3/lbm
+//calculations
+ref=D^3 *2*dp*gc*rho/(mu2*L)
+mf=rho2*%pi/4 *(dia/12) *sqrt(mu2)
+mfr=mf*vol*60
+//results
+printf("Mass rate of air flow = %d cfm",mfr)
+disp("The answer is a bit different due to rounding off error in textbook")
diff --git a/2735/CH12/EX12.6/Ex12_6.sce b/2735/CH12/EX12.6/Ex12_6.sce new file mode 100755 index 000000000..ed6dd72b1 --- /dev/null +++ b/2735/CH12/EX12.6/Ex12_6.sce @@ -0,0 +1,14 @@ +clc
+clear
+//Initialization of variables
+cp=0.25
+T=3460 //R
+T0=520 //R
+dG=1228 //Btu/lbm
+//calculations
+hf=cp*(T-T0)-T0*cp*log(T/T0)
+dC=hf-dG
+Ec=hf/dG
+//results
+printf("Loss of available energy = %d Btu/lbm mixture ",dC)
+printf("\n Effectiveness of combustion = %.3f ",Ec)
diff --git a/2735/CH12/EX12.7/Ex12_7.sce b/2735/CH12/EX12.7/Ex12_7.sce new file mode 100755 index 000000000..17d530815 --- /dev/null +++ b/2735/CH12/EX12.7/Ex12_7.sce @@ -0,0 +1,21 @@ +clc
+clear
+//Initialization of variables
+cp1=0.25
+T=3460 //R
+T0=946.2 //R
+T00=520 //R
+dG=1228 //Btu/lbm
+cp=0.45
+//calculations
+dqa=cp1*(T-T0)
+w=cp*dqa
+hf=cp1*(T-T00)-T00*cp1*log(T/T00)
+heat=w-hf
+eff=w/hf
+epower=w/dG
+//results
+printf("Loss of available energy = %.1f Btu/lbm mixture ",heat)
+printf("\n Efficiency of cycle = %.3f ",eff)
+printf("\n Effectiveness of overall cycle = %.2f",epower)
+disp("The answer is a bit different due to rounding off error in textbook")
diff --git a/2735/CH12/EX12.8/Ex12_8.sce b/2735/CH12/EX12.8/Ex12_8.sce new file mode 100755 index 000000000..84c738348 --- /dev/null +++ b/2735/CH12/EX12.8/Ex12_8.sce @@ -0,0 +1,23 @@ +clc
+clear
+//Initialization of variables
+p1=400 //psia
+t1=600 //F
+h1=1306.9 //Btu/lbm
+b1=480.9 //Btu/lbm
+p2=50 //psia
+h2=1122 //Btu/lbm
+h3=1169.5 //Btu/lbm
+b3=310.9 //Btu/lbm
+//calculations
+disp("All the values are obtained from Mollier chart,")
+dw13=h1-h3
+dw12=h1-h2
+dasf=b3-b1
+etae=dw13/dw12
+eta=abs(dw13/dasf)
+dq=dw13+dasf
+//results
+printf("Engine efficiency = %.1f percent",etae*100)
+printf("\n Effectiveness = %.1f percent",eta*100)
+printf("\n Loss of available energy = %.1f Btu/lbm",dq)
|