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 /779/CH12/EX12.7 | |
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 '779/CH12/EX12.7')
-rwxr-xr-x | 779/CH12/EX12.7/12_7.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/779/CH12/EX12.7/12_7.sce b/779/CH12/EX12.7/12_7.sce new file mode 100755 index 000000000..fa0b0f1ac --- /dev/null +++ b/779/CH12/EX12.7/12_7.sce @@ -0,0 +1,23 @@ +Ti = 2000; +Te = 450; +T0 = 300; +Q1_dot = 100e03; // in kW +cpg = 1.1; +wg = Q1_dot/(cpg*(Ti-Te)); +af1 = wg*cpg*T0*((Ti/T0)-1-log(Ti/T0)); +af2 = wg*cpg*T0*((Te/T0)-1-log(Te/T0)); +afi = af1-af2; +h1 = 2801; h3 = 169; h4 = 172.8; h2 = 1890.2; +s1 = 6.068; s2 = s1; s3 = 0.576; s4 = s3; +Wt = h1-h2; +Wp = h4-h3; +Q1 = h1-h4; +Q2 = h2-h3; +Wnet = Wt-Wp; +ws = Q1_dot/2628; +afu = 38*(h1-h4-T0*(s1-s3)); +I_dot = afi-afu; +Wnet_dot = ws*Wnet; +afc = ws*(h2-h3-T0*(s2-s3)); +n2 = 100*Wnet_dot/af1; +disp("%",n2,"The second law efficiency is")
\ No newline at end of file |