%% USA:n väestöennuste
close all
%% Luodaan lauseke 
P = @(t) 197273000./(1+exp(-0.0313*(t-1913.25)));
t = 1790:2000;
%% Piirretään ensiksi lyhyemmällä välillä
plot(t,P(t))
grid

%% Sitten isommalle ajalle

t = 1790:2020;
plot(t,P(t))
grid

%% Lisätään vielä muutama oikea arvo kuvaan 

population_true = [76 92 106 122 132 150 179 203 226 248];
population_true = population_true*1e6;
times_true = 1900:10:1990;
hold on 
plot(times_true,population_true,'ro')
hold off
% Vaikuttaisi, että malli pätee 1950-luvulle asti.