Re: Getting 3D graphs to look nice in Mathematica 6

On May 9, 2:20 pm, Jon Harrop <j...@xxxxxxxxxxxxxxxxx> wrote:
Jon McLoone wrote:
ClickZoomShow[gr_Graphics] :=
DynamicModule[{pr = PlotRange /. Options[gr, PlotRange]},
Dynamic[EventHandler[
Show[gr,
PlotRange -> pr],
{"MouseClicked" :> (pr = {(pr[[1]] +
MousePosition["Graphics"][[1]])/2,
(pr[[2]] +
MousePosition["Graphics"][[2]])/2})
}]]]

You could adapt this to a better version by regenerating the plot each
time, as zooming does not produce any more detail...

Wow. I can't believe you can't zoom in to a 2D plot in Mathematica to see
the detail. You guys should really put that into 6.1.

We're working on a graphical library for the F# language from Microsoft:

http://www.ffconsultancy.com/products/fsharp_for_visualization/

I'll make sure that functionality goes in...

--
Dr Jon D Harrop, Flying Frog Consultancy
The F#.NET Journalhttp://www.ffconsultancy.com/products/fsharp_journal/?usenet

The approach of regenerating the function to increase detail is
potentially problematic as a standard behaviour unless your are only
visualizing elementary functions. Most examples of this feature that I
have seen have been in "graphing calculator" software.
If the function was dependant on some data set that has changed, or
was the result of a random process, or a record of a specific system
state at the time, it is not clear whether you want the function as it
was then or as it would be now? Getting more detail might, in some
cases, require re-running the process. What do you do if it is
expensive to calculate? What if the person holding the document with
the plot does not have access to the code that created it?

The typical set of assumptions might well deal with most cases but
will always render other valid cases inaccessible, so being able to
choose the kind of interaction you want rather than have it is imposed
is still important -- if it is easy to do.

Here is the simplest set of assumptions: zoom to the origin,
recalculating the function from scratch...
Manipulate[Plot[Sin[1/x] x, {x, -1/n, 1/n}], {n, 1, 100}]


.

Relevant Pages