Présentation de mul_mod_23.jps

/syracuse/bbgraf/albums/napperons_02/mul_mod_23.jpg
%%%%%%% les parametres %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /N 251 def %% nombre de sommets du polygone /k 54 def %% multiplication modulaire par k /l 5 def %% facteur d'agrandissement pour le segment /echelle .35 def %% echelle pour la fenetre de dessin %% echelle = .5 ==> fenetre de 2 xmin a 2 xmax .01 setlinewidth %% epaisseur du trait /avec_legende true def %% switch pour la legende (true ou false) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% echelle dup scale -15 15 setxrange -15 15 setyrange %% on genere un polygone regulier a N sommets /les_points O 5.5 N 0 genpolyreg def /fillstyle {jaune fill} def %O 5 cercle* %% 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 l trait %% ici les traits depassent du segment (de 50%) /i i 1 add store } repeat %%%%%%% la legende /fontsize 12 echelle div def /str 20 string def /legende { setTimesItalic ( n) xmin echelle div ymin echelle div rtext setTimes ( = ) show N str cvs show setTimesItalic (k) 0 ymin echelle div text setTimes ( = ) show k str cvs show setTimesItalic (l) xmax xmin sub .8 mul xmin add echelle div ymin echelle div text setTimes ( = ) show l str cvs show } def avec_legende {legende} if