Animation de Fabrice

Règles du forum
ATTENTION ! Il est demandé de ne déposer dans ce forum que des exemples en langage Asymptote
  • finalisés
  • que l'on pense intéressants et optimisés
  • et qui se rapportent au thème du forum.
Si certains exemples déposés donnent lieu à de nombreuses modifications, ils seront déplacés et remplacés par un nouveau sujet dans ce forum avec la ou les meilleures propositions.
Pour les demandes d'aide ... il y a un forum spécifique !
OG
V.I.P.
V.I.P.
Messages : 134
Enregistré le : dim. 7 mars 2010, 22:27

Animation de Fabrice

Message non lu par OG » lun. 15 mars 2010, 21:56

Bonsoir

Oui j'ai reçu il y a longtemps (3 janvier 2010) un fichier d'animation de Fabrice.
Et depuis, je n'ai pas donné de nouvelle ni même créé un avatar !

Code : Tout sélectionner

import geometry;
import animate;
import graph;
settings.tex="pdflatex";
//settings.outformat="pdf"; // version originale
//settings.pdfviewer="xpdf"; // version originale
//settings.render=4; //version originale
unitsize(1cm);
arrowbar tempArrow =Arrow(HookHead,3bp);
animation Anim,anim;
path lieu;
real T[];
real Aire;
pen p=fontsize(8pt);
point C=(0,0), B=(6,0), A=(10,0);
circle c=circle(A,C);
arc a=arc(c,0,180);
draw(a);
draw(A--C);
label("A",A,2S,p);
label("B",B,2S,p);
label("C",C,2S,p);
for (int i=0; i<=180; i+=5){ //++i dans l'original
  save();
  point M=angpoint(a,i);
  triangle t=triangle(A,M,B);
  draw(t,red);
  draw(arc(c,A,M),red);
  filldraw(M--A--B--cycle,lightgreen,blue);
  label("M",M,dir(B--M),red+p);
  dot(M,red);
  picture pic;
  unitsize(pic,1cm);
  ylimits(pic,0,12);
  xlimits(pic,0,16);
  // show(pic,defaultcoordsys);//La routine show() ne semble pas fonctionner avec les fonctions xlimits() et ylimits(); les axes s'adaptent aux dimensions de l'image pic.
  xaxis(pic,"$x$",p,tempArrow);
  yaxis(pic,"$y$",p,tempArrow);
  Aire=10*sin(arclength(arc(a,A,M))/5);
  T.push(Aire);
  label(pic,""+string(Aire,4),(14,10),p+blue);
  label(pic,""+string(arclength(arc(a,A,M)),4),(13,10),p+blue);
  point P=(arclength(arc(a,A,M)),Aire);
  lieu=lieu--P;
  draw(pic,lieu,blue);
 anim.add(pic);
  Anim.add();
  restore();
  }
for (int i=0; i < Anim.pictures.length; ++i){
  add(Anim.pictures[i],anim.pictures[i].fit(),1.1*A);
  }
Anim.movie();


Pourquoi vouloir show(pic,defaultcoordsys) ?
Je pense que l'on peut réduire à une seule variable animation, en ajoutant
à l'intérieur de la boucle la figure de l'aire. Le tableau T n'est pas utile je crois.

h27.gif
h27.gif (190.37 Kio) Vu 4189 fois


O.G. qui ne sait pas comment les animations sont gérées par le forum, mais ça risque
la surchage tout de même.

Avatar du membre
GM
Administrateur du site
Administrateur du site
Messages : 1364
Enregistré le : dim. 7 mars 2010, 14:50

Re: animation de Fabrice

Message non lu par GM » mar. 16 mars 2010, 00:48

OG a écrit :O.G. qui ne sait pas comment les animations sont gérées par le forum, mais ça risque la surcharge tout de même.

On ne va même pas essayer ! Je vais mettre animate et animation dans la blacklist. ;)

Si quelqu'un l'oublie, il aura ce genre de message :
Image
Index des fonctions - Exemple de lien donnant le résultat d'une recherche sur les mots 'arc' et 'triple' : http://asy.marris.fr/indexasy/?filtre=arc triple
Mes configurations (le 10/10/17) :
PC n°1 :Windows 10 - Asymptote(2.41)+MikTeX2.9 - Editeurs : Notepad++ et TeXworks.
Mes autres PC :Ubuntu 16.04LTS - Asymptote(2.42 git) + TexLive2017 - Editeur : TeXworks.
Merci de préciser la votre pour faciliter l'aide des autres !

Répondre