Listing : 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 dans la section download..

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,Y1RAW   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,YlRAW 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,Y1RAW X2,Y2
70 X1=300:Y1=19*I
80 X2=300+19*I:Y2=190
90 MOVE X1,Y1RAW X2,Y2
100 X1=300:Y1=380-19*I
110 X2=300-19*I:Y2=190
120 MOVE X1,Y1RAW X2,Y2
130 X1=300:Y1=19*I
140 X2=300-19*I:Y2=190
150 MOVE X1,Y1RAW 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,Y1RAW X2,Y2
70    X1=300:Y1=19*I
80    X2=300+19*I:Y2=190+19*I
90    MOVE X1,Y1RAW X2,Y2
100   X1=300:Y1=380-19*I
110   X2=300-19*I:Y2=190-19*I
120   MOVE X1,Y1RAW X2,Y2
130   X1=300:Y1=19*I
140   X2=300-19*I:Y2=190+19*I
150   MOVE X1,Y1RAW 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,Y1RAW X2,Y2
70    X1=510-36*I:Y1=0
80    X2=150:Y2=36*I
90    MOVE X1,Y1RAW X2,Y2
100   X1=510-36*I:Yl=360
110   X2=150:Y2=360-36*I
120   MOVE X1,Y1RAW X2,Y2
130   X1=150+36*I:Y1=360
140   X2=510:Y2=360-36*I
150   MOVE X1,Y1RAW 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,YlRAW X2,Y2
70    X1=115+5*I:Y1=300-9*I
80    X2=165-10*I:Y2=210
90    MOVE X1,YlRAW 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,YlRAW X2,Y2
70    X1=165-5*I:Yl=300-I*4
80    X2=115+I*5:Y2=260-I*4
90    MOVE X1,Y1RAW X2,Y2
100   NEXT   I
110   MOVE 114,280RAW 116,280RAW 116,240
120   DRAW 114,240RAW 114,280

 

  Voir cet article au format PDF Imprimer cet article

RECHERCHE
LANGUE
* Donathon 2017 *

145 €

 

 

 

 En savoir plus

Le Chat
 Smiles  Loading...
EN LIGNE
5 Personne(s) en ligne (1 Personne(s) connectée(s) sur Les articles Amstrad)

Utilisateur(s): 2
Invité(s): 3

Moonbeam, Golem13, Plus ...
Musiques CPC

Lecteur MP3
CPC-Scene Radio

 

 

ROLAND RADIO

Connexion
Identifiant :

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

Inscrivez-vous !

 

Informations
________________________________

Suivre Amstrad.eu

________________________________

Autres Créations web

________________________________

 

Declaration CNIL : 1005884

Association : 0540200002843

Charte

Avertissements

Plan du site

Carte de France des membres

 

 

 

Facebook.

Twitter.

RSS forum.

RSS News.

Contact.

 

Gaston-Phoebus.com

Amstrad.eu

untour.fr

Cathydeco.com

Higoogle

Harloup.fr

** Faire un don **

 

Conception Phenix © 2000 - 2014