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 --- 1709/CH6/EX6.1/6_1.sce | 12 ++++++++++++ 1709/CH6/EX6.2/6_2.sce | 10 ++++++++++ 1709/CH6/EX6.3/6_3.sce | 13 +++++++++++++ 1709/CH6/EX6.4/6_4.sce | 11 +++++++++++ 1709/CH6/EX6.5/6_5.sce | 12 ++++++++++++ 1709/CH6/EX6.6/6_6.sce | 13 +++++++++++++ 6 files changed, 71 insertions(+) create mode 100755 1709/CH6/EX6.1/6_1.sce create mode 100755 1709/CH6/EX6.2/6_2.sce create mode 100755 1709/CH6/EX6.3/6_3.sce create mode 100755 1709/CH6/EX6.4/6_4.sce create mode 100755 1709/CH6/EX6.5/6_5.sce create mode 100755 1709/CH6/EX6.6/6_6.sce (limited to '1709/CH6') diff --git a/1709/CH6/EX6.1/6_1.sce b/1709/CH6/EX6.1/6_1.sce new file mode 100755 index 000000000..f2972f2b2 --- /dev/null +++ b/1709/CH6/EX6.1/6_1.sce @@ -0,0 +1,12 @@ +clc +//Initialization of variables +m=5 //lbm +P=50 //psia +T=500 + 460 //R +//calculations +disp("From saturated steam tables,") +s1=0.4110 //B/lbm R +s2=1.7887 //B/lbm R +dS=m*(s2-s1) +//results +printf("Change in entropy = %.3f B/R",dS) diff --git a/1709/CH6/EX6.2/6_2.sce b/1709/CH6/EX6.2/6_2.sce new file mode 100755 index 000000000..e73e02a15 --- /dev/null +++ b/1709/CH6/EX6.2/6_2.sce @@ -0,0 +1,10 @@ +clc +//Initialization of variables +P=20 //psia +T=227.96+ 459.69 //R +//calculations +disp("from saturation tables,") +sfg=1.3962 //B/ R lbm +Q=T*sfg +//results +printf("heat transfer = %.1f B/lbm",Q) diff --git a/1709/CH6/EX6.3/6_3.sce b/1709/CH6/EX6.3/6_3.sce new file mode 100755 index 000000000..432c068ea --- /dev/null +++ b/1709/CH6/EX6.3/6_3.sce @@ -0,0 +1,13 @@ +clc +//Initialization of variables +T1=100+460 //R +P1=15//psia +P2=50 //psia +n=1.3 +cp=0.24 +//calculations +T2=T1*(P2/P1)^((n-1)/n) +dS=cp*log(T2/T1) - 53.35/778 *log(P2/P1) +//results +printf("Change in entropy = %.3f B/lbm R",dS) +//the answer given in textbook is wrong. Please check it using a calculator diff --git a/1709/CH6/EX6.4/6_4.sce b/1709/CH6/EX6.4/6_4.sce new file mode 100755 index 000000000..eeb285090 --- /dev/null +++ b/1709/CH6/EX6.4/6_4.sce @@ -0,0 +1,11 @@ +clc +//Initialization of variables +T1=85+460 //R +T2=T1 +cp=0.24 +P2=15 //psia +P1=30 //psia +//calculations +dS=cp*log(T2/T1) - 53.35/778 *log(P2/P1) +//results +printf("Change in entropy = %.4f B/lbm R",dS) diff --git a/1709/CH6/EX6.5/6_5.sce b/1709/CH6/EX6.5/6_5.sce new file mode 100755 index 000000000..2c5bcd9a1 --- /dev/null +++ b/1709/CH6/EX6.5/6_5.sce @@ -0,0 +1,12 @@ +clc +//Initialization of variables +Qh=-1000 //Btu +Ql=1000 //Btu +Th=1460 //R +Tl=960 //R +//calculations +Sh=Qh/Th +Sl=Ql/Tl +S=Sh+Sl +//results +printf("Change in entropy of the universe = %.3f B/R",S) diff --git a/1709/CH6/EX6.6/6_6.sce b/1709/CH6/EX6.6/6_6.sce new file mode 100755 index 000000000..7f332736d --- /dev/null +++ b/1709/CH6/EX6.6/6_6.sce @@ -0,0 +1,13 @@ +clc +//Initialization of variables +disp("from steam tables,") +h1=1416.4 //B/lbm +s1=1.6842 //B/lbm R +//calculations +s2=s1 +P2=50 //psia +T2=317.5 //F +h2=1193.7 +W=h2-h1 +//results +printf("Work calculated = %.1f B/lbm",W) -- cgit