1 files changed, 23 insertions, 0 deletions
diff --git a/3843/CH4/EX4.3/Ex4_3.sce b/3843/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..852314594
--- /dev/null
+++ b/3843/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,23 @@
+// Example 4_3
+clc;funcprot(0);
+// Given data
+V=6;// ft^3
+p=400;// psia
+T=900;// °F
+Q=800;// Btu
+
+// Calculation
+u_1=1324;// Btu/lbm
+v_1=1.978;// ft^3/lbm
+m=V/v_1;// lbm
+u_2=(Q/m)+u_1;// Btu/lbm
+// At 500 psia
+v_a=1.978;// ft^3/lbm
+u_a=1459;// Btu/lbm
+T_a=1221;// °F
+// At 600 psia 
+v_b=1.978;// ft^3/lbm
+u_b=1603;// Btu/lbm
+T_b=1546;// °F
+T_2=T_b-(((u_b-u_2)/(u_b-u_a))*(T_b-T_a));// °F
+printf("\nThe final temperature,T_2=%4.0f°F",T_2);