Un ovale

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

Un ovale

Message non lu par OG » ven. 19 mars 2010, 15:39

Probablement l'ovale de Thom.

Figure asymptote 7537fae4be72c0ea296865104a7d09fe
*** Pour masquer/découvrir le code Asymptote qui a permis de créer la figure, il faut cliquer dessus. ;-) ***

CODE ASYMPTOTE de la figure ci-dessus : Tout sélectionner
  1.  
  2. import geometry;
  3. size(200,0);
  4. point pA=(-1,0);
  5. point pB=(1,0);
  6. point pO=(0,0);
  7. circle c1=circle(pA,length(pA-pB));
  8. circle c2=circle(pB,length(pA-pB));
  9. point pC=angpoint(c1,180);
  10. point pD=angpoint(c2,0);
  11. draw(line(pA,pB));
  12. draw(c1);
  13. draw(c2);
  14. arc arc1=arc(circle(pC,pD),pC,pD);
  15. point pE=angpoint(circle(pC,pD),270);
  16. point pF=intersectionpoints(c2,line(pE,pB))[1];
  17. point pG=intersectionpoints(c1,line(pE,pA))[1];
  18. draw(line(pE,pF));
  19. draw(line(pE,pG));
  20. draw(line(pE,pO));
  21. arc arc2=arc(circle(pE,length(pE-pF)),pF,pG);
  22. arc arc3=arc(c2,pD,pF);
  23. arc arc4=arc(c1,pG,pC);
  24. draw(arc1^^arc2^^arc3^^arc4,1bp+blue);
  25. draw(box((-3.3,-3.3),(3.3,2.5)),invisible);
  26.  


O.G.

Répondre