2870/CH2/EX2.10/Ex2_10.sce


1
2
3
4
5
6
7
8
9
10
11
12

clc;clear;
//Example 2.10

//given values
Win=100;
Qout=500;
U1=800;

//calculationu
// Win - Qout = U2- U1 i.e change in internal energy 
U2=U1-Qout+Win
disp(U2,'final internal of the system in kJ-')