New in Wolfram Mathematica 7: Finite Group Theory  previous | next 
Visualize Sequences
Plot sequences generated from the number of finite groups and Abelian groups.
In[1]:=

Click for copyable input
GraphicsGrid[{{DiscretePlot[FiniteGroupCount[n], {n, 1, 100}, 

    PlotLabel -> Style[FiniteGroupCount[n], 8]], 

   DiscretePlot[FiniteAbelianGroupCount[n], {n, 1, 100}, 

    PlotLabel -> 

     Style[FiniteAbelianGroupCount[n], 8]]}, {ListLinePlot[

    Table[FiniteGroupCount[n] - FiniteAbelianGroupCount[n], {n, 1, 

      100}], PlotRange -> All, PlotLabel -> Style["Difference", 8]], 

   ListLogPlot[{Accumulate[FiniteGroupCount[Range[1000]]], 

     Accumulate[FiniteAbelianGroupCount[Range[1000]]]}, 

    PlotLabel -> Style["Cumulative Sums", 8]]}}, Spacings -> {1, 7}, 

 Frame -> True]
Out[1]=