How to create a color contour plot with color table?

*To*: mathgroup at smc.vnet.net*Subject*: [mg14339] How to create a color contour plot with color table?*From*: hsg at lem.phy.duke.edu (Henry S. Greenside)*Date*: Thu, 15 Oct 1998 00:28:44 -0400*Organization*: Duke University, Durham, NC, USA*Sender*: owner-wri-mathgroup at wolfram.com

I am having trouble getting Mathematica to create a plot of the intended sort, wanted to see if I could get some help from the net: I have a MxN rectangular matrix of floating point numbers that I want to plot as a rectangular color contour plot (ListDensityPlot) with an associated thin color strip showing which colors are associated with which range of values, something likes this: -------------------------- | | | | | | | | | | | | | | -------------------------- ------------- | | ------------- I am able to generate both ListDensityPlots fine but then get into trouble when trying to combine them into a single plot: Mathematica overrides the specified size of each plot when combining them and the color strip ends up being too small. Does anyone know tricks for fine-tuning the combination of two separate plots into a single overall plot? In particular, if I use ImageSize to specify the size of each plot separately, how do I get Mathematica to preserve ImageSize when combining plots? It is most frustrating that Mathematica overrides the ImageSize specification. I include some parts of my code below. Thanks, Henry ================================================================= g1 = ListDensityPlot[ EEGdata , ColorFunction -> mycolorfn, Mesh ->False, AspectRatio ->0.4, FrameTicks ->{timeLabelsBottom, tickfn[electrodeLabels], timeLabelsTop, tickfn[electrodeLabels] } , FrameLabel ->{ StyleForm["Window Index",FontSize ->myfontsize, FontWeight -> Bold ], None, StyleForm[ "Time", FontSize -> myfontsize, FontWeight -> Bold] , None } , ImageSize ->{8.0(72), 5.0 (72) } (* size in printer points, 72 = 1 inch *) ] g2 = ListDensityPlot[ (* Make color chart based on range of data *) colortable, ColorFunction ->mycolorfn, Mesh->False, Axes->False, AspectRatio -> 0.05, ImageSize -> { 6.5(72) , 1.5 (72) } , FrameTicks -> {frameTicksBottom, None, frameTicksTop, None }, FrameLabel -> { StyleForm[ "Range of Values", FontSize ->myfontsize, FontWeight -> Bold ] , None, None, None } ] Show[ (* one attempt to combine graphics *) Graphics[ { Rectangle[ {0,0}, {1,1}, g1 ] , Rectangle[ {0.2,-0.4}, {0.8,0} , g2 ] }, ] ]