The MongoArray Package

By Michele Cappellari, Padova, ITALY, July 1998
e-mail: cappellari@pd.astro.it

Simple Usage Examples

<< MongoArray`

\(gr\  = \ 
      Table[\ Plot[Sin[x\ j]\ Cos[x\ k], \ {x, 0, 5}, 
\ \ \ \ \ \ \ \ \ 
          DisplayFunction\  -> \ Identity, 
\ \ \ \ \ \ \ \ \ 
          PlotRange\  -> \ {{0, 4.99}, \ {\(-1\),  .99}}
\ \ \ \ \ ], 
        \ {j, \ 3}, \ {k, \ 2}]; 


    labels\  = \ {"X Axis", \ "Y Axis"}; 
dir\  = \ {1, \ \(-1\)}; 
    \)

MongoArray[ gr ];

MongoArray[ gr,  GraphicsSpacing  ->  { .5, 0} ];

MongoArray[ gr,  GraphicsSpacing  ->  {0,  .5} ];

MongoArray[ gr[[1]] ];

MongoArray[ gr[[1]],  AxesLabel  ->  {labels,  labels} ];

MongoArray[ gr[[1]],  
      AxesEdge  ->  {{1, -1},  {1, 1}} ];

MongoArray[ gr[[1]],  
      AxesDirection  ->  -{dir,  dir} ];

MongoArray[ Transpose[{ gr[[1]] }] ];

MongoArray[ Transpose[{ gr[[1]] }],  
      AxesLabel  ->  {{labels},  {labels}} ];

MongoArray[ Transpose[{ gr[[1]] }],  
      AxesEdge  ->  {{{1, 1}},  {{-1, 1}}} ];

MongoArray[ Transpose[{ gr[[1]] }],  
      AxesDirection  ->  {{dir},  {dir}} ];

\(\(MongoArray[\ Table[gr[\([2, 1]\)], \ {2}, \ {2}], \ 
      GraphicsSpacing\  -> \  .5, 
\ \ \ \ 
      AxesDirection\  -> 
        \ {{{1, 1}, \ {\(-1\), 1}}, \ {{1, \(-1\)}, \ {\(-1\), \(-1\)}}}\ ]; 
    \)\)

A Real World Example

Note that it is not possible to actually run this example, since the data file are not given and only the last lines of the Mathematica code, specific to the usage of  the MongoArray package, have been included.

\(lab = {StyleForm["Log r(arcsec)", \ FontSize -> 18], ""}; 

    lab1 = Table[lab, {4}, {3}]; 
dir\  = \ {1, \(-1\)}; 

    dir1 = Table[dir, {4}, {3}]; 

    edg1\  = \ {
		{{None, \(-1\)}, {None, \(-1\)}, {None, \(-1\)}}, 

        		{{None, 1}, {\(-1\), 1}, {\(-1\), 1}}, 

        		{{\(-1\), \(-1\)}, {None, None}, {None, None}}, 

        			{{None, None}, {\(-1\), \(-1\)}, {\(-1\), \(-1\)}}
	}; \)

The following plots present the surface brightness profiles of a galaxy in different bands. The profiles are measured in magnitudes (arcsec^(-2)) and the inverted axis feature is necessary. These observations have been obtained with the Hubble Space Telescope.

MongoArray[{{gr7, gr8, gr9}, {gr2, gr3, gr5}, {gr1, , }, {, gr6, 
          gr4}}, AxesLabel -> lab1,  AxesDirection -> dir1, 
      GraphicsSpacing -> {0.25, 0}, AxesEdge -> edg1];