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-')