Recherche programme, besoin de votre aide

[Laurae]

c'est facile pour x² + 3x + y² -2y, il suffit de faire (x+3/2)²+(y-2/2)², de développer, et de soustraire la suite qui est en trop (la partie sans les x et y). Ensuite il suffit de déplacer la partie en trop de l'autre côté. Si c'est supérieur à 0, c'est une équation de cercle, sinon ça l'est pas.

C'est très simple de le programmer, il n'y a que environ 3-4 étapes à faire.

[Eldec]

D'accord, existe-t-il un programme déjà fait dans ce cas ? (ou alors est-il possible de me le faire ?) Je n'y connais vraiment rien en programmation c'est pour cela que je demande.
Ce genre de programme me permettrait de gagner du temps , car c'est ce qui me manque en DS.

[Bisam]

Voici un petit programme en quelques lignes qui devrait fonctionner :

Code: Select all

cercle(eq)
prgm
local rr,pt
clrio
if part(eq,0)="="
 left(eq)-right(eq)-eq
explist(solve({d(eq,x)=0,d(eq,y)=0},{x,y}),{x,y})-pt
eq-norm(pt-[x,y])^2-rr
if when(d(rr,x)*d(rr,y)0,true,false,false)
 disp "Tu as dû faire une faute de frappe.","Ce n'est pas une équation de cercle"
elseif when(rr0,true, false, true) then
 Disp "C'est le cercle de centre",pt,"et de rayon",racine(rr)
elseif when(rr=0,true, false,false) then
 Disp "C'est uniquement le point",pt,"(cercle de rayon nul)"
else
 disp "C'est l'ensemble vide."
endif
endprgm


Attention, quelques points à adapter en recopiant le code :
- les "d(eq,x)" sont des dérivées. Il faut remplacer le "d" par le symbole de dérivée de ta calculette.
- le "explist" est une fonction de ta calculette que tu trouveras dans le catalogue.
- le "" est à remplacer par le symbole "différent de", que tu peux par exemple obtenir par le raccourci [diamant]+[=] ou dans le menu [math][test][6]
- le "racine(rr)" est bien sûr à remplacer par le symbole "racine carrée".

Pour utiliser le programme, il suffit de taper par exemple :

Code: Select all

cercle(x^2+3x+y^2-2y=0)

et de lire les résultats.