Re: color-bar legend for the LisContourPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg123705] Re: color-bar legend for the LisContourPlot
- From: DrMajorBob <btreat1 at austin.rr.com>
- Date: Fri, 16 Dec 2011 05:46:24 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <jbspea$3mj$1@smc.vnet.net> <jc9vqo$a0a$1@smc.vnet.net>
- Reply-to: drmajorbob at yahoo.com
> use: > > legendW > ticklblH > > to get the figure as I intended. Still without values? Bobby On Thu, 15 Dec 2011 03:51:58 -0600, Dan <dflatin at rcn.com> wrote: > On Dec 14, 6:03 am, Dan <dfla... at rcn.com> wrote: >> On Dec 9, 5:55 am, "Karamiarokhloo, M.P. (Mehdipasha)" >> >> <M.P.Karamiarokh... at uu.nl> wrote: >> > Dear All, >> >> > I am using Mathematica 7 and have difficulties to plot the >> ListContourPlot >> > of ocean data with a neat color bar (legend). >> > For example if I have a temperature field range between {-2,30}, and >> I use >> > the ColorFunction Rainbow, >> > I cannot include a color-bar which has the same number of contours as >> the contourplot, and it does not show the related numbers for each >> color-shade. >> > The ShowLegend function of Mathematica is very primitive. >> > Has any body any suggestion? >> >> > Thanks you. >> > P.Karami >> >> I like using Grid for this, and in general for constructing compound >> plots. For the legend, I use a trick I learned from David Park in this >> forum. Just make another contour plot. This gives you great control >> over choice and labeling of the contours. Here is a simple example >> where I have identified the various layout elements explicitly. >> >> With[{ >> zmin=-2,zmax=2,delz=0.5,datasize={10,10}, >> plotW=300,plotH=300,legendW, >> ticklblW=30,ticklblH,grout=2, >> colorset="ArmyColors"}, >> >> Module[{data,contours}, >> contours=Range[zmin,zmax,delz]; >> data=RandomReal[{zmin,zmax},datasize]; >> >> Grid[{{ >> ListContourPlot[data,InterpolationOrder->3,Contours->contours, >> ImagePadding->{{ticklblW+grout,grout},{ticklblH+grout,grout}}, >> ImageSize->{plotW+ticklblW+2grout,plotH+ticklblH+2grout}, >> AspectRatio->plotH/plotW, >> ColorFunction->colorset], >> ContourPlot[y,{x,0,1},{y,zmin,zmax},Contours->contours, >> ImagePadding->{{grout,ticklblW+grout},{ticklblH+grout,grout}}, >> ImageSize->{legendW+ticklblW+2grout,plotH+ticklblH+2grout}, >> AspectRatio->plotH/legendW, >> FrameTicks->{{None,contours},{None,None}}, >> ColorFunction->colorset] >> }}] >> ] >> ] >> >> -- Dan > > Somehow some specific assignments went missing in this post. Since I > copied and pasted into the window I don't know how that could have > happened, but use: > > legendW > ticklblH > > to get the figure as I intended. > > -- Dan > -- DrMajorBob at yahoo.com