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 >