summaryrefslogtreecommitdiff
path: root/23/CH5
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /23/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 '23/CH5')
-rwxr-xr-x23/CH5/EX5.1/Example_5_1.pdfbin0 -> 4641 bytes
-rwxr-xr-x23/CH5/EX5.1/Example_5_1.sce22
-rwxr-xr-x23/CH5/EX5.3/Example_5_3.pdf146
-rwxr-xr-x23/CH5/EX5.3/Example_5_3.sce45
-rwxr-xr-x23/CH5/EX5.4/Example_5_4.pdfbin0 -> 4895 bytes
-rwxr-xr-x23/CH5/EX5.4/Example_5_4.sce43
-rwxr-xr-x23/CH5/EX5.5/Example_5_5.pdfbin0 -> 4810 bytes
-rwxr-xr-x23/CH5/EX5.5/Example_5_5.sce32
-rwxr-xr-x23/CH5/EX5.6/Example_5_6.pdf144
-rwxr-xr-x23/CH5/EX5.6/Example_5_6.sce42
-rwxr-xr-x23/CH5/EX5.7/Example_5_7.pdfbin0 -> 4671 bytes
-rwxr-xr-x23/CH5/EX5.7/Example_5_7.sce47
-rwxr-xr-x23/CH5/EX5.8/Example_5_8.pdf143
-rwxr-xr-x23/CH5/EX5.8/Example_5_8.sce31
-rwxr-xr-x23/CH5/EX5.9/Example_5_9.pdfbin0 -> 59512 bytes
-rwxr-xr-x23/CH5/EX5.9/Example_5_9.sce101
-rwxr-xr-x23/CH5/EX5.9/Figure_5_9.jpgbin0 -> 26353 bytes
17 files changed, 796 insertions, 0 deletions
diff --git a/23/CH5/EX5.1/Example_5_1.pdf b/23/CH5/EX5.1/Example_5_1.pdf
new file mode 100755
index 000000000..216abb8a6
--- /dev/null
+++ b/23/CH5/EX5.1/Example_5_1.pdf
Binary files differ
diff --git a/23/CH5/EX5.1/Example_5_1.sce b/23/CH5/EX5.1/Example_5_1.sce
new file mode 100755
index 000000000..55cf4b678
--- /dev/null
+++ b/23/CH5/EX5.1/Example_5_1.sce
@@ -0,0 +1,22 @@
+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.1
+//Caption : Program To Find the Heat discarded to the River
+
+//Given Values
+Tc=295;//K
+Th=585;//K
+W=800000;//KW
+n_max=1-(Tc/Th);
+n=approx(0.7*n_max,3)
+Qc=approx(((1-n)/n)*W,-2);
+disp('KW',Qc,'Heat required');
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.3/Example_5_3.pdf b/23/CH5/EX5.3/Example_5_3.pdf
new file mode 100755
index 000000000..fb1eaa831
--- /dev/null
+++ b/23/CH5/EX5.3/Example_5_3.pdf
@@ -0,0 +1,146 @@
+%PDF-1.5
+%
+1 0 obj
+<<
+ /Type /Catalog
+ /Pages 2 0 R
+ /PageLayout /OneColumn
+ /PageMode /UseNone
+ /OCProperties <<
+ /D <<
+ /Order []
+ /AS [<<
+ /Event /View
+ /Category [/View ]
+>> <<
+ /Event /Print
+ /Category [/Print ]
+>> <<
+ /Event /Export
+ /Category [/Export ]
+>> ]
+>>
+>>
+>>
+endobj
+2 0 obj
+<<
+ /Type /Pages
+ /Kids [3 0 R ]
+ /Count 1
+>>
+endobj
+3 0 obj
+<<
+ /Type /Page
+ /Parent 2 0 R
+ /Resources <<
+ /ProcSet [/PDF /Text ]
+ /Font <<
+ /F1 6 0 R
+ /F2 9 0 R
+>>
+>>
+ /MediaBox [0 0 612 792]
+ /Contents 4 0 R
+>>
+endobj
+4 0 obj
+<<
+ /Filter /FlateDecode
+ /Length 319
+>>
+stream
+x^=k0w
+Wϵ 픢t𐖂S7P!!E!8xaMZLFweYÇИR# cy'^
+&v@jo2?UDcr{n!$3H!ЭAtYAa>& ~"mDmoxb+[cU0Ck" umGȚSQBTJ]ǭ#_F<=[M0䩔|P" "-xEChg;P/Dk0,% b0y{ktcBk
+2
+endstream
+endobj
+5 0 obj
+<<
+ /Producer <FEFF0064006F005000440046002000560065007200200037002E00320020004200750069006C006400200033003500350020002800570069006E0064006F00770073002000580050002000500072006F00660065007300730069006F006E0061006C002000450064006900740069006F006E002000200028005300500020003200290020002D002000560065007200730069006F006E003A00200035002E0031002E00320036003000300020002800780038003600290029>
+ /CreationDate (D:20110316185507+05'30')
+>>
+endobj
+6 0 obj
+<<
+ /Type /Font
+ /Subtype /TrueType
+ /FontDescriptor 7 0 R
+ /BaseFont /Calibri-Bold
+ /FirstChar 0
+ /LastChar 255
+ /Widths 8 0 R
+ /Encoding /WinAnsiEncoding
+>>
+endobj
+7 0 obj
+<<
+ /Type /FontDescriptor
+ /FontName /Calibri-Bold
+ /Ascent 750
+ /CapHeight 632
+ /Descent -250
+ /Flags 262176
+ /FontBBox [-493 -194 1239 952]
+ /ItalicAngle 0
+ /StemV 165
+ /XHeight 469
+>>
+endobj
+8 0 obj
+[507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 226 326 438 498 507 729 705 233 312 312 498 498 258 306 267 430 507 507 507 507 507 507 507 507 507 507 276 276 498 498 498 463 898 606 561 529 630 488 459 637 631 267 331 547 423 874 659 676 532 686 563 473 495 653 591 906 551 520 478 325 430 325 498 498 300 494 537 418 537 503 316 474 537 246 255 480 246 813 537 538 537 537 355 399 347 537 473 745 459 474 397 344 475 344 498 498 507 498 258 498 435 711 498 498 401 1062 473 344 874 498 478 498 498 258 258 435 435 498 498 905 444 720 399 344 843 498 397 520 226 326 498 507 498 507 498 498 415 834 416 539 498 306 507 390 342 498 338 336 301 563 598 268 303 252 435 539 658 691 702 463 606 606 606 606 606 606 775 529 488 488 488 488 267 267 267 267 639 659 676 676 676 676 676 498 681 653 653 653 653 520 532 555 494 494 494 494 494 494 775 418 503 503 503 503 246 246 246 246 537 537 538 538 538 538 538 498 544 537 537 537 537 474 537 474 ]
+endobj
+9 0 obj
+<<
+ /Type /Font
+ /Subtype /TrueType
+ /FontDescriptor 10 0 R
+ /BaseFont /Calibri
+ /FirstChar 0
+ /LastChar 255
+ /Widths 11 0 R
+ /Encoding /WinAnsiEncoding
+>>
+endobj
+10 0 obj
+<<
+ /Type /FontDescriptor
+ /FontName /Calibri
+ /Ascent 750
+ /CapHeight 632
+ /Descent -250
+ /Flags 32
+ /FontBBox [-476 -194 1214 952]
+ /ItalicAngle 0
+ /StemV 87
+ /XHeight 464
+>>
+endobj
+11 0 obj
+[507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 226 326 401 498 507 715 682 221 303 303 498 498 250 306 252 386 507 507 507 507 507 507 507 507 507 507 268 268 498 498 498 463 894 579 544 533 615 488 459 631 623 252 319 520 420 855 646 662 517 673 543 459 487 642 567 890 519 487 468 307 386 307 498 498 291 479 525 423 525 498 305 471 525 229 239 455 229 799 525 527 525 525 349 391 335 525 452 715 433 453 395 314 460 314 498 498 507 498 250 498 418 690 498 498 395 1038 459 339 867 498 468 498 498 250 250 418 418 498 498 905 450 705 391 339 850 498 395 487 226 326 498 507 498 507 498 498 393 834 402 512 498 306 507 394 339 498 336 334 292 550 586 252 307 246 422 512 636 671 675 463 579 579 579 579 579 579 763 533 488 488 488 488 252 252 252 252 625 646 662 662 662 662 662 498 664 642 642 642 642 487 517 527 479 479 479 479 479 479 773 423 498 498 498 498 229 229 229 229 525 525 527 527 527 527 527 498 529 525 525 525 525 453 525 453 ]
+endobj
+xref
+0 12
+0000000000 65535 f
+0000000015 00000 n
+0000000320 00000 n
+0000000388 00000 n
+0000000577 00000 n
+0000000975 00000 n
+0000001424 00000 n
+0000001615 00000 n
+0000001838 00000 n
+0000002881 00000 n
+0000003069 00000 n
+0000003283 00000 n
+trailer
+<<
+ /Root 1 0 R
+ /Info 5 0 R
+ /Size 12
+>>
+startxref
+4327
+%%EOF
diff --git a/23/CH5/EX5.3/Example_5_3.sce b/23/CH5/EX5.3/Example_5_3.sce
new file mode 100755
index 000000000..655ac6102
--- /dev/null
+++ b/23/CH5/EX5.3/Example_5_3.sce
@@ -0,0 +1,45 @@
+clear;
+clc;
+
+//Example 5.3
+//Caption : Program to Find the Final Temperature in Reversible Adiabatic Expansion
+
+function[Q]=MCPS(T0,T,A,B,C,D)
+ t=T/T0;
+ Q=(A)+(((B*T0)+(((C*T0*T0)+(D/(t*t*T0*T0)))*(t+1)/2))*((t-1)/log(t)))
+ funcprot(0);
+endfunction
+
+
+//Given values
+P2=1;//bar
+P1=5;//bar
+T0=550;//K
+A=1.702;
+B=9.081*(10^-3);
+C=-2.164*(10^-6);
+D=0;
+
+//Equation to be used
+//(<Cp>s/R)ln(T2/T1)=ln(P2/P1) since del_S=0
+//let I=(<Cp>s/R)
+
+//T2=exp(log(1/5)/I);
+a=T0-1;//Initial
+i=-1;
+while (i==-1)
+ b=MCPS(T0,a,A,B,C,D);
+ c=(log(1/5))/(log(a/T0));
+ flag=c-b;
+ if(flag<=0.0001) then
+ T=a;
+ i=1;
+ else
+ a=a-.01;
+ i=-1;
+ end
+end
+
+disp('K',T,'Final Temperature')
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.4/Example_5_4.pdf b/23/CH5/EX5.4/Example_5_4.pdf
new file mode 100755
index 000000000..71afce4a4
--- /dev/null
+++ b/23/CH5/EX5.4/Example_5_4.pdf
Binary files differ
diff --git a/23/CH5/EX5.4/Example_5_4.sce b/23/CH5/EX5.4/Example_5_4.sce
new file mode 100755
index 000000000..8c3d92932
--- /dev/null
+++ b/23/CH5/EX5.4/Example_5_4.sce
@@ -0,0 +1,43 @@
+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.4
+//Caption : Program To Find the change in entropy in a steel Casing
+
+//Given Values
+
+//For Casting
+Cp_Casting=0.5;//[KJ/Kg/K]
+T1=723.15;//[K]
+T0=298.15;//[K]
+M_Casting=40;//[Kg]
+//For Oil
+Cp_Oil=2.5;//[KJ/Kg/K]
+M_Oil=150;//[Kg]
+
+//Formula M1Cp1dT`=M2Cp2dT
+//40*0.5*(T-723.15)=150*2.5*(298.15-T)
+//Whence
+T=((T1*M_Casting*Cp_Casting)+(T0*M_Oil*Cp_Oil))/((M_Casting*Cp_Casting)+(M_Oil*Cp_Oil));
+
+//(a)-change in entropy For casting
+del_S_Casting=approx(M_Casting*Cp_Casting*integrate('1/T','T',T1,T),2);
+
+disp('KJ/K',del_S_Casting,'(a)Change In Entropy of Casting')
+
+//(b)-change in entropy For Oil
+del_S_Oil=approx(M_Oil*Cp_Oil*integrate('1/T','T',T0,T),2);
+
+disp('KJ/K',del_S_Oil,'(b)Change In Entropy of Oil')
+
+//(c)-Total
+del_S_total=del_S_Casting+del_S_Oil;
+disp('KJ/K',del_S_total,'(c)Total entropy change')
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.5/Example_5_5.pdf b/23/CH5/EX5.5/Example_5_5.pdf
new file mode 100755
index 000000000..f288356b0
--- /dev/null
+++ b/23/CH5/EX5.5/Example_5_5.pdf
Binary files differ
diff --git a/23/CH5/EX5.5/Example_5_5.sce b/23/CH5/EX5.5/Example_5_5.sce
new file mode 100755
index 000000000..b711fd6fe
--- /dev/null
+++ b/23/CH5/EX5.5/Example_5_5.sce
@@ -0,0 +1,32 @@
+clear;
+clc;
+
+//Example 5.5
+//Caption : Program to Find the Rate of Heat Transfer and Entropy
+
+//Given Values
+
+//Gas A
+rn_A=1;//rate[mol/s]
+T_A=600;//[K]
+
+//Gas B
+rn_B=2;//rate[mol/s]
+T_B=450;//[K]
+
+//product
+rn=rn_A+rn_B;//[mol/s]
+T=400;//[K]
+R=8.314;
+Cp=(7/2)*R;
+T_s=300;//Temperature[K]
+
+//By equation (2.30) rQ=rn*H-rn_A*H_A-rn_B*H_B=rn_A(H-H_A)+rn_B*(H-H_B) Rate of heat transfer
+rQ=(rn_A*Cp*(T-T_A))+(rn_B*Cp*(T-T_B));//[J/s] or [W]
+//By eqn (5.22) rSg=rn*S-(rn_A*S_A)-(rn_B*S_B)-(rQ/T_s) rate of entropy generation for the process
+rSg=approx((rn_A*Cp*log(T/T_A))+(rn_B*Cp*log(T/T_B))-(rQ/T_s),3);//[J/K/s]
+
+disp('J/s or W',rQ,'Rate of heat transfer')
+disp('J/K/s',rSg,'Rate of entropy generation')
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.6/Example_5_6.pdf b/23/CH5/EX5.6/Example_5_6.pdf
new file mode 100755
index 000000000..e2348923b
--- /dev/null
+++ b/23/CH5/EX5.6/Example_5_6.pdf
@@ -0,0 +1,144 @@
+%PDF-1.5
+%
+1 0 obj
+<<
+ /Type /Catalog
+ /Pages 2 0 R
+ /PageLayout /OneColumn
+ /PageMode /UseNone
+ /OCProperties <<
+ /D <<
+ /Order []
+ /AS [<<
+ /Event /View
+ /Category [/View ]
+>> <<
+ /Event /Print
+ /Category [/Print ]
+>> <<
+ /Event /Export
+ /Category [/Export ]
+>> ]
+>>
+>>
+>>
+endobj
+2 0 obj
+<<
+ /Type /Pages
+ /Kids [3 0 R ]
+ /Count 1
+>>
+endobj
+3 0 obj
+<<
+ /Type /Page
+ /Parent 2 0 R
+ /Resources <<
+ /ProcSet [/PDF /Text ]
+ /Font <<
+ /F1 6 0 R
+ /F2 9 0 R
+>>
+>>
+ /MediaBox [0 0 612 792]
+ /Contents 4 0 R
+>>
+endobj
+4 0 obj
+<<
+ /Filter /FlateDecode
+ /Length 435
+>>
+stream
+x^KO#1 9&1q$ s[!4<Z!W)~nwTTJo.q/NQTɟL9a١VF YV'ک?j]P՛8LD)s>B:Bw|e)C !
+u{V}P4 L4.( =8a)`&9qdā"}z!uDOf^~%Œ ^y!×jkY/6*I9XTN #=l/]%)GE)^i.UJË^Z[Tm-N!I?>55e;5aRl)rҊ=|\ D'#L]µ:\ps>[θH3:owJ{[
+endstream
+endobj
+5 0 obj
+<<
+ /Producer <FEFF0064006F005000440046002000560065007200200037002E00320020004200750069006C006400200033003500350020002800570069006E0064006F00770073002000580050002000500072006F00660065007300730069006F006E0061006C002000450064006900740069006F006E002000200028005300500020003200290020002D002000560065007200730069006F006E003A00200035002E0031002E00320036003000300020002800780038003600290029>
+ /CreationDate (D:20110316185553+05'30')
+>>
+endobj
+6 0 obj
+<<
+ /Type /Font
+ /Subtype /TrueType
+ /FontDescriptor 7 0 R
+ /BaseFont /Calibri-Bold
+ /FirstChar 0
+ /LastChar 255
+ /Widths 8 0 R
+ /Encoding /WinAnsiEncoding
+>>
+endobj
+7 0 obj
+<<
+ /Type /FontDescriptor
+ /FontName /Calibri-Bold
+ /Ascent 750
+ /CapHeight 632
+ /Descent -250
+ /Flags 262176
+ /FontBBox [-493 -194 1239 952]
+ /ItalicAngle 0
+ /StemV 165
+ /XHeight 469
+>>
+endobj
+8 0 obj
+[507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 226 326 438 498 507 729 705 233 312 312 498 498 258 306 267 430 507 507 507 507 507 507 507 507 507 507 276 276 498 498 498 463 898 606 561 529 630 488 459 637 631 267 331 547 423 874 659 676 532 686 563 473 495 653 591 906 551 520 478 325 430 325 498 498 300 494 537 418 537 503 316 474 537 246 255 480 246 813 537 538 537 537 355 399 347 537 473 745 459 474 397 344 475 344 498 498 507 498 258 498 435 711 498 498 401 1062 473 344 874 498 478 498 498 258 258 435 435 498 498 905 444 720 399 344 843 498 397 520 226 326 498 507 498 507 498 498 415 834 416 539 498 306 507 390 342 498 338 336 301 563 598 268 303 252 435 539 658 691 702 463 606 606 606 606 606 606 775 529 488 488 488 488 267 267 267 267 639 659 676 676 676 676 676 498 681 653 653 653 653 520 532 555 494 494 494 494 494 494 775 418 503 503 503 503 246 246 246 246 537 537 538 538 538 538 538 498 544 537 537 537 537 474 537 474 ]
+endobj
+9 0 obj
+<<
+ /Type /Font
+ /Subtype /TrueType
+ /FontDescriptor 10 0 R
+ /BaseFont /Calibri
+ /FirstChar 0
+ /LastChar 255
+ /Widths 11 0 R
+ /Encoding /WinAnsiEncoding
+>>
+endobj
+10 0 obj
+<<
+ /Type /FontDescriptor
+ /FontName /Calibri
+ /Ascent 750
+ /CapHeight 632
+ /Descent -250
+ /Flags 32
+ /FontBBox [-476 -194 1214 952]
+ /ItalicAngle 0
+ /StemV 87
+ /XHeight 464
+>>
+endobj
+11 0 obj
+[507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 226 326 401 498 507 715 682 221 303 303 498 498 250 306 252 386 507 507 507 507 507 507 507 507 507 507 268 268 498 498 498 463 894 579 544 533 615 488 459 631 623 252 319 520 420 855 646 662 517 673 543 459 487 642 567 890 519 487 468 307 386 307 498 498 291 479 525 423 525 498 305 471 525 229 239 455 229 799 525 527 525 525 349 391 335 525 452 715 433 453 395 314 460 314 498 498 507 498 250 498 418 690 498 498 395 1038 459 339 867 498 468 498 498 250 250 418 418 498 498 905 450 705 391 339 850 498 395 487 226 326 498 507 498 507 498 498 393 834 402 512 498 306 507 394 339 498 336 334 292 550 586 252 307 246 422 512 636 671 675 463 579 579 579 579 579 579 763 533 488 488 488 488 252 252 252 252 625 646 662 662 662 662 662 498 664 642 642 642 642 487 517 527 479 479 479 479 479 479 773 423 498 498 498 498 229 229 229 229 525 525 527 527 527 527 527 498 529 525 525 525 525 453 525 453 ]
+endobj
+xref
+0 12
+0000000000 65535 f
+0000000015 00000 n
+0000000320 00000 n
+0000000388 00000 n
+0000000577 00000 n
+0000001091 00000 n
+0000001540 00000 n
+0000001731 00000 n
+0000001954 00000 n
+0000002997 00000 n
+0000003185 00000 n
+0000003399 00000 n
+trailer
+<<
+ /Root 1 0 R
+ /Info 5 0 R
+ /Size 12
+>>
+startxref
+4443
+%%EOF
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
diff --git a/23/CH5/EX5.7/Example_5_7.pdf b/23/CH5/EX5.7/Example_5_7.pdf
new file mode 100755
index 000000000..d2044d329
--- /dev/null
+++ b/23/CH5/EX5.7/Example_5_7.pdf
Binary files differ
diff --git a/23/CH5/EX5.7/Example_5_7.sce b/23/CH5/EX5.7/Example_5_7.sce
new file mode 100755
index 000000000..850ae5e21
--- /dev/null
+++ b/23/CH5/EX5.7/Example_5_7.sce
@@ -0,0 +1,47 @@
+clear;
+clc;
+
+
+//Example 5.7
+//Caption : Program to Find the Maximum Work obtained in a Steady state Flow
+
+
+//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
+
+function[Q]=ICPH(T0,T,A,B,C,D)
+ t=T/T0;
+ Q=(A+((B/2)*T0*(t+1))+((C/3)*T0*T0*((t^2)+t+1))+(D/(t*T0*T0)))*(T-T0)
+ funcprot(0);
+endfunction
+
+function[Q]=ICPS(T0,T,A,B,C,D)
+ t=T/T0;
+ Q=((A)*log(t))+(((B*T0)+(((C*T0*T0)+(D/(t*t*T0*T0)))*(t+1)/2))*(t-1))
+ funcprot(0);
+endfunction
+
+
+//Given Values
+P1=50;//bar
+P2=1.013;//bar
+T1=800;//[K]
+T2=300;//[K]
+R=8.314;
+
+//del_H=intergral(CpdT) in the limits T1 and T2
+A=3.280;
+B=0.593*(10^-3);
+C=0;
+D=0.040*(10^5);
+del_H=R*ICPH(T1,T2,A,B,C,D);//[J/mol]
+
+//del_S=integral[Cp(dT/T)] -Rln(P2/P1) btw the limits T1,T2
+del_S=(R*ICPS(T1,T2,A,B,C,D))-(R*log(P2/P1));//[J/mol/K]
+W_ideal=approx(del_H-(T2*del_S),0);//[J/mol]
+disp('J/mol',W_ideal,'Maximum Work')
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.8/Example_5_8.pdf b/23/CH5/EX5.8/Example_5_8.pdf
new file mode 100755
index 000000000..ba5ff746f
--- /dev/null
+++ b/23/CH5/EX5.8/Example_5_8.pdf
@@ -0,0 +1,143 @@
+%PDF-1.5
+%
+1 0 obj
+<<
+ /Type /Catalog
+ /Pages 2 0 R
+ /PageLayout /OneColumn
+ /PageMode /UseNone
+ /OCProperties <<
+ /D <<
+ /Order []
+ /AS [<<
+ /Event /View
+ /Category [/View ]
+>> <<
+ /Event /Print
+ /Category [/Print ]
+>> <<
+ /Event /Export
+ /Category [/Export ]
+>> ]
+>>
+>>
+>>
+endobj
+2 0 obj
+<<
+ /Type /Pages
+ /Kids [3 0 R ]
+ /Count 1
+>>
+endobj
+3 0 obj
+<<
+ /Type /Page
+ /Parent 2 0 R
+ /Resources <<
+ /ProcSet [/PDF /Text ]
+ /Font <<
+ /F1 6 0 R
+ /F2 9 0 R
+>>
+>>
+ /MediaBox [0 0 612 792]
+ /Contents 4 0 R
+>>
+endobj
+4 0 obj
+<<
+ /Filter /FlateDecode
+ /Length 329
+>>
+stream
+x^MK@+8sȸϫPJxPElѶΦUPM L»Off٨:okP}TFk 圸{c&PZ|`aM52ngjڪ̆RsW]b0D R YO;L1CDK7oKVL6b߫(`j aLrDt\X³h{ZhLpW1Nr(}ժeޖh/_&SΦm̞F&# Qx\M0_a$^4ALظVf'~:I
+endstream
+endobj
+5 0 obj
+<<
+ /Producer <FEFF0064006F005000440046002000560065007200200037002E00320020004200750069006C006400200033003500350020002800570069006E0064006F00770073002000580050002000500072006F00660065007300730069006F006E0061006C002000450064006900740069006F006E002000200028005300500020003200290020002D002000560065007200730069006F006E003A00200035002E0031002E00320036003000300020002800780038003600290029>
+ /CreationDate (D:20110316185610+05'30')
+>>
+endobj
+6 0 obj
+<<
+ /Type /Font
+ /Subtype /TrueType
+ /FontDescriptor 7 0 R
+ /BaseFont /Calibri-Bold
+ /FirstChar 0
+ /LastChar 255
+ /Widths 8 0 R
+ /Encoding /WinAnsiEncoding
+>>
+endobj
+7 0 obj
+<<
+ /Type /FontDescriptor
+ /FontName /Calibri-Bold
+ /Ascent 750
+ /CapHeight 632
+ /Descent -250
+ /Flags 262176
+ /FontBBox [-493 -194 1239 952]
+ /ItalicAngle 0
+ /StemV 165
+ /XHeight 469
+>>
+endobj
+8 0 obj
+[507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 226 326 438 498 507 729 705 233 312 312 498 498 258 306 267 430 507 507 507 507 507 507 507 507 507 507 276 276 498 498 498 463 898 606 561 529 630 488 459 637 631 267 331 547 423 874 659 676 532 686 563 473 495 653 591 906 551 520 478 325 430 325 498 498 300 494 537 418 537 503 316 474 537 246 255 480 246 813 537 538 537 537 355 399 347 537 473 745 459 474 397 344 475 344 498 498 507 498 258 498 435 711 498 498 401 1062 473 344 874 498 478 498 498 258 258 435 435 498 498 905 444 720 399 344 843 498 397 520 226 326 498 507 498 507 498 498 415 834 416 539 498 306 507 390 342 498 338 336 301 563 598 268 303 252 435 539 658 691 702 463 606 606 606 606 606 606 775 529 488 488 488 488 267 267 267 267 639 659 676 676 676 676 676 498 681 653 653 653 653 520 532 555 494 494 494 494 494 494 775 418 503 503 503 503 246 246 246 246 537 537 538 538 538 538 538 498 544 537 537 537 537 474 537 474 ]
+endobj
+9 0 obj
+<<
+ /Type /Font
+ /Subtype /TrueType
+ /FontDescriptor 10 0 R
+ /BaseFont /Calibri
+ /FirstChar 0
+ /LastChar 255
+ /Widths 11 0 R
+ /Encoding /WinAnsiEncoding
+>>
+endobj
+10 0 obj
+<<
+ /Type /FontDescriptor
+ /FontName /Calibri
+ /Ascent 750
+ /CapHeight 632
+ /Descent -250
+ /Flags 32
+ /FontBBox [-476 -194 1214 952]
+ /ItalicAngle 0
+ /StemV 87
+ /XHeight 464
+>>
+endobj
+11 0 obj
+[507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 507 226 326 401 498 507 715 682 221 303 303 498 498 250 306 252 386 507 507 507 507 507 507 507 507 507 507 268 268 498 498 498 463 894 579 544 533 615 488 459 631 623 252 319 520 420 855 646 662 517 673 543 459 487 642 567 890 519 487 468 307 386 307 498 498 291 479 525 423 525 498 305 471 525 229 239 455 229 799 525 527 525 525 349 391 335 525 452 715 433 453 395 314 460 314 498 498 507 498 250 498 418 690 498 498 395 1038 459 339 867 498 468 498 498 250 250 418 418 498 498 905 450 705 391 339 850 498 395 487 226 326 498 507 498 507 498 498 393 834 402 512 498 306 507 394 339 498 336 334 292 550 586 252 307 246 422 512 636 671 675 463 579 579 579 579 579 579 763 533 488 488 488 488 252 252 252 252 625 646 662 662 662 662 662 498 664 642 642 642 642 487 517 527 479 479 479 479 479 479 773 423 498 498 498 498 229 229 229 229 525 525 527 527 527 527 527 498 529 525 525 525 525 453 525 453 ]
+endobj
+xref
+0 12
+0000000000 65535 f
+0000000015 00000 n
+0000000320 00000 n
+0000000388 00000 n
+0000000577 00000 n
+0000000985 00000 n
+0000001434 00000 n
+0000001625 00000 n
+0000001848 00000 n
+0000002891 00000 n
+0000003079 00000 n
+0000003293 00000 n
+trailer
+<<
+ /Root 1 0 R
+ /Info 5 0 R
+ /Size 12
+>>
+startxref
+4337
+%%EOF
diff --git a/23/CH5/EX5.8/Example_5_8.sce b/23/CH5/EX5.8/Example_5_8.sce
new file mode 100755
index 000000000..95c5c2ec8
--- /dev/null
+++ b/23/CH5/EX5.8/Example_5_8.sce
@@ -0,0 +1,31 @@
+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.8
+//Caption : Program To Find the Maximum Possible Work for Ideal Condition
+
+//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]
+
+del_H=H2-H1;
+del_S=S2-S1;
+W_ideal=del_H-(T_sigma*del_S);//[KJ/Kg]
+Q=approx(abs(W_ideal*(T_r/(T_sigma-T_r))),1);//[KJ]
+disp('KJ',Q,'Maximum Possible Work')
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.9/Example_5_9.pdf b/23/CH5/EX5.9/Example_5_9.pdf
new file mode 100755
index 000000000..e44a1c784
--- /dev/null
+++ b/23/CH5/EX5.9/Example_5_9.pdf
Binary files differ
diff --git a/23/CH5/EX5.9/Example_5_9.sce b/23/CH5/EX5.9/Example_5_9.sce
new file mode 100755
index 000000000..f7fe5fe9b
--- /dev/null
+++ b/23/CH5/EX5.9/Example_5_9.sce
@@ -0,0 +1,101 @@
+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.9
+//Caption : Program to find the Lost Work in Heat Exchangers
+
+//Given Values
+
+T_H1=400;//[K]
+T_H2=350;//[K]
+T_C1=300;//[K]
+T_sigma=300;//[K]
+rn_H=1;//[mol/s]
+R=8.314;
+Cp=(7/2)*R;
+
+T_C2_a=T_H2-10;
+T_C2_b=T_H1-10;
+
+//Figure
+mtlb_axis('auto');
+subplot(1,2,1);
+X=[0,1];
+Y=[T_C1,T_C2_a];
+plot2d(X,Y);
+Y=[T_H1,T_H2];
+plot2d(X,Y,style=3,rect=[0,290,1,410]);
+legend('Tc','Th')
+X=[1,1];
+Y=[290,410];
+plot2d(X,Y);
+X=[0,0.25];
+Y=[T_C1,T_C1];
+plot(X,Y,'--');
+Y=[T_H1,T_H1];
+plot(X,Y,'--');
+X=[0.75,1];
+Y=[T_C2_a,T_C2_a];
+plot(X,Y,'--');
+Y=[T_H2,T_H2];
+plot(X,Y,'--');
+xtitle("(a)Case 1,Cocurrent","Qc","T");
+
+subplot(1,2,2);
+X=[0,1];
+Y=[T_C1,T_C2_b];
+plot2d(X,Y);
+Y=[T_H2,T_H1];
+plot2d(X,Y,style=3,rect=[0,290,1,410]);
+legend('Tc','Th')
+X=[1,1];
+Y=[290,410];
+plot2d(X,Y);
+X=[0,0.25];
+Y=[T_C1,T_C1];
+plot(X,Y,'--');
+Y=[T_H2,T_H2];
+plot(X,Y,'--');
+X=[0.75,1];
+Y=[T_C2_b,T_C2_b];
+plot(X,Y,'--');
+Y=[T_H1,T_H1];
+plot(X,Y,'--');
+xtitle("(b)Case 2,Countercurrent","Qc","T");
+
+//Solution
+//Equation to be used
+//(rn_H*Cp(T_H2-T_H1))+(rn_C*Cp(T_C2-T_C1))=0 Eq(A)
+//del_rS=rn_H*Cp*(ln(T_H2/T_H1)+kln(T_C2/T_C1)) k=rn_C/rn_H r-->Rate Eqn(B)
+//rW_lost=T_sigma*del_rS Eqn(C)
+
+//(a)-Cocurrent
+//by Eqn(A)
+T_C2_a=T_H2-10;
+k=(T_H1-T_H2)/(T_C2_a-T_C1);//k=rn_C/rn_H
+//By Eqn(B)
+del_rS=approx(rn_H*Cp*(log(T_H2/T_H1)+(k*log(T_C2_a/T_C1))),3);//[J/K/s]
+//By Eqn(C)
+rW_lost=approx(T_sigma*del_rS,1);//[J/s]or[W]
+disp('(a)-Cocurrent')
+disp('J/K/s',del_rS,'Rate Of change of entropy')
+disp('J/s or W',rW_lost,'Lost Work')
+
+//(b)-Countercurrent
+T_C2_b=T_H1-10;
+k=(T_H1-T_H2)/(T_C2_b-T_C1);//k=rn_C/rn_H
+//By Eqn(B)
+del_rS=approx(rn_H*Cp*(log(T_H2/T_H1)+(k*log(T_C2_b/T_C1))),3);//[J/K/s]
+//By Eqn(C)
+rW_lost=approx(T_sigma*del_rS,1);//[J/s]or[W]
+disp('(b)-Countercurrent')
+disp('J/K/s',del_rS,'Rate Of change of entropy')
+disp('J/s or W',rW_lost,'Lost Work')
+
+//End \ No newline at end of file
diff --git a/23/CH5/EX5.9/Figure_5_9.jpg b/23/CH5/EX5.9/Figure_5_9.jpg
new file mode 100755
index 000000000..7f4254dbd
--- /dev/null
+++ b/23/CH5/EX5.9/Figure_5_9.jpg
Binary files differ
generated by cgit (git 2.34.1) at 2024-12-22 20:45:59 +0000