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
>