summaryrefslogtreecommitdiff
path: root/2135/CH5
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2135/CH5
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2135/CH5')
-rwxr-xr-x2135/CH5/EX5.1/Exa_5_1.sce15
-rwxr-xr-x2135/CH5/EX5.10/Exa_5_10.sce16
-rwxr-xr-x2135/CH5/EX5.11/Exa_5_11.sce22
-rwxr-xr-x2135/CH5/EX5.12/Exa_5_12.sce35
-rwxr-xr-x2135/CH5/EX5.13/Exa_5_13.sce21
-rwxr-xr-x2135/CH5/EX5.14/Exa_5_14.sce22
-rwxr-xr-x2135/CH5/EX5.2/Exa_5_2.sce19
-rwxr-xr-x2135/CH5/EX5.3/Exa_5_3.sce17
-rwxr-xr-x2135/CH5/EX5.4/Exa_5_4.sce14
-rwxr-xr-x2135/CH5/EX5.5/Exa_5_5.sce16
-rwxr-xr-x2135/CH5/EX5.6/Exa_5_6.sce15
-rwxr-xr-x2135/CH5/EX5.7/Exa_5_7.sce13
-rwxr-xr-x2135/CH5/EX5.8/Exa_5_8.sce25
-rwxr-xr-x2135/CH5/EX5.9/Exa_5_9.sce19
14 files changed, 269 insertions, 0 deletions
diff --git a/2135/CH5/EX5.1/Exa_5_1.sce b/2135/CH5/EX5.1/Exa_5_1.sce
new file mode 100755
index 000000000..bc8383aa6
--- /dev/null
+++ b/2135/CH5/EX5.1/Exa_5_1.sce
@@ -0,0 +1,15 @@
+//Exa 5.1
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+deltaQ=1000;//KJ
+T=1073;//Kelvin
+T0=20+273;//Kelvin
+deltaS=deltaQ/T;//KJ/K
+A=deltaQ-T0*deltaS;//KJ
+disp(A,"Available energy in KJ : ");
+UA=T0*deltaS;//KJ
+disp(UA,"Unavailable energy in KJ : ");
diff --git a/2135/CH5/EX5.10/Exa_5_10.sce b/2135/CH5/EX5.10/Exa_5_10.sce
new file mode 100755
index 000000000..af0431432
--- /dev/null
+++ b/2135/CH5/EX5.10/Exa_5_10.sce
@@ -0,0 +1,16 @@
+//Exa 5.10
+clc;
+clear;
+close;
+format('v',8);
+
+//Given Data :
+p0=1;//bar
+T0=17+273;//Kelvin
+T1=1817+273;//Kelvin
+Cp=1;//KJ/KgK
+deltaQ=Cp*(T1-T0);//KJ/Kg
+deltaS=Cp*log(T0/T1);//KJ/KgK
+deltaS_fluid=-deltaS;//KJ/KgK(As deltaS_surrounding=0)
+A=deltaQ-T0*deltaS_fluid;//KJ
+disp(A,"Availability of hot products in KJ : ");
diff --git a/2135/CH5/EX5.11/Exa_5_11.sce b/2135/CH5/EX5.11/Exa_5_11.sce
new file mode 100755
index 000000000..16408b726
--- /dev/null
+++ b/2135/CH5/EX5.11/Exa_5_11.sce
@@ -0,0 +1,22 @@
+//Exa 5.11
+clc;
+clear;
+close;
+format('v',8);
+
+//Given Data :
+T1=1200;//Kelvin
+T2=400;//Kelvin
+T0=300;//Kelvin
+Qsource=-150;//KJ/s
+Qsystem=150;//KJ/s
+deltaS_source=Qsource/T1;//KJ/sK
+deltaS_system=Qsystem/T2;//KJ/sK
+deltaS_net=deltaS_source+deltaS_system;//KJ/sK
+disp(deltaS_net,"Net change in entropy in KJ/sK : ");
+A1=(T1-T0)*-deltaS_source;//KJ/s
+disp(A1,"Available energy of heat source in KJ/s : ");
+A2=(T2-T0)*deltaS_system;//KJ/s
+disp(A2,"Available energy of system in KJ/s : ");
+E_decrease=A1-A2;//KJ/s
+disp(E_decrease,"Decrease in available energy in KJ/s : ");
diff --git a/2135/CH5/EX5.12/Exa_5_12.sce b/2135/CH5/EX5.12/Exa_5_12.sce
new file mode 100755
index 000000000..35c6ca8fa
--- /dev/null
+++ b/2135/CH5/EX5.12/Exa_5_12.sce
@@ -0,0 +1,35 @@
+//Exa 5.12
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+Tg1=1127+273;//Kelvin
+Tg2=527+273;//Kelvin
+T2=250+273;//Kelvin
+T0=27+273;//Kelvin
+Cpg=1;//KJ/KgK
+mw=5;//Kg/s
+hfg=1716.2;//KJ/Kg
+//mg*Cpg*(Tg1-Tg2)=mw*hfg
+mg=mw*hfg/Cpg/(Tg1-Tg2);//Kg/s
+disp(mg,"Mass flow rate of gases in Kg/s : ");
+deltaSg=mg*Cpg*log(Tg2/Tg1);//KJ/sK
+disp(deltaSg,"Entropy change of gases in KJ/sK : ");
+deltaSw=mw*hfg/T2;//KJ/sK
+disp(deltaSw,"Entropy change of water in KJ/sK : ");
+deltaSnet=deltaSg+deltaSw;//KJ/sK
+disp(deltaSnet,"Net Entropy change in KJ/sK : ");
+Q1=mw*hfg;//KJ/s
+Sa_sub_Sb=-deltaSg;//KJ/sK
+A1=Q1-T0*(Sa_sub_Sb);//KJ/s
+disp(A1,"Availability of hot gases in KJ/s : ");
+A2=Q1-T0*deltaSw;//KJ/s
+disp(A2,"Availability of water in KJ/s : ");
+UA1=T0*(Sa_sub_Sb);//KJ/s
+disp(UA1,"Unavailable energy of hot gases in KJ/s : ");
+UA2=T0*deltaSw;//KJ/s
+disp(UA2,"Unavailable energy of water in KJ/s : ");
+E_increase=T0*deltaSnet;//KJ/s
+disp(E_increase,"Increase in unavailable energy in KJ/s : ");
diff --git a/2135/CH5/EX5.13/Exa_5_13.sce b/2135/CH5/EX5.13/Exa_5_13.sce
new file mode 100755
index 000000000..605bb907b
--- /dev/null
+++ b/2135/CH5/EX5.13/Exa_5_13.sce
@@ -0,0 +1,21 @@
+//Exa 5.13
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+mg=5;//Kg
+p1=3;//bar
+T1=500;//Kelvin
+Q=500;//KJ
+Cv=0.8;//KJ/Kg
+T0=300;//Kelvin
+T=1300;//Kelvin
+//Q=mg*Cv*(T2-T1)
+T2=Q/mg/Cv+T1;//Kelvin
+A1=Q-T0*Q/T;//KJ
+deltaSg=mg*Cv*log(T2/T1);//KJ/K
+Ag=Q-T0*deltaSg;//KJ
+Loss=A1-Ag;//KJ
+disp(Loss,"Loss of Availability due to heat transfer in KJ : ");
diff --git a/2135/CH5/EX5.14/Exa_5_14.sce b/2135/CH5/EX5.14/Exa_5_14.sce
new file mode 100755
index 000000000..8de1208cb
--- /dev/null
+++ b/2135/CH5/EX5.14/Exa_5_14.sce
@@ -0,0 +1,22 @@
+//Exa 5.14
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+m=3;//Kg
+p1=3;//bar
+T1=450;//Kelvin
+Q=600;//KJ
+Cv=0.81;//KJ/Kg
+T0=300;//Kelvin
+T=1500;//Kelvin
+deltaSsource=Q/T;//KJ/K
+//Q=m*Cv*(T2-T1)
+T2=Q/m/Cv+T1;//Kelvin
+A1=Q-T0*deltaSsource;//KJ
+deltaSg=m*Cv*log(T2/T1);//KJ/K
+A2=Q-T0*deltaSg;//KJ
+Loss=A1-A2;//KJ
+disp(Loss,"Loss in available energy due to heat transfer in KJ : ");
diff --git a/2135/CH5/EX5.2/Exa_5_2.sce b/2135/CH5/EX5.2/Exa_5_2.sce
new file mode 100755
index 000000000..21139c67d
--- /dev/null
+++ b/2135/CH5/EX5.2/Exa_5_2.sce
@@ -0,0 +1,19 @@
+//Exa 5.2
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+m=2;//Kg
+T1=300+273;//Kelvin
+T2=150+273;//Kelvin
+T0=20+273;//Kelvin
+Cp=0.45;//KJ/KgK
+deltaQ=m*Cp*(T1-T2);//KJ
+deltaS=m*Cp*log(T1/T2);//KJ/K
+A=deltaQ-T0*deltaS;//KJ
+disp(A,"Reversible work or Available energy in KJ : ");
+UA=T0*deltaS;//KJ
+disp(UA,"Irreversibility in KJ : ");
+//Irreversibilty is not calculated in the book and asked in the question.
diff --git a/2135/CH5/EX5.3/Exa_5_3.sce b/2135/CH5/EX5.3/Exa_5_3.sce
new file mode 100755
index 000000000..6c8c011c5
--- /dev/null
+++ b/2135/CH5/EX5.3/Exa_5_3.sce
@@ -0,0 +1,17 @@
+//Exa 5.3
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+m=5;//Kg
+p=1;//bar
+T0=20+273;//Kelvin
+T1=23+273;//Kelvin
+T2=227+273;//Kelvin
+Cp=1.005;//J/KgK
+deltaS=Cp*log(T1/T2);//KJ/KgK
+deltaQ=Cp*(T2-T1);//KJ
+A=m*(deltaQ+T0*deltaS);//KJ
+disp(A,"Increase in availability due to heating in KJ : ");
diff --git a/2135/CH5/EX5.4/Exa_5_4.sce b/2135/CH5/EX5.4/Exa_5_4.sce
new file mode 100755
index 000000000..55d01b1ae
--- /dev/null
+++ b/2135/CH5/EX5.4/Exa_5_4.sce
@@ -0,0 +1,14 @@
+//Exa 5.4
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+Q1=400;//KJ
+T1=1227+273;//Kelvin
+T2=27+273;//Kelvin
+A=Q1-T2*Q1/T1;//KJ
+disp(A,"Availability of the system in KJ : ");
+UA=Q1-A;//KJ
+disp(UA,"Unavailable energy in KJ : ");
diff --git a/2135/CH5/EX5.5/Exa_5_5.sce b/2135/CH5/EX5.5/Exa_5_5.sce
new file mode 100755
index 000000000..baf9995a4
--- /dev/null
+++ b/2135/CH5/EX5.5/Exa_5_5.sce
@@ -0,0 +1,16 @@
+//Exa 5.5
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+P=1;//KW or KJ/s
+Q=6;//MJ/hr
+Q=Q*1000/3600;//KJ/s
+T1=26+273;//Kelvin
+T2=3+273;//Kelvin
+COP=T1/(T1-T2);
+W=Q/COP;//KJ/s or KW
+disp(W,"Work required to pump heat in KJ/s or KW : ");
+disp("As P>W, required condition can be maintained.")
diff --git a/2135/CH5/EX5.6/Exa_5_6.sce b/2135/CH5/EX5.6/Exa_5_6.sce
new file mode 100755
index 000000000..e85f181d8
--- /dev/null
+++ b/2135/CH5/EX5.6/Exa_5_6.sce
@@ -0,0 +1,15 @@
+//Exa 5.6
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+T=727+273;//Kelvin
+T0=17+273;//Kelvin
+deltaQ=4000;//KJ
+deltaS=deltaQ/T;//KJ/K
+A=deltaQ-T0*deltaS;//KJ
+disp(A,"Availability of heat energy in KJ : ");
+UA=T0*deltaS;//KJ
+disp(UA,"Unavailable heat energy in KJ : ");
diff --git a/2135/CH5/EX5.7/Exa_5_7.sce b/2135/CH5/EX5.7/Exa_5_7.sce
new file mode 100755
index 000000000..7795043c9
--- /dev/null
+++ b/2135/CH5/EX5.7/Exa_5_7.sce
@@ -0,0 +1,13 @@
+//Exa 5.7
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+deltaQ=850;//KJ
+T=180+273;//Kelvin
+T0=22+273;//Kelvin
+deltaS=deltaQ/T;//KJ/K
+A=deltaQ-T0*deltaS;//KJ
+disp(A,"Available energy in KJ : ");
diff --git a/2135/CH5/EX5.8/Exa_5_8.sce b/2135/CH5/EX5.8/Exa_5_8.sce
new file mode 100755
index 000000000..0a22bf9df
--- /dev/null
+++ b/2135/CH5/EX5.8/Exa_5_8.sce
@@ -0,0 +1,25 @@
+//Exa 5.8
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+deltaQ=850;//KJ
+T1=1400+273;//Kelvin
+T2=250+273;//Kelvin
+T0=20+273;//Kelvin
+Q=-1000;//KJ
+deltaS1=Q/T1;//KJ/K(-ve as heat leaving)
+deltaS2=abs(Q)/T2;//KJ/K(+ve Q as steam receives heat)
+deltaS=deltaS1+deltaS2;//KJ/K
+disp("Part (i) As energy leaves the hot gases : ");
+A=(T1-T0)*deltaS1;//KJ
+UA=T0*deltaS1;//KJ
+disp(A,"Available energy in KJ : ");
+disp(UA,"Unavailable energy in KJ : ");
+disp("Part (ii) As energy enters the system : ");
+A=(T2-T0)*deltaS2;//KJ
+UA=T0*deltaS2;//KJ
+disp(A,"Available energy in KJ : ");
+disp(UA,"Unavailable energy in KJ : ");
diff --git a/2135/CH5/EX5.9/Exa_5_9.sce b/2135/CH5/EX5.9/Exa_5_9.sce
new file mode 100755
index 000000000..8f6d20e13
--- /dev/null
+++ b/2135/CH5/EX5.9/Exa_5_9.sce
@@ -0,0 +1,19 @@
+//Exa 5.9
+clc;
+clear;
+close;
+format('v',8);
+
+//Given Data :
+deltaQ=850;//KJ
+T1=523;//Kelvin
+T2=873;//Kelvin
+T0=288;//Kelvin
+dQ_by_dT=100;//KJ/K
+deltaS=integrate('100/T','T',T1,T2);//KJ/K
+deltaQ=integrate('100','T',T1,T2);//KJ
+disp(deltaQ,"Total heat abstracted in KJ : ");
+A=deltaQ-T0*deltaS;//KJ
+disp(A,"Availability in KJ : ");
+Loss=deltaQ-A;//KJ
+disp(Loss,"Loss of availability in KJ : ");
generated by cgit (git 2.34.1) at 2024-12-19 18:57:07 +0000