Discussion :

[fasfousba]

Bonjour à tous,

je voudrais savoir si ma traduction de cette règle en prolog est bonne ou mauvaise.
La règle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Si couleur du texte est différente de la couleur choisie par l'utilisateur alors modifier la couleur

En prolog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
couleur(X).
couleur(Y).
modifier_couleur (X,Y) :-couleur(X),couleur(Y),X ≠ Y.

c'est à dire X est une couleur, Y aussi. la couleur sera modifier lorsque X≠Y.

Question subsidiaire : Les faits sont :
couleur(X).
modifier_couleur(X,Y).
ou bien
seulement
couleur(X).
car modifier_couleur(X,Y) se trouve dans la conclusion et non dans les prémisses...

parce que je suis en train de réaliser un système expert et je voudrais faire la liste des faits et des règles. j'en ai une bonne vingtaine. ça serait gentil de me corriger pour me donner un bon début pour continuer.
merci infiniment pour vos réponses.

[Trap D]

Il te faut un fait couleur_texte(Coul).

[fasfousba]

merci pour ta réponse.

et comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
couleur(coul1).
couleur(coul2).
couleur_texte(coul1).
couleur_preference(coul2).
modifier_couleur(coul1,coul2):-couleur(coul1),couleur(coul2),
couleur_texte(coul1),couleur_preference(coul2),coul1≠coul2.

merci de l'aide.

[Trap D]

Si j'ai bien compris ta règle, il faut changer la couleur du texte si elle n'est pas conforme à celle choisie par l'utilisateur.

Voilà comment je vois les choses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% on déclare le prédicat couleur_texte "dynamic"
% pour pouvoir changer la couleur dynamiquement
:- dynamic couleur_texte/1.
 
% prédicat d'initialisation, on crée une couleur de départ
init :-
	% pour pouvoir réinitialiser la base de faits
	retractall(couleur_texte(_)),
	% on crée la couleur de départ
	assert(couleur_texte(bleu)).
 
% test de couleur
teste_couleur(Coul) :-
	% la couleur Coul est-elle la couleur de texte en cours ?
	% si oui on s'arrête après le test couleur_texte(Coul)
	couleur_texte(Coul); 
	% on passe le ';' donc le test a échoué
	% on enlève la couleur actuelle
	retract(couleur_texte(_)), 
	% puis on crée la nouvelle couleur
	assert(couleur_texte(Coul)).

exemple de sortie :

1 ?- couleur_texte(X).
false.

2 ?- init.
true.

3 ?- couleur_texte(X).
X = bleu.

4 ?- teste_couleur(bleu).
true .

5 ?- couleur_texte(X).
X = bleu.

6 ?- teste_couleur(rouge).
true.

7 ?- couleur_texte(X).
X = rouge.

8 ?-

Je ne sais pas si celà répond à tes questions !

[fasfousba]

merci je voyais pas le choses comme ça.
c'est vrai que ça réponds exactement à ce que je demande.
je suis débutante et j'ai tendance à compliquer un peu les choses

merci