Page 1 sur 1

Savez vous colorier ?

Publié : lun. mai 21, 2012 8:08 pm
par alb
Bonjour,
Je veux colorier dans l'ordre:
1/ en jaune l'ensemble des points M tel que IM<5*sqrt(2)/2 avec I(5;0)
2/ en vert l'ensemble des points M(x;y) tels que (3x+25)/4<y<(3x+35)/4
3/ en magenta l'ensemble des points M tels que 7<KM<8 avec K(16/5;12/5)
Voici un script qui ne marche pas puisqu'il fait disparaitre un croissant de vert

Code : Tout sélectionner

I:=point(5,0):;;
d1:=droite(y=3*x/4+35/4):;;
d2:=droite(y=3*x/4+25/4):;;
K:=point(16/5,12/5):;;
M1:=element(d1,-200):;;
M2:=element(d2,-200):;;
M3:=element(d1,200):;;
M4:=element(d2,200):;;
polygone(M1,M2,M4,M3,display=vert+rempli);
cercle(K,8,display=magenta+rempli);;
cercle(K,7,display=blanc+rempli);;
cercle(I,5*sqrt(2)/2,display=jaune+rempli);
Si quelqu'un a une idée ...

C'est le millième sujet. Je gagne quoi ? :D

Re: Savez vous colorier ?

Publié : mar. mai 22, 2012 8:37 am
par parisse
on peut mettre le polygone vert en dernier, mais evidemment ca efface une partie de l'anneau magenta...

Re: Savez vous colorier ?

Publié : mar. mai 22, 2012 9:03 am
par alb
Oui mais je veux respecter la consigne, l'anneau passant par dessus la bande
Je vais être obligé d'écrire une fonction qui colorie la surface comprise entre deux cercles de même centre.
A moins d'une astuce dans cet exemple ?

Re: Savez vous colorier ?

Publié : mar. mai 29, 2012 5:10 pm
par alain974
alb a écrit :C'est le millième sujet. Je gagne quoi ? :D
Le droit d'écrire 1000 en base deux :P

Re: Savez vous colorier ?

Publié : mar. mai 29, 2012 8:53 pm
par alb
:wink: convert(convert(1000,base,2),base,10) :wink: