1 files changed, 26 insertions, 0 deletions
diff --git a/944/CH6/EX6.5/example6_5_TACC.sce b/944/CH6/EX6.5/example6_5_TACC.sce
new file mode 100755
index 000000000..f5842cfcb
--- /dev/null
+++ b/944/CH6/EX6.5/example6_5_TACC.sce
@@ -0,0 +1,26 @@
+//example 6.5
+
+clear;
+clc;
+
+//Given:
+b=0.0391;//Van der waals constant[dm3/mol]
+R=0.082;//Universal gas constant[dm3*atm/mol]
+P2=1000;//pressure [atm]
+P1=0;//pressure [atm]
+T=1273;//Temperature [K]
+
+//To find the fugacity and fugacity coefficient
+x=b*(P2-P1);
+y=R*T;
+fc=exp(x/y);//fugacity coefficient
+
+f=P2*fc;//fugacity[atm]
+printf("The fugacity is %f atm",f);
+printf("\n The fugacity coefficient is %f ",fc);
+
+
+
+
+
+