Scaling.m

clc
clear
for i=1:0.01:1000
    a = (i/(i+1));
    b = ((i+1)/i);
    a = round(a*1000)/1000;
    b = round(b*1000)/1000;
    if(a*b == 1)
        disp(i + " " + (i+1) + " -> " + (i/(i+1)) + " " + ((i+1)/i));
    end
end

close all

data = [50	1.99 	2.37 
100	1.62 	1.93 
200	0.98 	1.17 
400	0.72 	0.86 
800	0.65 	0.77 
1200	0.55 	0.65 
2000	0.47 	0.56 
3200	0.45 	0.54 
5200	0.43 	0.51 
10000	0.42 	0.50 ];
data = [data data(:,1) .* data(:,3)];
plot(data(:,1),data(:,4),"-*");
figure();
plot(data(:,1),data(:,3),"-*");