Items tagged with animate animate Tagged Items Feed

Greetings, seeking an expert to animate a plot.

see worksheet.posterior_graphs_(encapsulted)_1D.mw

before they play each other, each have a law (a normal distribution) plot-output 6.

after DD defeats CC, and a numerical integration is performed the new laws are given by plot-output 18.

as you can see, the laws of DD and CC are closer together.

if the calc was repeated (DD defeats CC again), the laws would be closer again.

so what i require is an animation of the new laws from game 1 to (say) game 6 (DD defeats CC every time). seeing the red and blue distributions merging would be ideal.

as an aside I heard maples FFT could simplify the complicated integration. any suggestions?

cheers

I've got the following 

with(plots):
tubeplot([cos(t),sin(t),t], t=0..6*Pi, radius=1/3,
style=patchnogrid, shading=Z, axes=box, orientation=[40,70]);

which gives the plot of a spiral and need to make an animation of a rotating spiral.

I've tried 

animate([cos(t),sin(t),t], t=0..6*Pi,numpoints=200,frames=20,shading=Z,axes=box) but that doesn't work. What am I doing incorrectly?

 

 

How do i use d'Alembert formula to solve,plot and animate with Maple software

I tried to find the root distritubion of a polynomial? 

When p=1, q=3, the following command works.


with(plots):

eq:=u^(2*q)+1-2*K*u^(q-p);

p:=1;   q:=3;

unitcircle:=implicitplot(x^2+y^2 = 1, x = -1 .. 1, y = -1 .. 1, scaling = constrained);

animate(complexplot,[[solve(eq, u)],style = point,symbolsize=10,color="red"],frames=50,K=-1..1,background=unitcircle, scaling=constrained, trace=20 );

However, when I tried p=2, q=3, only one root was shown on the animation.  

But   "complexplot([solve(eq,u)],style=point)"      showed  6 roots anyway.

I have no idea what was wrong. 

 

 

I've been instructed to create an animation showing the changing plots of a single square waveform using 5,10,20,40,80,160,320, and 640 terms in my Fourier series. This is my code right now: 

 

with (plots):
L := [seq(2^i, i = 0 .. 6)];


[1, 2, 4, 8, 16, 32, 64]


animate( plot, [2/((2*n-1)*Pi))*sin((2*n-1)*Pi*x], n=L);
Error, `)` unexpected

 

It doesn't work. Can anyone explain what I'm doing wrong, or how to solve my question?

Hi,

I don't manage to animate a DensityPlot. Here is my program :

> restart;
> with(Statistics): with(plots):
> P := lambda->RandomVariable(Poisson(lambda)):
> animate(DensityPlot,[P(n),range=0..10],n=1..5,frames=5);

And here is the error message :

Plotting error, non-numeric vertex definition

Thanks for any help

Dear all,

I tried to display an animation which can zoom as the time goes.

But it seems that if I display several animations in one plot window, it will display the animation with the maximum view size from these animations, not separately display these animations with their view size.

 

There are two examples:

Case1,

a1 := animate(plot, [x^2, x = -1 .. t, view = [-1 .. 1, 0 .. 1]], t = -1 .. 1);

a2 := animate(plot, [x, x = -1 .. t, view = [-1 .. 1, -1 .. 1]], t = -1 .. 1);

display(a1, a2);

 

Case2,

animate(plot, [x^2, x = -1 .. 1, view = [t .. 1, 0 .. 1]], t = 0 .. -1)


Is it possible to zoom the animation with time? What parameter should I set?

The related maple file is attached.

zoom_animation_with_time.mw

i am trying to export an animated gif file but the export windows freezes and exports an empty file with zero bytes

the animation was created by: display(map(p, convert(A(() .. (), 2), list)), insequence = true)

i have tried to give maple some time (2-3 hours) and i even tried to restart the computer and lauch maple and try to export it but it didnt worked

how can i export it or how can i plot the using commands

 

Hi everyone

Title might be misleading but couldn't come up with a short version of my problem.

The idea is to show an animation of several plots of an array, which all have different values in the positive and in the negative range. For distinguishing purposes I want to show positive values in a different colour than the negative values.

For better understanding imagine a chess board with the rows and columns and there are places with values, black chess pieces as positive values and white chess pieces as negative values. Each array in the sequence from A1 to An shows a movement.

For the plots I use sparsematrixplot which unfortunately just shows all non-zero values. So I seperated the original array and made two arrays, one with the positive values and one with the negative values. I am able to animate the sequence of several plots and can play the animation of two sequences consecutively with following:

A:=seq(sparsematrixplot(convert(H||g,matrix),color=green,view=[0..10,0..10]),g=1..G):
B:=seq(sparsematrixplot(convert(F||g,matrix),color=red,view=[0..10,0..10]),g=1..G):
display([A,B], insequence=true);

Hence my questions
1. Is it possible to plot an array with different colours for different values and can I animate these plots?

2. If not, is there a way to display the two plot sequences on top of each other?

 

