Figure géométrique
Auteur : Tama
Créé le : 06/01/2007
Groupe : Modérateur
Difficultée : 2/6
Télécharger
Code:
:ClrDraw
:AxesOff
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:Degree
:20->C
:For(R,5,55,10
:DelVar [A]DelVar [B]
:{3,2->dim([B]
:[[R,50][R,110][R+5,90]]->[A]
:360+[A](1,2->E
:While E > [A](1,2
:For(A,1,3
:47+[A](A,1)cos([A](A,2->[B](A,1
:31+[A](A,1)sin([A](A,2->[B](A,2
:End
:For(A,1,3
:Pt-On([B](A,1),[B](A,2
:End
:Line([B](1,1),[B](1,2),[B](2,1),[B](2,2
:Line([B](1,1),[B](1,2),[B](3,1),[B](3,2
:Line([B](2,1),[B](2,2),[B](3,1),[B](3,2
:For(A,1,3
:C+[A](A,2->[A](A,2
:End
:End
:End
Pour comprendre, vous devez savoir utiliser les matrices.