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}},AlignmentLeft,Spacings{3,1},Dividers{{False,True},{False,True}}]punkte=ListPlot[daten]kurve=ListPlot[daten,JoinedTrue]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."}],AlignmentLeft,Spacings{3,1},Dividers{{False,True},{False,True}}]punkte2=ListPlot[fitpunkte,PlotStyleRed,PlotLegendsSwatchLegend[{Red,Blue},{"Berechnete Werte","Kurve gemessener Werte"}]];punkte3=ListPlot[fitpunkte,PlotStyleRed];Labeled[punkte3,"Graphische Darstellung der berechneten Werte",Top]Show[kurve,punkte2]
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[]=
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[]=
Graphische Darstellung der berechneten Werte |
Out[]=