oeuf

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

oeuf

Message non lu par OG » ven. 2 avr. 2010, 22:38

Actualité à la règle et au compas.
Bien sûr ne pas lire le code, mais construire (en fait lire le code
n'aide pas nécessairement).

Figure asymptote ffd32ea7f3c079f4992a73dbfcd0baa3
*** 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,pB);
  8. draw(arc(c1,pB,pA));
  9. point pC=intersectionpoints(c1,line(pO,false,(0,1)))[0];
  10. dot(pC);
  11. draw(line(pA,pB));
  12. draw(line(pO,pC));
  13. point pD=intersectionpoints(circle(pB,length(pA-pB)),line(pB,pC))[1];
  14. dot(pD);
  15. draw(segment(pB,pD));
  16. point pE=intersectionpoints(circle(pA,length(pA-pB)),line(pA,pC))[1];
  17. dot(pE);
  18. draw(segment(pA,pE));
  19. circle c3=circle(pC,length(pC-pE));
  20. draw(c3);
  21. point pF=intersectionpoints(c3,segment(pC,pO))[0];
  22. dot(pF);
  23. circle c4=circle(pO,length(pF-pO));
  24. draw(c4);
  25. point pG=intersectionpoints(c4,line(pO,pC))[0];
  26. dot(pG);
  27. circle c5=circle(pG,length(pG-pF));
  28. draw(c5);
  29. point pH=angpoint(c4,0);
  30. dot(pH);
  31. point pI=intersectionpoints(c5,line(pH,false,pG))[0];
  32. dot(pI);
  33. draw(segment(pI,pH));
  34. point pJ=angpoint(c4,180);
  35. dot(pJ);
  36. point pK=intersectionpoints(c5,line(pJ,false,pG))[0];
  37. dot(pK);
  38. draw(segment(pJ,pK));
  39.  
  40. arc arc1=arc(c3,pE,pD);
  41. arc arc2=arc(circle(pB,length(pA-pB)),pD,pA);
  42. arc arc3=arc(circle(pH,length(pH-pI)),pA,pI);
  43. arc arc4=arc(circle(pG,length(pG-pK)),pI,pK);
  44. arc arc5=arc(circle(pJ,length(pJ-pK)),pK,pB);
  45. arc arc6=arc(circle(pA,length(pA-pB)),pB,pE);
  46.  
  47. path oeuf=arc1..arc2..arc3..arc4..arc5..arc6..cycle;
  48. draw(oeuf,1bp+blue);
  49.  


O.G.

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

Re: oeuf

Message non lu par GM » sam. 3 avr. 2010, 08:29

Mon épouse a vu ta figure et s'est exclamée : ah, le tangram oeuf.

Il ne te reste plus qu'à faire les figures suivantes. :mrgreen:
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 !

OG
V.I.P.
V.I.P.
Messages : 134
Enregistré le : dim. 7 mars 2010, 22:27

Re: oeuf

Message non lu par OG » sam. 3 avr. 2010, 19:56

GM a écrit :Mon épouse a vu ta figure et s'est exclamée : ah, le tangram oeuf.

Il ne te reste plus qu'à faire les figures suivantes. :mrgreen:


Je ne connaissais pas. C'est l'oeuf à 4 points. Il y en un autre à 5 et le golden egg !

O.G.

Répondre