rankine cycle

Objective: clear all close all clc disp(\'RANKINE CYCLE\'); disp(\'1-2 : isentropic expansion\') disp(\'2-3 : constant pressure heat rejection\') disp(\'3-4 : isentropic compression\') disp(\'4-1 : constant pressure heat addition\') %input parameters t1 = 400; p1 = 30; p2 = 0.05; %---pt 1--- h1 = XSteam(\'h_pt\',p1,t1); s1 = XSteam(\'s_pt\',p1,t1);…