In[]:=
daten={{0,1.6},{27,2},{50,2.53},{60,3.03},{70,3.69},{80,4.45},{90,5.32},{100,6.13},{110,6.92},{115,7.35},{116,7.44}}​​tabelle2=Grid[{{"Jahre nach 1900","Weltbevölkerung in Mrd."},{0,1.6},{27,2},{50,2.53},{60,3.03},{70,3.69},{80,4.45},{90,5.32},{100,6.13},{110,6.92},{115,7.35},{116,7.44}},AlignmentLeft,Spacings{3,1},Dividers{{False,True},{False,True}}]​​punkte=ListPlot[daten]​​kurve=ListPlot[daten,JoinedTrue]​​nlm=NonlinearModelFit[daten,a/(1+b*Exp[(-c)*x])+d,{a,b,c,d},x];​​fit=Normal[%];​​Framed[Labeled[fit,"Der gesuchte Nonlinear-Fit ist:",Top]]​​g[x_]:=fit;​​fitpunkte=Table[{x,g[x]},{x,0,116,10}];​​tabellefit=Grid[Prepend[fitpunkte,{"Jahre nach 1900","Berechnete Werte der Weltbevölkerung in Mrd."}],AlignmentLeft,Spacings{3,1},Dividers{{False,True},{False,True}}]​​punkte2=ListPlot[fitpunkte]​​​​​​
Out[]=
{{0,1.6},{27,2},{50,2.53},{60,3.03},{70,3.69},{80,4.45},{90,5.32},{100,6.13},{110,6.92},{115,7.35},{116,7.44}}
Out[]=
Jahre nach 1900
Weltbevölkerung in Mrd.
0
1.6
27
2
50
2.53
60
3.03
70
3.69
80
4.45
90
5.32
100
6.13
110
6.92
115
7.35
116
7.44
Out[]=
Out[]=
Out[]=
Der gesuchte Nonlinear-Fit ist:
1.48774+
8.0929
1+56.109
-0.0433646x

Out[]=
Jahre nach 1900
Berechnete Werte der Weltbevölkerung in Mrd.
0
1.62945
10
1.70432
20
1.81711
30
1.98494
40
2.23009
50
2.57876
60
3.05625
70
3.67737
80
4.4334
90
5.28266
100
6.15476
110
6.97157
Out[]=