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 --- 2837/CH10/EX10.1/Ex10_1.sce | 23 +++++++++++++++++++++++ 2837/CH10/EX10.10/Ex10_10.sce | 19 +++++++++++++++++++ 2837/CH10/EX10.11/Ex10_11.sce | 17 +++++++++++++++++ 2837/CH10/EX10.12/Ex10_12.sce | 14 ++++++++++++++ 2837/CH10/EX10.13/Ex10_13.sce | 17 +++++++++++++++++ 2837/CH10/EX10.2/Ex10_2.sce | 12 ++++++++++++ 2837/CH10/EX10.3/Ex10_3.sce | 11 +++++++++++ 2837/CH10/EX10.4/Ex10_4.sce | 10 ++++++++++ 2837/CH10/EX10.5/Ex10_5.sce | 12 ++++++++++++ 2837/CH10/EX10.6/Ex10_6.sce | 13 +++++++++++++ 2837/CH10/EX10.7/Ex10_7.sce | 15 +++++++++++++++ 2837/CH10/EX10.8/Ex10_8.sce | 12 ++++++++++++ 2837/CH10/EX10.9/Ex10_9.sce | 25 +++++++++++++++++++++++++ 13 files changed, 200 insertions(+) create mode 100755 2837/CH10/EX10.1/Ex10_1.sce create mode 100755 2837/CH10/EX10.10/Ex10_10.sce create mode 100755 2837/CH10/EX10.11/Ex10_11.sce create mode 100755 2837/CH10/EX10.12/Ex10_12.sce create mode 100755 2837/CH10/EX10.13/Ex10_13.sce create mode 100755 2837/CH10/EX10.2/Ex10_2.sce create mode 100755 2837/CH10/EX10.3/Ex10_3.sce create mode 100755 2837/CH10/EX10.4/Ex10_4.sce create mode 100755 2837/CH10/EX10.5/Ex10_5.sce create mode 100755 2837/CH10/EX10.6/Ex10_6.sce create mode 100755 2837/CH10/EX10.7/Ex10_7.sce create mode 100755 2837/CH10/EX10.8/Ex10_8.sce create mode 100755 2837/CH10/EX10.9/Ex10_9.sce (limited to '2837/CH10') diff --git a/2837/CH10/EX10.1/Ex10_1.sce b/2837/CH10/EX10.1/Ex10_1.sce new file mode 100755 index 000000000..fea25d60d --- /dev/null +++ b/2837/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,23 @@ +clc +clear +//Initialization of variables +p=3000 //psia +T=250 //F +//calculations +disp("From table 1, keenan and keynes,") +vf=0.01700 +disp("From table 4,") +dvf=-18.3*10^-5 +v=vf+dvf +disp("From table 1,") +hf=218.48 +disp("From table 4,") +dhf=6.13 +h=hf+dhf +sf=0.3675 +dsf=-4.34*10^-3 +s=sf+dsf +//results +printf("Specific volume = %.5f cu ft/lb",v) +printf("\n Enthalpy = %.2f Btu/lb",h) +printf("\n Entropy = %.4f Btu/lb per deg R",s) diff --git a/2837/CH10/EX10.10/Ex10_10.sce b/2837/CH10/EX10.10/Ex10_10.sce new file mode 100755 index 000000000..70357fa23 --- /dev/null +++ b/2837/CH10/EX10.10/Ex10_10.sce @@ -0,0 +1,19 @@ +clc +clear +//Initialization of variables +disp("From table 1 of keenan and keynes,") +in=440000 //lb/hr +out=255000 //lb/hr +p1=400 //psia +t1=700 //F +p2=35 //psia +t2=290 //F +vel=500 //ft/s +hp=44000 //hp +ent=1362.7 //Btu/lb +//calculations +ein=ent*in +eout=hp*2544 + out*1183 + 925000 +h2= (ein-eout)/185000 +//results +printf("Specific enthalpy of exhaust steam = %d Btu/lb",h2) diff --git a/2837/CH10/EX10.11/Ex10_11.sce b/2837/CH10/EX10.11/Ex10_11.sce new file mode 100755 index 000000000..5c5540251 --- /dev/null +++ b/2837/CH10/EX10.11/Ex10_11.sce @@ -0,0 +1,17 @@ +clc +clear +//Initialization of variables +disp("From table 1 of keenan and keynes,") +h1=1351.1 //Btu/lb +p1=600 //psia +t1=700 //F +p2=234 //psia +h2=1.6865 +h1=1.5875 +t3=101.74 +//calculations +t2=660 //F +loss= (h2-h1)*(t3+459.69) +//results +printf("Final state of steam is %d psia and %d F",p2,t2) +printf("\n Loss of available energy = %.1f Btu/lb",loss) diff --git a/2837/CH10/EX10.12/Ex10_12.sce b/2837/CH10/EX10.12/Ex10_12.sce new file mode 100755 index 000000000..b5936d4a7 --- /dev/null +++ b/2837/CH10/EX10.12/Ex10_12.sce @@ -0,0 +1,14 @@ +clc +clear +//Initialization of variables +disp("From table 2 of keenan and keynes,") +p1=98.87 //psia +p2=31.78 //psia +t1=80 //F +h2=26.365 //btu/lb +h1=11.554 //btu/lb +hfg=67.203 //btu/lb +//calculations +x=(h2-h1)/hfg +//results +printf("The state of vapor leaving is %.2f psia with a quality of %.2f percent",p2,x*100) diff --git a/2837/CH10/EX10.13/Ex10_13.sce b/2837/CH10/EX10.13/Ex10_13.sce new file mode 100755 index 000000000..9dfad50f4 --- /dev/null +++ b/2837/CH10/EX10.13/Ex10_13.sce @@ -0,0 +1,17 @@ +clc +clear +//Initialization of variables +ps=216 //psig +pb=29.12 //in of Hg +p2=0.4 //in +t2=244 //F +//calculations +pa=0.491*pb +pabs=pa + p2*0.491 +plb=pa+ ps +hcal=1166.5 //Btu/lb +h2=1200.1 //Btu/lb +h3=831.9 //Btu/lb +y=-(hcal-h2)/h3 +//results +printf("Mean state in the line is %.1f psia with a moisture content of %.2f percent",plb,y*100) diff --git a/2837/CH10/EX10.2/Ex10_2.sce b/2837/CH10/EX10.2/Ex10_2.sce new file mode 100755 index 000000000..25ef422e8 --- /dev/null +++ b/2837/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,12 @@ +clc +clear +//Initialization of variables +h=1100 //Btu/lb +P=100 //psia +//calculations +disp("From table 2 of keenan and keynes,") +hg=1187.2 //Btu/lb +hfg=888.8 //Btu/lb +y=-(h-hg)/hfg +//results +printf("The state is %d psia with a moisture content of %.2f percent",P,y*100) diff --git a/2837/CH10/EX10.3/Ex10_3.sce b/2837/CH10/EX10.3/Ex10_3.sce new file mode 100755 index 000000000..09a1407fd --- /dev/null +++ b/2837/CH10/EX10.3/Ex10_3.sce @@ -0,0 +1,11 @@ +clc +clear +//Initialization of variables +disp("From table 1 of keenan and keynes,") +v1=0.2688 +//calculations +v2=3.060 +p2=200 //psia +t2=600 //F +//results +printf("State of steam is %d psia and %d F",p2,t2) diff --git a/2837/CH10/EX10.4/Ex10_4.sce b/2837/CH10/EX10.4/Ex10_4.sce new file mode 100755 index 000000000..7bf9bdfdf --- /dev/null +++ b/2837/CH10/EX10.4/Ex10_4.sce @@ -0,0 +1,10 @@ +clc +clear +//Initialization of variables +disp("From table 2 of keenan and keynes,") +t1=439.60 //F +u1=1118.4 //Btu/lb +//calculations +p2=380 //psia +//results +printf("The state of steam is saturated at %d psia and %.2f F",p2,t1) diff --git a/2837/CH10/EX10.5/Ex10_5.sce b/2837/CH10/EX10.5/Ex10_5.sce new file mode 100755 index 000000000..068cba5c3 --- /dev/null +++ b/2837/CH10/EX10.5/Ex10_5.sce @@ -0,0 +1,12 @@ +clc +clear +//Initialization of variables +disp("From table 2 of keenan and keynes,") +p1=1 //in of Hg +s=1.9812 +//calculations +sf=2.0387 +sfg=1.9473 +y=-(s-sf)/sfg +//results +printf("The state is %d in of Hg with a moisture content of %.2f percent",p1,y*100) diff --git a/2837/CH10/EX10.6/Ex10_6.sce b/2837/CH10/EX10.6/Ex10_6.sce new file mode 100755 index 000000000..14e556b3f --- /dev/null +++ b/2837/CH10/EX10.6/Ex10_6.sce @@ -0,0 +1,13 @@ +clc +clear +//Initialization of variables +disp("From table 1 of keenan and keynes,") +h1=1204.8 //Btu/lb +q=174 //Btu/lb +//calculations +h2=h1+q +p2=30 //psia +t2=720 //F +//results +printf("Final state of steam is %d psia and %d F",p2,t2) +printf("\n Final enthalpy is %.1f Btu/lb",h2) diff --git a/2837/CH10/EX10.7/Ex10_7.sce b/2837/CH10/EX10.7/Ex10_7.sce new file mode 100755 index 000000000..5d78a3296 --- /dev/null +++ b/2837/CH10/EX10.7/Ex10_7.sce @@ -0,0 +1,15 @@ +clc +clear +//Initialization of variables +disp("From table 1 of keenan and keynes,") +p=70 //psia +x=0.1 +p2=198 //psia +//calculations +v1=6.206 +v2=0.017 +vx=v1-x*(v1-v2) +t2=1400 //F +//results +printf("Final specific volume = %.3f cu ft",vx) +printf("\n Final state is %d psia and %d F",p2,t2) diff --git a/2837/CH10/EX10.8/Ex10_8.sce b/2837/CH10/EX10.8/Ex10_8.sce new file mode 100755 index 000000000..ea6a4465b --- /dev/null +++ b/2837/CH10/EX10.8/Ex10_8.sce @@ -0,0 +1,12 @@ +clc +clear +//Initialization of variables +disp("From table 1 of keenan and keynes,") +p=400 //psia +t1=700 //F +p2=85 //psia +//calculations +s2=1.6398 //units/lb +t2=350 //F +//results +printf("Final state of steam is %d psia and %d F",p2,t2) diff --git a/2837/CH10/EX10.9/Ex10_9.sce b/2837/CH10/EX10.9/Ex10_9.sce new file mode 100755 index 000000000..dc76ee16f --- /dev/null +++ b/2837/CH10/EX10.9/Ex10_9.sce @@ -0,0 +1,25 @@ +clc +clear +//Initialization of variables +p1=20 //psia +p2=140 //psia +J=778 +t2=150 //F +t1=30 //F +//calculations +disp("From Table A-3,") +v1=2.0884 //cu ft/lb +v2=0.33350 //cu ft/lb +h2=95.709 +h1=81.842 +n=log(p2/p1) /log(v1/v2) +W=(p2*v2-p1*v1)*144/(1-n) +du=h2-h1 + (p1*v1-p2*v2)*144/J +Q=du+W/J +s2=0.17718 +s1=0.18126 +Q2=((t2+t1)/2 +460) *(s2-s1) +//results +printf("Work of compression = %d ft-lb",W) +printf("\n Heat removed per pound of refrigerant = %.3f Btu/lb",Q) +printf("\n Heat removed in case 2 = %.4f Btu",Q2) -- cgit