Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: 4D plot visuatization

  • To: mathgroup at smc.vnet.net
  • Subject: [mg86317] Re: 4D plot visuatization
  • From: "David Park" <djmpark at comcast.net>
  • Date: Sat, 8 Mar 2008 05:42:10 -0500 (EST)
  • References: <fqqrta$kat$1@smc.vnet.net>

How about something like the following:

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

NMaximize[fpdf[t,g],{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 comcast.net
http://home.comcast.net/~djmpark/


<negedea at googlemail.com> wrote in message news:fqqrta$kat$1 at smc.vnet.net...
> 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