Also available:

## How do I animate an array of plots?...

I am using Maple to model Gaussian Wave Packets and the do loop creates an array of plots. I want to animate these plots to show the movement of the wave packet and was wondering if there is a way to animate the array or perhaps another way to produce the animation.

## How do you show values from trace function in plot...

I have made an animate-plot with trace function enabled and I was wondering if there was something I could do so it would show the value of the variable when trace reached frame x and y and plot it in the plot or maybe somewhere else.

## I am looking for a "rotate" type command that acce...

My last series of questions have been to do with animations. Have had some really good help. I am using a rotation type matrix so I can't readilly use the rotate command. That means painfully breaking up the body into its individual components to apply the matrix to. The matrix is derived from some very nolinear functions. I have just included a general Euler rotation matrix here. Have looked inside the rotate command but don't  have enough experience to develop my own. Now I know this sort of command would not be limited to rotating the body as a general 3x3 matrix would transform the body. That would not be a problem, could be useful for other things.

In Mathematica there is a command "GeometricTransformation" that does this.

 (1)

 (2)

 (3)

 (4)

 (5)

 (6)

## Animations not displaying...

I am experimenting with rotating a group of pionts, lines cylinders etc. the only aminations that  will display are where I put the transformations directly as the point coordinates. This is very tedious. Is there a way around this problem efficiently? Attached worksheet shows problem(s). Ultimately I will have a whole group of objects to rotate.

 (1)

 (2)

 (3)

 (4)

 (5)

 (6)

 (7)

 (8)

 (9)

 (10)

 (11)

 (1)

 (2)

 (3)

 (4)

 (5)

 (6)

 (7)

 (8)

 (9)

 (10)

 (11)

## How could I Animate an STL file or Maple Graphic....

I am working with Euler's eqns. of motion. So want to animate the solution. I could do a simple set of spheres along the x, y, z axes  that represent the body or use an imported STL file.  Looking for some guidance on how to approech this. I can import an STL ok. How do I give it an xyz set of axes and then rotate/move these in an inertial frame? I have the equations and solutions already. A reasonable example would be adding an STL of a pendulum to http://www.mapleprimes.com/questions/220957-Non-Simple-Harmonic-Pendulum-Motion#answer235955  to Preben's animation response to a recent post  I placed.

## animating a cylinder bounded by a sphere...

Guys

I can't seem to work out how the cylinder in my animation won't extend to of the bottom of the sphere initially. and how to make it stop at the maximum volume coordinates.

cylinder_in_sphere_ani.mw

## how to animate plot in this example?...

sols[11][1] = [1,1];

sols[11][2] = [1,2];

sols[11][3] = [5,10];

...etc

animate(plot, sols[11][A], A=1..20, frames = 20);

animate(plot, [sols[11]], A=1..20, frames = 20);

this writing can be ploted, but when i play animation, can not see it draw step by step

## Using an implicit color function in Maple....

Hi,

I am trying to animate a ”shadow” on an object in Maple. I have parametrized the following surface

P:=(u,v)->[u,v,-(u^2+v^2)]

and the “sun”

Sun:=t->[5*cos(t),0,5*sin(t)]

Ant thus evaluating the “shadow” to be where the dotproduct

NP.Nsun

Is less the zero, i.e NP.Nsun<0. Where I get the following:

My question is now, am I able to animate the shadow in a likewise manner as shown below

Animate( plot3d, [P(u,v),v=a..b,u=c..d,color=[f(u,v,t)<0]],t=0..T)?

thus using an implicit function as a colorfunction?

## Animation details...

I'm modeling the interaction between rotation and vibration in water molecule. I've come up with the solution functions, but I wanted to make some illustrative animations to fully understand what is going on. I made an animation (in the very end of the attached file) showing vibration of molecule and I want the trajectory of each (of two) particles to be traced after it, how could it be done? Also I want to have the movement of the angular momentum vector (vector with components [Jx=J*cos(varphi)*sin(theta), Jy=J*sin(varphi)*sin(theta), Jz=J*cos(theta)]) be animated simultaneously with the vibration of molecule (on the same plot). Is it hard to achieve?

## subsequent animations...

Hi,

I want to join two animations, but displayed subsequently, not simultaniously, As far as I got, I have:

plot2 := plots[animate](plot, [tau[1], z = -(1/2)*J .. (1/2)*J, color = red, legend = shear*stress], h = 1 .. 1+1/sqrt(3));
plot3 := plots[animate](plot, [tau[2], z = -(1/2)*h .. (1/2)*h, color = red, legend = shear*stress], h = 0 .. 1);
display([plot2, plot3], insequence = true);

my functions are difined as

tau[1] := h-1+(4/3)*(1/sqrt(3)-h+1)*sqrt(3)*(sqrt(3)*((1/4)*J^2-z^2)/(J^2*b))
tau[2] := (4/3)*sqrt(3)*((1/4)*h^2-z^2)/(h^2*b)

Both plots work individually, however, they have successive ranges. I wondered if I could make 1 plot, with an if statement wether to plot tau[1] or tau[2] depending on where the animation is in the range h. Does anyone know about a solution?

## Attempt to create an animation zooming in on axis...

