clear; clc; close all;

K = linspace(0,400,200);
C = K-273.15;
F = 1.8*K-459.67;

%[r,g,b] = [0 0 1] - [0.9 0 0.9] - [1 0 0]
r0=0.7; g0=0.5;
N1 = 200; N2 = round(3/5*N1);
colors(:,1) = [linspace(0,r0,N1),linspace(r0,1,N1)];
colors(:,2) = [zeros(1,N2),linspace(0,g0,N1-N2),linspace(g0,0,N1-N2),zeros(1,N2)];
colors(:,3) = [linspace(1,r0,N1),linspace(r0,0,N1)];
colors(N1,:)=[];
colors(N1,:)=1;

f = figure('Position',[50,50,400,500]); hold on;
h=scatter(ones(size(K)),K,15,K);
set(h,'MarkerFaceColor',get(h,'MarkerEdgeColor'))
h=scatter(1+ones(size(K)),K,15,C);
set(h,'MarkerFaceColor',get(h,'MarkerEdgeColor'))
h=scatter(2+ones(size(K)),K,15,F);
set(h,'MarkerFaceColor',get(h,'MarkerEdgeColor'))
xlim([0.5,4])
ylim([-50,450])
colormap(colors)
caxis([-460,460])

T = [0 255.37 273.15 310.93 373.15];

for ii = 1:length(T)
    text(1.55,T(ii),sprintf('%.2f K',T(ii)),'HorizontalAlignment','r');
    text(2.6,T(ii),sprintf('%.2f °C',interp1(K,C,T(ii))),'HorizontalAlignment','r');
    text(3.6,T(ii),sprintf('%.2f °F',interp1(K,F,T(ii))),'HorizontalAlignment','r');
end

text(1,420,'Kelvin');
text(2,420,'Celsius');
text(3,420,'Fahrenheit');

set(gca,'Position',[0,0,1,1])
axis off

print(f,'Kelvin_Celsius_Fahrenheit','-dpng','-r150');