1 files changed, 10 insertions, 0 deletions
diff --git a/779/CH8/EX8.3/8_3.sce b/779/CH8/EX8.3/8_3.sce
new file mode 100755
index 000000000..734cecf59
--- /dev/null
+++ b/779/CH8/EX8.3/8_3.sce
@@ -0,0 +1,10 @@
+Tw = 75+273;
+Ts = 5+273; // Ts = T0
+m = 40;
+cp = 4.2;
+W = integrate('m*cp*(1-(Ts/T))','T',Ts,Tw);
+Q1 = m*cp*(Tw-Ts);
+UE = Q1-W;
+disp("kJ",W,"Total work")
+disp("kJ",Q1,"Heat released")
+disp("kJ",UE,"Internal energy change")
+\ No newline at end of file