clear; clc
figure(1); clf
i = 0 
axis([270, 380, 0, 1.05e5]);
hold on;
while i <= 100
    
    x = 273.15 + i;
    y = satprs (x );
    plot ( x, y, '*r','Markersize',10);
    pause(1);
    i = i + 5;
end
