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'