1 files changed, 17 insertions, 0 deletions
diff --git a/2870/CH12/EX12.6/Ex12_6.sce b/2870/CH12/EX12.6/Ex12_6.sce
new file mode 100755
index 000000000..d7c69b46a
--- /dev/null
+++ b/2870/CH12/EX12.6/Ex12_6.sce
@@ -0,0 +1,17 @@
+clc;clear;
+//Example 12.6
+
+//given data
+T1=-40+460;
+T2=-50+460;//converted into R from F
+R=0.01946;
+
+//from Table A-11E
+P1=7.432;
+hfg=97.100;
+
+//calcualation\
+//using Equation 12–24
+//ln(P2/P1)= hfg/R *(1/T1 - 1/T2)
+P2=P1*exp(hfg/R *(1/T1 - 1/T2));
+disp(P2,'the saturation pressure of refrigerant-134a in psia')