MathGroup Archive 2008

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

Search the Archive

Re: 4D plot visuatization

How about something like the following:

f[t_, g_] := t/g
fpdf[t_, g_] = PDF[NormalDistribution[2.74, 0.787], f[t, g]]


Plot3D[f[t, g], {t, -200, 1000}, {g, 120, 250},
 Mesh -> None,
 PlotPoints -> 50,
 ColorFunctionScaling -> False,
 ColorFunction ->
  Function[{x, y, z},
   ColorData["DarkRainbow"][Rescale[fpdf[x, y], {0, .506915}]]],
 AxesLabel -> {t, g, f}

In a case like this it is often nice to have multiple coordinated displays. 
I'm not going to take the time to do one here. One idea would be to show 
your t-g domain with a Locator in one display. Then use the plot above as a 
second display with the t-g point indicated on the plot. Then as a third 
display, have a column of the actual data values: t =..., g = ..., t/g = ... 
and fpdf = .... Then a reader of the display could actually move around and 
not only see the graphics but also see the precise numerical values at each 
point. Such a display packs much more information than a static plot.

David Park
djmpark at

<negedea at> wrote in message news:fqqrta$kat$1 at
> Dear all,
> I want to get a 4D fisualization of the following:
> I want the x axis be the variable t. The range for t is:
> {t,-200,1000}
> I want the y axis be the variable g. The range for g is:
> {g,120,250}
> I want the Z axis be the PDF of function F (Fpdf). So my Z shall be
> Fdist = NormalDistribution[2.74, 0.787]
> Fpdf=PDF[Fdist,F]
> The 4th dimenssion I want is F it self , where F is the ratio of t to
> g
> F = t/g
> Does any one has a hint on how to do it on mathematica
> Thank you in advance for you help.
> NG

  • Prev by Date: Re: changing style of vertices for ShowGraph with Combinatorica
  • Next by Date: RE: How to introduce new hot keys?
  • Previous by thread: 4D plot visuatization
  • Next by thread: animate-graphics