New in Wolfram Mathematica 6: Symbolic Report Generation  previous | next 
Easily Create Arbitrary Reports
Mathematica 6 makes use of its symbolic representation of documents to allow easy and direct generation of arbitrary reports, complete with full outlining and formatting.
In[1]:=

Click for copyable input
CreateDocument[

 CellGroup[{TextCell[CountryData[#, "Name"], "Section"], 

     ExpressionCell[

      GraphicsRow[{CountryData[#, "Shape"], 

        Quiet[DateListPlot[

          CountryData[#, {{"Population"}, {1970, 2005}}]]]}, 

       Frame -> All], "Output"]}, Closed] & /@ CountryData["Africa"], 

 WindowTitle -> "Africa", 

 StyleDefinitions -> "Creative/NaturalColor.nb"]