New in Wolfram Mathematica 6: Symbolic Report Generation  previous | next 
Create Reports That Contain Active Elements
Mathematica 6 lets you create reports that contain arbitrary dynamic and interactive elements.
In[1]:=

Click for copyable input
CreateDocument[

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

     ExpressionCell[

      Manipulate[

       ListLinePlot[

        MovingAverage[FinancialData[#, "Price", {2005}, "Value"], n], 

        Filling -> Axis], {{n, 1, "days"}, 1, 200, 1}], "Output"]}, 

    Closed] & /@ FinancialData["NYSE:AA*", "Lookup"], 

 WindowTitle -> "Moving Averages", Background -> LightBlue]