KM03_ex5bis.mw

> restart:with(plots):

Warning, the name changecoords has been redefined

>

Quelques animations

> a:=5:b:=3:F:=(x,y)->x^2/a^2+y^2/b^2-1;

F := proc (x, y) options operator, arrow; x^2/a^2+y^2/b^2-1 end proc

> H:=t->abs(t-1/2)/(2*t-1) + 1/2:

> b:=3:P:=[-3,0];d:=[5,3];Billard:=implicitplot(F(x,y)=0,x=-5..5,y=-5..5,color=blue,thickness=1):

P := [-3, 0]

d := [5, 3]

> animate( plot, [[trajet],style=line,thickness=1], t=1..N+1, frames=3*(N+1),background=Billard );

[Plot]

>