Historique des modifications [retour]
cliquez ici pour masquer/afficher la révision 2
ajout d'un code permettant la compilation directe sur overleaf

08 Déc '19, 23:06

christophe-poulain's gravatar image

christophe-poulain
8661827

Sans relancer de troll sur les compléments graphiques de l'univers LaTeX... :) voici une solution avec metapost :) prologues:=2; mul:=2; modulo:=60; rayon=2.5; path cercle; cercle=fullcircle scaled (2*rayon*1cm); pair A[],O; O=(0,0); A0-O=(0,rayon*1cm); for k=1 upto modulo-1: A[k]=A[k-1] rotatedabout(O,360/modulo); endfor; beginfig(1); draw cercle; for k=1 upto modulo-1: draw A[k]--A[k*mul mod modulo]; endfor; endfig; endend ou voici un code à compiler directement sur overleaf \documentclass{article} \usepackage[shellescape]{gmp} \begin{document} \begin{mpost} prologues:=2; mul:=2; modulo:=60; rayon=2.5; path cercle; cercle=fullcircle scaled (2*rayon*1cm); pair A[],O; O=(0,0); A0-O=(0,rayon*1cm); for k=1 upto modulo-1: A[k]=A[k-1] rotatedabout(O,360/modulo); endfor; beginfig(1); draw cercle; for k=1 upto modulo-1: draw A[k]--A[k*mul mod modulo]; endfor; endfig; end \end{mpost} \end{document}
cliquez ici pour masquer/afficher la révision 1

08 Déc '19, 00:12

christophe-poulain's gravatar image

christophe-poulain
8661827

Sans relancer de troll sur les compléments graphiques de l'univers LaTeX... :) voici une solution avec metapost :) prologues:=2; mul:=2; modulo:=60; rayon=2.5; path cercle; cercle=fullcircle scaled (2*rayon*1cm); pair A[],O; O=(0,0); A0-O=(0,rayon*1cm); for k=1 upto modulo-1: A[k]=A[k-1] rotatedabout(O,360/modulo); endfor; beginfig(1); draw cercle; for k=1 upto modulo-1: draw A[k]--A[k*mul mod modulo]; endfor; endfig; end