MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Shared color scaling

  • To: mathgroup at smc.vnet.net
  • Subject: [mg85091] Shared color scaling
  • From: Mathieu G <ellocomateo at free.fr>
  • Date: Mon, 28 Jan 2008 03:26:14 -0500 (EST)

Hello,

I am using the following code to plot data:

DrawFile[FileName_] := ListContourPlot[FileName
   , ColorFunction -> ColorData["Rainbow"]
   (*,ContourLabels->Automatic*)
   , PlotRange -> Full
   , DataRange -> {{Min[WLRange], Max[WLRange]}, {Min[AngleRange],
      Max[AngleRange]}}
   , InterpolationOrder -> 2
   , FrameTicks -> {{{0, 45, 90, 135, 180}, None}, {{1260, 1360, 1460},
       None}}
   , PlotRangePadding -> None
   ]

{
  Grid[{
    {DrawFile[Data00F8], DrawFile[Data00F1]}
    , {DrawFile[Data00F7], DrawFile[Data00F2]}
    , {DrawFile[Data00F6], DrawFile[Data00F3]}
    , {DrawFile[Data00F5], DrawFile[Data00F4]}
    }]
  ,
  Grid[{
    {DrawFile[Data90F8], DrawFile[Data90F1]}
    , {DrawFile[Data90F7], DrawFile[Data90F2]}
    , {DrawFile[Data90F6], DrawFile[Data90F3]}
    , {DrawFile[Data90F5], DrawFile[Data90F4]}
    }]
  }


where
Data00F1 = Import["\\Measurements\\00F1.txt", "Table"][[2 ;;,2 ;;]];
for instance

I would like to know how I can get the same color scaling for all the 
graphs (i.e. the color scale goes from the minimum found in all the 
files plotted, to the maximum found in all the files plotted, which is 
not necessarily the one where the minimun was found...)

Also, how can I get a plot of this scale?!

Thank you very much for your help!

Mat'


  • Prev by Date: Filled Polar plots
  • Next by Date: Re: Maximize command - trigonometric function
  • Previous by thread: Re: Filled Polar plots
  • Next by thread: Re: Shared color scaling