From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2141/CH7/EX7.1/Ex7_1.sce | 19 +++++++++++++++++++ 2141/CH7/EX7.10/Ex7_10.sce | 17 +++++++++++++++++ 2141/CH7/EX7.11/Ex7_11.sce | 13 +++++++++++++ 2141/CH7/EX7.2/Ex7_2.sce | 22 ++++++++++++++++++++++ 2141/CH7/EX7.3/Ex7_3.sce | 16 ++++++++++++++++ 2141/CH7/EX7.5/Ex7_5.sce | 10 ++++++++++ 2141/CH7/EX7.6/Ex7_6.sce | 17 +++++++++++++++++ 2141/CH7/EX7.7/Ex7_7.sce | 13 +++++++++++++ 2141/CH7/EX7.8/Ex7_8.sce | 15 +++++++++++++++ 2141/CH7/EX7.9/Ex7_9.sce | 15 +++++++++++++++ 10 files changed, 157 insertions(+) create mode 100755 2141/CH7/EX7.1/Ex7_1.sce create mode 100755 2141/CH7/EX7.10/Ex7_10.sce create mode 100755 2141/CH7/EX7.11/Ex7_11.sce create mode 100755 2141/CH7/EX7.2/Ex7_2.sce create mode 100755 2141/CH7/EX7.3/Ex7_3.sce create mode 100755 2141/CH7/EX7.5/Ex7_5.sce create mode 100755 2141/CH7/EX7.6/Ex7_6.sce create mode 100755 2141/CH7/EX7.7/Ex7_7.sce create mode 100755 2141/CH7/EX7.8/Ex7_8.sce create mode 100755 2141/CH7/EX7.9/Ex7_9.sce (limited to '2141/CH7') diff --git a/2141/CH7/EX7.1/Ex7_1.sce b/2141/CH7/EX7.1/Ex7_1.sce new file mode 100755 index 000000000..e2f3bc290 --- /dev/null +++ b/2141/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,19 @@ + +clc +//initialisation of variables +p2=150//lbf/in^2 +v=20 //f +h1=79.385 //lbf/in^2 +g=144//in^2/ft^3 +T=778//F +p=35.736//lbf/in^2 +s1=0.16719 //btu/lbm-R +T2=122.9 //F +h2=90.330 //lbf/in^2 +v2=0.28270 //Btu/lbm +//CALCULATIONS +u1=h1-(p*g*1.0988/T)//Btu/lbmu +u2=h2-(p2*g*v2/T//Btu/lbm +W=u1-u2 //Btu/lbm +//RESULTS +printf('the work per pound =% f Btu/lbm',W) diff --git a/2141/CH7/EX7.10/Ex7_10.sce b/2141/CH7/EX7.10/Ex7_10.sce new file mode 100755 index 000000000..0785989b8 --- /dev/null +++ b/2141/CH7/EX7.10/Ex7_10.sce @@ -0,0 +1,17 @@ + +clc +//initialisation of variables +w=212 //F +Sliq=212 //F +T=80 //F +Sf=-1.4446 //Btu/lbm +Sh=1.4446 //Btu/lbm +Q=970.3 //Btu/lbm +T1=540 //F +//CALCULATIONS +DelS=Q/T1 //btu/lbm +S=Sf+DelS //Btu//lbm-R +Qsurr=T1*Sh //Btu/lbm +W=Q-Qsurr //Btu/lbm +//RESULTS +printf('The water equal to increase in entropy of the system plus surroundings=% f Btu/lbm',W) diff --git a/2141/CH7/EX7.11/Ex7_11.sce b/2141/CH7/EX7.11/Ex7_11.sce new file mode 100755 index 000000000..c1d8b3882 --- /dev/null +++ b/2141/CH7/EX7.11/Ex7_11.sce @@ -0,0 +1,13 @@ + +clc +//initialisation of variables +h1=1279.1 //ft/lbm +s1=1.7085//ft/lbm +x=0.1210 //Btu/lbm +h2=1116.2-x*(1022.2) //Btu/lbm +W=h1-h2 //Btu/lbm +Wa=172 //Btu/lbm +//CALCULATIONS +Nth=Wa/W*100//per cent +//RESULTS +printf('the efficiency of turbine =% f per cent',Nth) diff --git a/2141/CH7/EX7.2/Ex7_2.sce b/2141/CH7/EX7.2/Ex7_2.sce new file mode 100755 index 000000000..cf6bc68f1 --- /dev/null +++ b/2141/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,22 @@ + +clc +//initialisation of variables +p1=100 //lbf/in^2 +t=500//F +v=200 //ft/sec +p2=20 //lbf/in^2 +v1=600//ft/sec +hi=1279.1 //Btu/lbm +si=1.7085 //Btu/lbm-R +Pe=20 //lbf/in^2 +Se=1.7085 //Btu/lbm +x=0.01676 //Btu/lbm +hg=1156.3 //Btu/lbm +hf=960.1 //Btu/lbm +g=32.17//in^2/ft^3 +T=778//F +//CALCULATIONS +he=hg-x*hf //Btu/lbm +W=hi-he+[(v^2)-(v1^2)]/(2*g*T)//Btu/lbm +//RESULTS +printf('The work per pound of steam for this isentropic process=% f Btu/lbm',W) diff --git a/2141/CH7/EX7.3/Ex7_3.sce b/2141/CH7/EX7.3/Ex7_3.sce new file mode 100755 index 000000000..bb46f687f --- /dev/null +++ b/2141/CH7/EX7.3/Ex7_3.sce @@ -0,0 +1,16 @@ + +clc +//initialisation of variables +Pi=100//lbf/in^2 +Ti=500 //F +vi=100 //ft/sec +Pe=40//lbf/in^2 +hi=1279.1//Btu/lbm +si=1.7085 //Btu/lbm-R +he=1193.8//Btu/lbm +h=2*32.17*778 //lbm +//CALCULATIONS +W=hi-he+(Pi*vi)/(h)//btu/lbm +Ve=sqrt(h*W)//ft/sec +//RESULTS +printf('The exit velocity of the steam from the nozzle =% f ft/sec',Ve) diff --git a/2141/CH7/EX7.5/Ex7_5.sce b/2141/CH7/EX7.5/Ex7_5.sce new file mode 100755 index 000000000..4aad55603 --- /dev/null +++ b/2141/CH7/EX7.5/Ex7_5.sce @@ -0,0 +1,10 @@ + +clc +//initialisation of variables +v=0.01608 //ft +P1=100 //lbf/in^2 +P2=1000 //lbf/in^2 +//CALCULATIONS +W=v*(P2-P1)*144/778//Btu/lbm +//RESULTS +printf('The work per pound to pump water isentropically =% f Btu/lbm',W) diff --git a/2141/CH7/EX7.6/Ex7_6.sce b/2141/CH7/EX7.6/Ex7_6.sce new file mode 100755 index 000000000..9b70c1bbc --- /dev/null +++ b/2141/CH7/EX7.6/Ex7_6.sce @@ -0,0 +1,17 @@ + +clc +//initialisation of variables +T1=500 //R +T2=2000 //R +P1=30 //lbf/in^2 +P2=20 //lbf/in^2 +M=32.00 //ft +S2=11.515*log(T2/T1) +s1=2*172*(1/sqrt(T2-1/sqrt(T1))) +s=-1530*[(1/T2-1/T1)] +s3=-1.986*log(P2/P1) +//CALCULATIONS +S=S2-s1+s+s3//Btu/lb mole R +S2=S/M//Btu/lbm-R +//RESULTS +printf('The change in entropy per =% f Btu/lbm',S2) diff --git a/2141/CH7/EX7.7/Ex7_7.sce b/2141/CH7/EX7.7/Ex7_7.sce new file mode 100755 index 000000000..47b330bc4 --- /dev/null +++ b/2141/CH7/EX7.7/Ex7_7.sce @@ -0,0 +1,13 @@ + +clc +//initialisation of variables +Fhy1=0.6008 //Btu/lbm-R +Fhy2=0.7963 //Btu/lbm-R +P1=50 //lbf/in^2 +P2=40 //lbf/in^2 +T=778//R +g=53.34//Btu/lbm-R +//CALCULATIONS +S=Fhy2-Fhy1-(g/T)*log(P2/P1)//Btu/lbm-R +//RESULTS +printf('The change in entropy per pound as air is heated =% f Btu/lbm-R',S) diff --git a/2141/CH7/EX7.8/Ex7_8.sce b/2141/CH7/EX7.8/Ex7_8.sce new file mode 100755 index 000000000..d29a5f947 --- /dev/null +++ b/2141/CH7/EX7.8/Ex7_8.sce @@ -0,0 +1,15 @@ + +clc +//initialisation of variables +T1=1060 //R +hi=255.96 //Btu/lbm +pr=15.203 //ft/sec +p1=20 //lbf/in^2 +p2=50 //lbf/in^2 +Te=822//R +he=197.18 //Btu/lbm +//CALCULATIONS +Pe=pr*(p1/p2)//Btu/lbm +W=hi-he //Btu/lbm +//RESULTS +printf('The work per pound of air flowing through the turbine=% f Btu/lbm',W) diff --git a/2141/CH7/EX7.9/Ex7_9.sce b/2141/CH7/EX7.9/Ex7_9.sce new file mode 100755 index 000000000..b7e6d2b0c --- /dev/null +++ b/2141/CH7/EX7.9/Ex7_9.sce @@ -0,0 +1,15 @@ + +clc +//initialisation of variables +P1=14.7 //lbf/in^2 +P2=60 //lbf/in^2 +T1=520 //R +n=1.3 //constant +T=1.383 +R=55.15//ft +w=-47.0//Btu/lbm +//CALCULATIONS +T2=T1*T//R +Q=0.177*(T2-T1)+w//Btu/lbm +//RESULTS +printf('The work and heat transfer per pound =% f Btu/lbm',Q) -- cgit