Savez vous colorier ?

Utilisation de Xcas au lycée (sauf algorithmique), y compris projet d'epreuve pratique en Terminale S

Modérateur : xcasadmin

alb
Messages : 1320
Inscription : ven. août 28, 2009 3:34 pm

Savez vous colorier ?

Message par alb » lun. mai 21, 2012 8:08 pm

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

parisse
Messages : 5734
Inscription : mar. déc. 20, 2005 4:02 pm
Contact :

Re: Savez vous colorier ?

Message par parisse » mar. mai 22, 2012 8:37 am

on peut mettre le polygone vert en dernier, mais evidemment ca efface une partie de l'anneau magenta...

alb
Messages : 1320
Inscription : ven. août 28, 2009 3:34 pm

Re: Savez vous colorier ?

Message par alb » mar. mai 22, 2012 9:03 am

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 ?

alain974
Messages : 104
Inscription : lun. mai 24, 2010 11:15 am

Re: Savez vous colorier ?

Message par alain974 » mar. mai 29, 2012 5:10 pm

alb a écrit :C'est le millième sujet. Je gagne quoi ? :D
Le droit d'écrire 1000 en base deux :P

alb
Messages : 1320
Inscription : ven. août 28, 2009 3:34 pm

Re: Savez vous colorier ?

Message par alb » mar. mai 29, 2012 8:53 pm

:wink: convert(convert(1000,base,2),base,10) :wink:

Répondre