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