[Graphics:../HTMLFiles/index_102.gif]

p1 = prettyPlot[{0, 1, 4, 5, 8, 9}, {0, 2, 12, 14}, FrameTicksNone] ;

[Graphics:../HTMLFiles/index_104.gif]

p2 = prettyPlot[{0, 2, 4}, {0, 1, 6, 7}, FrameTicksNone] ;

p3 = prettyPlot[{0, 1, 6, 7}, {0, 2, 4}, FrameTicksNone] ;

p4 = prettyPlot[{0, 3}, {0, 1, 2}, FrameTicksNone] ;

p5 = Show[Graphics[{GrayLevel[0], Polygon[{{0, 0}, {.9, 0}, {.9, .9}, {0, .9}}] , &n ... 01, .9}}]} ], AspectRatioAutomatic, FrameTrue, FrameTicksNone] ;

p6 = Show[Graphics[{GrayLevel[0],   Polygon[{{1, 0}, {1.9, 0}, {1.9, .9}, {01, .9}}]} ], AspectRatioAutomatic, FrameTrue, FrameTicksNone] ;

Show[GraphicsArray[ Transpose @ {{p1, p2, p3}, {p4, p5, p6}}]] ;

Created by Mathematica  (February 6, 2006) Valid XHTML 1.1!