clear; clc
i = 0
while i <= 100
    x = 273.15 + i;
    y = satprs (x );
    plot ( x, y, '*r','Markersize',10);
    hold on;
    i = i + 5;
end
