summaryrefslogtreecommitdiff
path: root/23/CH5/EX5.7
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /23/CH5/EX5.7
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/EX5.7')
-rwxr-xr-x23/CH5/EX5.7/Example_5_7.pdfbin0 -> 4671 bytes
-rwxr-xr-x23/CH5/EX5.7/Example_5_7.sce47
2 files changed, 47 insertions, 0 deletions
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