Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: ListDensityPlot and transparency

• To: mathgroup at smc.vnet.net
• Subject: [mg60005] Re: [mg59978] Re: [mg59933] ListDensityPlot and transparency
• From: Chris Chiasson <chris.chiasson at gmail.com>
• Date: Sun, 28 Aug 2005 03:07:40 -0400 (EDT)
• References: <200508270811.EAA15219@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Using Bob Hanlon's data1 and data2, I investigated visualizing two
"density plots" in one graph. Note that the use of RasterArray means
the user must define his or her own color function (which is like
choosing the plot range, because setting a color function will set
what inputs are clipped). Turning off "realu" eliminates error
messages returned when it tries to render, say RGBColor[-1,1,0].

Off[Graphics::"realu"]
Show[Graphics@
    RasterArray[MapThread[RGBColor[#1/2+1,0 (#2/2+1),0]&,{data1,data2},2]],
  AspectRatio\[Rule]1]
Show[Graphics@
    RasterArray[MapThread[RGBColor[0 (#1/2+1),0,#2/2+1]&,{data1,data2},2]],
  AspectRatio\[Rule]1]
Show[Graphics@
    RasterArray[MapThread[RGBColor[#1/2+1,0,#2/2+1]&,{data1,data2},2]],
  AspectRatio\[Rule]1]

On 8/27/05, Bob Hanlon <hanlonr at cox.net> wrote:
> I don't believe that Mathematica can do transparency; however, you might be
> able to approximate it by combining the lists.
> 
> f1[x_,y_]:=Sin[x]/Cos[x^2+y^2];
> f2[x_,y_]:=Cos[x]/Sin[x^2+y^2];
> 
> data1 = Table[f1[x,y],{x,-2,2,0.1},{y,-2,2,0.05}];
> 
> data2 = Table[f2[x,y],{x,-2,2,0.1},{y,-2,2,0.05}];
> 
> sf[str_String]:=StyleForm[str,FontFamily->"Times New Roman",
>       FontWeight->"Bold",FontSize\[Rule]14];
> 
> Show[GraphicsArray[
>       {{ListDensityPlot[data1,Mesh->False,
>             DisplayFunction->Identity,
>             PlotLabel->sf["data1"]],
>           ListDensityPlot[data2,Mesh->False,
>             DisplayFunction->Identity,
>             PlotLabel->sf["data2"]]},
>         {ListDensityPlot[data1*data2,Mesh->False,
>             DisplayFunction->Identity,
>             PlotLabel->sf["data1 * data2"]],
>           ListDensityPlot[data1+data2,Mesh->False,
>             DisplayFunction->Identity,
>             PlotLabel->sf["data1 + data2"]]}}],
>     DisplayFunction->$DisplayFunction,
>     ImageSize->500];
> 
> 
> Bob Hanlon
> 
> >
> > From: "Ramiro dell'Erba" <dellerba at casaccia.enea.it>
To: mathgroup at smc.vnet.net
> > Date: 2005/08/26 Fri AM 04:53:23 EDT
> > Subject: [mg60005] [mg59978] [mg59933] ListDensityPlot and transparency
> >
> > Dear Mathematica friends,
> > Does anybody know as to overimposed two ListDensityPlot? On the other
> hand
> > there is a mode to make transparency  as option for graphics object in
> > Mathematica?
> > Thank you in advance,
> > Ramiro
> >
> >
> 
> 


-- 
Chris Chiasson
http://chrischiasson.com/
1 (810) 265-3161

• References:
  • Re: ListDensityPlot and transparency
    • From: Bob Hanlon <hanlonr@cox.net>