clear all;close all; clc;
% jfm 2018, fig. 7
% data structure [RT rho(\KL, \beta )]

load data_fig7_corr-kl-beta.mat
%hw18 : present data
%hw14 : free-slip data, low to moderate RT

figure;
set(gcf,'DefaultTextFontName','Helvetica','DefaultAxesFontName','Helvetica')
set(gcf,'DefaultTextFontSize',8,'DefaultAxesFontSize',8)
%
plot(data.hw18(:,1), data.hw18(:,2),'ok'); 
hold on;
plot(data.hw14(:,1), data.hw14(:,2),'^k');
%
legend('present DNS','HW14')
set(legend,'box','off','location','northeast','color','w')
ylim([0.75 0.95]);
xlabel('R_T');
ylabel('\rho(K_L,\beta)');