Figures de Moivre

Les figures obtenues par le glissement d’une droite sur deux courbes planes portent le nom de “figures de MOIVRE”. 

De très belles figures peuvent être obtenues sur les micro-ordinateurs graphiques, à moindre effort.Les programmes proposés ici se servent de l’ordre graphique DRAW.Sept figures sont proposées :

–  MOIVRE 1 : les deux courbes planes sont deux droites d’angle90°.

–  MOIVRE 2 : les deux courbes planes sont deux droites d’angle<90°.

–  MOIVRE 3: composition de quatre figures du type 1.

–  MOIVRE 4 : composition de quatre figures de type 1.

–  MOIVRE 5: autre composition de quatre figures de type 1.

–  MOIVRE 6 : composition de deux figures de type 2 pour formerun triangle.

–  MOIVRE 7 : application de “MOIVRE 1” pour former le dessin

d’un papillon.

  Organigramme des programmes

Chacun des sept programmes possède une structure linéaire qui consiste en une ou plusieurs boucles décrivant le glissement de la droite. 

…Vous pouvez télécharger le fichier .dsk avec les programmes ici : moivres

 

Programmes 

10 REM  Moivre   1

11 :

20 CLG

30 FOR   I=0   TO   10

40 X1=300: Y1=380-19*I

50 X2=300+19*I : Y2=190

60 MOVE   X1,Y1:DRAW   X2,Y2

70 NEXT   I

 

10 REM Moivre 2

 11 :

 20 CLG

 30 FOR I=0 TO 10

 40 X1=300:Y1=380-19*I

 50 X2=300+19*I:Y2=190+19*I

 60 MOVE X1,Yl:DRAW X2,Y2

 70 NEXT I

 

10 REM Moivre 3
11 :
20 CLG
30 FOR I=0 TO 10
40 X1=300:Y1=380-19*I
50 X2=300+19*I:Y2=190
60 MOVE X1,Y1:DRAW X2,Y2
70 X1=300:Y1=19*I
80 X2=300+19*I:Y2=190
90 MOVE X1,Y1:DRAW X2,Y2
100 X1=300:Y1=380-19*I
110 X2=300-19*I:Y2=190
120 MOVE X1,Y1:DRAW X2,Y2
130 X1=300:Y1=19*I
140 X2=300-19*I:Y2=190
150 MOVE X1,Y1:DRAW X2,Y2
160 NEXT I

 

10 REM Moivre 4
11 :
20  CLG
30  FOR I=0 TD 10
40    X1=300: Y1=380-19*I
50    X2=300+19*I:Y2=190-19*I
60    MOVE X1,Y1:DRAW X2,Y2
70    X1=300:Y1=19*I
80    X2=300+19*I:Y2=190+19*I
90    MOVE X1,Y1:DRAW X2,Y2
100   X1=300:Y1=380-19*I
110   X2=300-19*I:Y2=190-19*I
120   MOVE X1,Y1:DRAW X2,Y2
130   X1=300:Y1=19*I
140   X2=300-19*I:Y2=190+19*I
150   MOVE X1,Y1:DRAW X2,Y2
160 NEXT I

 

10 REM Moivre 5
11  :
20  CLG
30  FOR I=0 TO 10
40    X1=150+36*I:Yl=0
50    X2=510:Y2=36*I
60    MOVE X1,Y1:DRAW X2,Y2
70    X1=510-36*I:Y1=0
80    X2=150:Y2=36*I
90    MOVE X1,Y1:DRAW X2,Y2
100   X1=510-36*I:Yl=360
110   X2=150:Y2=360-36*I
120   MOVE X1,Y1:DRAW X2,Y2
130   X1=150+36*I:Y1=360
140   X2=510:Y2=360-36*I
150   MOVE X1,Y1:DRAW X2,Y2
160 NEXT I

10   REM   Moivre   6
11  :
20  CLG
30  FOR I=0 TO 10
40    X1=115-5*I:Y1=300-9*I
50    X2=65+10*I:Y2=210
60    MOVE X1,Yl:DRAW X2,Y2
70    X1=115+5*I:Y1=300-9*I
80    X2=165-10*I:Y2=210
90    MOVE X1,Yl:DRAW X2,Y2
100 NEXT

 

10 REM Moivre 7, Le Pap
11  :
20  CLG
30  FOR I=0 TO 10
40    X1=65+I*5:Y1=300-I*4
50    X2=l15-5*I:Y2=260-4*I
60    MOVE X1,Yl:DRAW X2,Y2
70    X1=165-5*I:Yl=300-I*4
80    X2=115+I*5:Y2=260-I*4
90    MOVE X1,Y1:DRAW X2,Y2
100   NEXT   I
110   MOVE 114,280:DRAW 116,280:DRAW 116,240
120   DRAW 114,240:DRAW 114,280

Merci de partager 😉 :
Share on Facebook
Facebook
Tweet about this on Twitter
Twitter
Pin on Pinterest
Pinterest
Share on LinkedIn
Linkedin

Laisser un commentaire