clear all
close all
clc

x=(1790:10:1910);
y=[3929214 5308483 7239881 9638453 12866020 17069453 23191876 31443321 38558371 50155783 62947714 75994575 91972266];


plot(x,y,'^','MarkerEdgeColor','k',...
             'MarkerFaceColor','r',...
             'MarkerSize',7)
grid on
axis('normal')
title('Población EUA (1790-1910) (Pearl and Reed, 1920)')
xlabel('Años')
ylabel('Tamaño de la Población')

x=(0:1:18);
y=[96*10^-1 183*10^-1 29 472*10^-1 711*10^-1 1191*10^-1 1746*10^-1 2573*10^-1 3507*10^-1 441 5133*10^-1 5597*10^-1 5948*10^-1 6294*10^-1 6408*10^-1 6511*10^-1 6559*10^-1 6596*10^-1 6618*10^-1];

figure
plot(x,y,'o','MarkerEdgeColor','k',...
             'MarkerFaceColor','g',...
             'MarkerSize',7)
grid on
axis('normal')
title('Crecimiento de una Población de Levaduras [ Carlson (1913) en Pearl (1927) ]')
xlabel('Horas')
ylabel('Cantidad de Células')