Thanks for your help in advance.

 

 support type error when plot, and moreover how to animate this plot

restart;
with(ExcelTools):
with(ListTools):
with(DynamicSystems):
filename := "0257.HK";
open3 := Import(cat(cat("C://Temp//HK//Bank//",filename),".xls"), filename, "B2:B100");
high3 := Import(cat(cat("C://Temp//HK//Bank//",filename),".xls"), filename, "C2:C100");
low3 := Import(cat(cat("C://Temp//HK//Bank//",filename),".xls"), filename, "D2:D100");
close3 := Import(cat(cat("C://Temp//HK//Bank//",filename),".xls"), filename, "E2:E100");
with(CurveFitting):
n := 31;
f := Vector(n);
f2 := Vector(n);
open2 := Vector(n);high2 := Vector(n);gain2 := Vector(n);algebra2 := Vector(n);creative2 := Vector(n);creative3 := Vector(n);
upper2 := Vector(n);lower2 := Vector(n);upperloweratio := Vector(n);
deltaopen2 := Vector(n); deltahigh2 := Vector(n); deltalow2 := Vector(n); deltaclose2 := Vector(n);
logn := Vector(n);
for i from 0 to n-4 do
open2[i+1] := PolynomialInterpolation([[0,open3[n-i][1]],[1,open3[n-(i+1)][1]],[2,open3[n-(i+2)][1]],[4,open3[n-(i+3)][1]]],t):
high2[i+1] := PolynomialInterpolation([[0,high3[n-i][1]],[1,high3[n-(i+1)][1]],[2,high3[n-(i+2)][1]],[4,high3[n-(i+3)][1]]],t):
low2[i+1] := PolynomialInterpolation([[0,low3[n-i][1]],[1,low3[n-(i+1)][1]],[2,low3[n-(i+2)][1]],[4,low3[n-(i+3)][1]]],t):
if (close3[i+1][1]/close3[i+2][1]-1) < 0 then
gain2[i+1] := -1*round(100*abs(close3[i+1][1]/close3[i+2][1]-1)):
else
gain2[i+1] := round(abs(100*(close3[i+1][1]/close3[i+2][1]-1))):
end if;
od;
n := 31;
newclose := Vector(n);
for j from 0 to n-4 do
for i from 0 to n-4 do
x1 := close3[i+1];
y1 := close3[i+1];
newclose[i+1] := subs(y=y1, subs(x=x1, (1/2)*(-y+sqrt(-3*y^2-4*y*x))/y))
od;
close3 := newclose;
plot(close3(x), x=1..31);
od;

 

Hello everybody, i need to graphic a couple of functions just like this one:

 http://temasmatematicos.uniandes.edu.co/Casquetes_cilindricos/Pags/Anim_1.htm

i have been watching this:

 http://www.maplesoft.com/teachingconcepts/detail.aspx?cid=12 VISUALIZATION --> Animation 2

i've tried with (plots) (plottools) animate, etc. but i can't figure out how to do it. 

It would be very helpful if someone explain me how to do this.

Thank you all!

I am using the following commands to create an animation of a simple cardioid being traced out. I would like to add to this an animation of the filling of the region bounded by the curve and the coordinate axes as the curve is being traced out. How might one achieve this?

with(plots):

animatecurve([2-2*sin(theta),theta,theta=0.. 2*Pi],coords=polar,axiscoordinates=polar,frames=250, numpoints=300, scaling=constrained)

Thanks.

I do not have any code to produce yet.  I want to have Maple animate a bouncing ball on some 3d surface.

Hi, 

I want to animate this code 

plots[odeplot](Trajectoire, [[x1(t), y1(t), t], [x2(t), y2(t), t], [x3(t), y3(t), t], [x4(t), y4(t), t], [x5(t), y5(t), t], [x6(t), y6(t), t], [x7(t), y7(t),t], [x8(t), y8(t), t], [x9(t), y9(t), t], [xA(t), yA(t), t]], TempsInitial..TempsFinal, numpoints = 10000,axes=boxed, scaling = constrained);

However, Maple 16 is giving me an error message :

Error, (in plots/animate) the first argument must be a procedure


I don't know how I can do to animate this code.

 

Thanks!

restart:with(plots):

TSol:= f(x,y,Q); # The actual funtion is in the attached maple sheet because of its size.

animate( plot3d, [TSol,y=-1..1,x=0..1], Q=0..2,contours=65,style=patchnogrid, grid=[80,80], orientation=[-360,-180], lightmodel=light4, shading=zhue, transparency=0.3,style=contour);

 

 

plot3d(subs(Q=2,TSol),y=-1..1,x=0..1,contours=65,style=patchnogrid, grid=[80,80], orientation=[-360,-180], lightmodel=light4, shading=zhue, transparency=0.3,style=contour);

 

For Q = 2, why there is a big difference between these two ouputs?

 3d_anim_try.mw (If the maple sheet is not accessible then let me know, I will copy past the function (f(x,y,Q))?)

1 2 3 4 5 6 Page 1 of 6