Evolución de Mathematica

Descargar como Notebook

Desde la versión 1 de Mathematica en junio de 1987 hasta la versión 11 en  agosto de 2016, vemos como ha crecido el número de funciones propias:

funcs = WolframLanguageData[];
versions = WolframLanguageData[funcs, "VersionIntroduced"];
out = SortBy[Tally[versions], First];
out[[All, 2]] = Accumulate[out[[All, 2]]];
out = {#1, {If[IntegerQ[#1], 100, 50], #2}} & @@@ out;
blue = RGBColor[0.37, 0.51, 0.71];
cols = If[IntegerQ[#], blue, Lighter[blue]] & /@ out[[All, 1]];
RectangleChart[Labeled[#2, Rotate[#1, \[Pi]/4], Below] & @@@ out, 
 BarSpacing -> 0, ImageSize -> 600, ChartStyle -> cols, Frame -> True,
  GridLines -> Automatic, 
 FrameTicks -> {{Automatic, Automatic}, {None, None}}]