[Date Index]
[Thread Index]
[Author Index]
Re: animation question
*To*: mathgroup at smc.vnet.net
*Subject*: [mg71212] Re: animation question
*From*: Helen Read <hpr at together.net>
*Date*: Fri, 10 Nov 2006 06:38:24 -0500 (EST)
*References*: <eiurmk$ggr$1@smc.vnet.net>
dimitris wrote:
> Consider the simple animation
>
> fr[n_] := Show[Plot[(Sqrt[7*x^4 + 6*x + 5] - Sqrt[7*x^4 + 3*x +
> 3])*Sqrt[63*x^2 - 5*x + 20], {x, 0, n},
> PlotRange -> {{0, 10}, {2, 6.5}}, Frame -> {True, True, False,
> False}], Graphics[{Red, Line[{{0, 4.5}, {10, 4.5}}]}]]
>
> Table[fr[n], {n, 1, 10, 0.1}];
> SelectionMove[EvaluationNotebook[], All, GeneratedCell];
> FrontEndTokenExecute["CellGroup"]
> FrontEndTokenExecute["OpenCloseGroup"]
>
> How is possible to hold the red line (which has the meaning of the
> limit as x->infinity; try
> Limit[(Sqrt[7*x^4 + 6*x + 5] - Sqrt[7*x^4 + 3*x + 3])*Sqrt[63*x^2 - 5*x
> + 20], x -> Infinity])
> fixed (i.e. not "animated")?
<<Graphics`
Use DisplayTogether instead of Show
With Show, you are getting a frame with just the curve, then a frame
with the curve and line together, then a new frame with the curve alone,
then combined with the line, etc. DisplayTogether combines everything
without displaying intermediate plots.
--
Helen Read
University of Vermont
Prev by Date:
**Re: I could do with a list of geometric shape names can anyone help????**
Next by Date:
**RE: Challenge problem**
Previous by thread:
**animation question**
Next by thread:
**Re: animation question**
| |