Logistisk vækst fra figur 8.7 side 271. Først defineres nogle værdier af A, r og K. Funktionen er konveks i intervallet [0, 3.770081899] og herefter konkav.

> A:=14;

> r:=0.7;

> K:=1000;

> plot([K/(1+A*exp(-r*t)),diff(K/(1+A*exp(-r*t)),t),diff(K/(1+A*exp(-r*t)),t,t)],t=0..15,color=[black,blue,red]);

> solve(diff(K/(1+A*exp(-r*t)),t,t)=0);

>