I want to apologize if this being neither necessarily a minimal working example for one question nor just one question is uncomfortable. The "MWE" was created on and is designed for Linux machines including ImageMagick. The problem itself should be obvious to all users though, as the subfolder and creation of the gif are just conveniences. I have three sections concerning the different problems occuring in my attempts.

(which I was told is not doable in maple ... hence the gif)

The goal was to create an animation that zooms in on a function. As maple just wouldn't allow scaling of axis in animations I decided to export single frames and then convert those with ImageMagick. Maple offers ssystem(„...“) which allows for command line usage.

The problem (may as well be a bug) occurs when I try to export images in a for loop with exportplot(...). If the path as well as previously exported images exist, it won't output an error but still not export the desired images. Exporting frames separately works just fine, as well as doing the very same operation in a separate for loop.

(see the first red comment and export section)

After using the workaround in a second for loop. I couldn't figure out how to import the images and then create an animation from them. The main obstacle is the fact that the imported pictures are put into plot-functions.

(see the second red comment)

 > restart;
 > with(plottools): f1 := s -> sin(2*s): max_frame := 10: # = number of steps for k from 0 to max_frame do     pic[k] := plot(f1(x), x=-Pi*(1-k/max_frame)..Pi*(1-k/max_frame),                     filled=true, #color = ["Orange"],                     color = ColorTools:-Color([0,                                               floor(128*k/max_frame),                                               floor(255*k/max_frame)                                               ]),                     view=[-Pi*(1-k/max_frame)..Pi*(1-k/max_frame), -1..1]                     ): end do: path := FileTools:-TemporaryDirectory(); path_list := ssystem("pwd"); path := path_list[2]; ssystem("mkdir ./pics"); # creates a subfolder path := FileTools:-JoinPath([path, "pics"]); # need to change path to subfolder plotsetup(window, plotoptions="width=480, height=600"); for k from 0 to max_frame do     file[k] := FileTools:-JoinPath([path,                                      MapleTA:-Builtin:-strcat("frame_",                                                               convert(k, string),                                                               ".jpg")                                     ]);     # exportplot(file[k], pic[k]); # does not work end do:
 > exportplot(file[0], pic[0]); # works
 > # ===================================================================================== # export # ===================================================================================== for k from 0 to max_frame do   exportplot(file[k], pic[k]); od; # also works
 > # ===================================================================================== # import # ===================================================================================== for k from 0 to max_frame do     reimported_pic[k] := importplot(file[k]); # this might take a while (depending on the amount of frames) end do: # import works but [Length of output exceeds limit of 1000000] whattype(reimported_pic[0]); #seems to create a plot function show := convert(reimported_pic,list): #Error, while processing result #There is no help page available for this error
 > show[1]; # works
 > # ===================================================================================== # create an animated gif at least # ===================================================================================== delay_time := ceil(evalf(100/max_frame)); command_for_gif := MapleTA:-Builtin:-strcat("convert -delay ",                                             convert(delay_time, string),                                             " -loop 0 ", # -reverse ",                                             FileTools:-JoinPath([path, "frame_*.jpg "]),                                             FileTools:-JoinPath([path, "animation.gif"])                                             ); ssystem(command_for_gif);
 >

I would be grateful for any suggestions. Moreover I have run accross

`?DocumentTools:-Components:-VideoPlayer`

which I could not figure out how to use by the help pages (I tried to create an avi and import that). If someone has informations on that, please share!

## Animate volume of revolution...

Hi,

I would like to animate solid of revolution for a region bounded by y=x^2+1, y=x, x=0 and x=2;

Thanks

## Standing wave animation...

Hello everyone,

I'm working on a simulation for standing wave to prove that the combination of 2 waves in opposite direction can create standing wave. So I use these:

> restart;
> with(plots):
> W1:=A*cos(omega*t-k*x);

> W2:=A*cos(omega*t+k*x);

> W:=W1+W2;

> SW:=(A,omega,k)->animate(plot,[{W1,W2,W},x=-4..4,y=-4..4,color=[red,green,blue],scaling=constrained],t=0..5,frames=10);

> display(SW(2,2*Pi,5),insequence);

It did work if SW is a function with one variable, now I need 3 variables (A,omega,k);

It said: "Plotting error, empty plot"

Please show me my mistake or an another method. Thank you

## How to create an animation function?...

Hello everyone, I'm a new one to Maple, I've just learnt some basic tools.

I want to creat a command that can animate the graph of line y=ax+b by the parameter a, and b will be subscribe later. For example, I can plot y=x+b by:

F:=b->plot(x+b,x=-1..1):

display(F(1));

It did work.

However, applying this with animation didn't seem to work.

F:=b->animate(plot,[a*x+b,x=-1..1],a=0..10,frames=5):

display(F(1));

It did not create an animation, instead 5 frames of this graph for a=0, 2.5, 5, 7.5, 10

Please show me a solution for this problem, thank you

## TimeSeriesAnalysis and animated BubblePlot...

I am trying to manually enter some data into some TimeSeries format and then use that in an Animated BubblePlot but there are few examples.  Can someone create an example to show some random data entered in as a time series so that BubblePlot can animate it?  I am having many problems with this.

 1 2 3 4 5 6 7 Page 1 of 7
﻿