Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: ListDensityPlot and transparency

• To: mathgroup at smc.vnet.net
• Subject: [mg59978] Re: [mg59933] ListDensityPlot and transparency
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Sat, 27 Aug 2005 04:11:06 -0400 (EDT)
• Reply-to: hanlonr at cox.net
• Sender: owner-wri-mathgroup at wolfram.com

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: [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 
> 
> 

• Follow-Ups:
  • Re: Re: ListDensityPlot and transparency
    • From: Chris Chiasson <chris.chiasson@gmail.com>