Présentation de mul_mod_08.jps

/syracuse/bbgraf/albums/napperons/mul_mod_08.jpg
/N 551 def /k 13 def -13 13 setxrange -13 13 setyrange .1 setlinewidth %% on genere un polygone regulier a N sommets /les_points O 5.5 N 0 genpolyreg def %% on relie le point d'indice i au point d'indice k*i (mod N) /i 0 def N { les_points i getp les_points i k mul N mod getp 1.5 trait %% ici les traits depassent du segment (de 50%) /i i 1 add store } repeat /str 20 string def setTimesItalic (n) xmax xmin 2 mul 3 div add .5 sub ymin text setTimes ( = ) show N str cvs show setTimesItalic (k) xmax xmin 4 mul 3 div add .5 sub ymin text setTimes ( = ) show k str cvs show