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 /23/CH5/EX5.6/Example_5_6.sce | |
| 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 '23/CH5/EX5.6/Example_5_6.sce')
| -rwxr-xr-x | 23/CH5/EX5.6/Example_5_6.sce | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/23/CH5/EX5.6/Example_5_6.sce b/23/CH5/EX5.6/Example_5_6.sce new file mode 100755 index 000000000..8885d3a05 --- /dev/null +++ b/23/CH5/EX5.6/Example_5_6.sce @@ -0,0 +1,42 @@ +clear;
+clc;
+
+//To find Approx Value
+function[A]=approx(V,n)
+ A=round(V*10^n)/10^n;//V-Value n-To what place
+ funcprot(0)
+endfunction
+
+//Example 5.6
+//Caption : Program to Find the Feasibility of a Process
+
+//Given Values
+//Saturated Steam
+//At T=373.15K
+H1=2676;//[KJ/Kg] from Steam table(App F)
+S1=7.3554;//[KJ/Kg/K] from steam table(App F)
+//At T=273.15K Liquid water
+H2=0;
+S2=0;
+
+T_sigma=273.15;//[K]
+T_r=473.15;//[K]
+Q_r=-2000;//[KJ]
+
+del_H=H2-H1;
+Q=del_H;
+Q_sigma=Q-Q_r;
+
+del_S=S2-S1;
+//For Heat Reservoir at 473.15K
+del_St_T_r=(-Q_r/T_r);//[KJ/K]
+//For Heat reservoir provided by cooling water at 273.15K
+del_St_T_sigma=-Q_sigma/T_sigma;
+del_S_total=del_S+del_St_T_r+del_St_T_sigma;
+disp('Since del_S_total<0 Process not feasible')
+
+//Actual
+Q_r=approx((T_r/(T_r-T_sigma))*(del_H-(T_sigma*del_S)),1);
+disp('KJ/Kg',Q_r,'Actual Heat transfer')
+
+//End
\ No newline at end of file |