2

COD、DB、Wounds、Medical の値を渡して確率を計算したいと考えています。

以下のように XPCE コードを GUI として書きました。

list:-
new(D,dialog('Enter Evidence')),
send_list(D,append,
  [new(COD,menu(cause_of_death,choice)),
   new(DB,menu(dead_body,cycle)),
   new(Wounds,menu(wound_and_injuries,cycle)),
   new(Medical,menu(medical_evidence,cycle)),
   new(_,button('OK',message(@prolog,prob,COD?selection,DB?selection,Wounds?selection,Medical?selection)))]),

send_list(COD,append,[suicide,homicide]),
findall(X,db_evidence(X),Y),
send_list(DB, append,Y),
findall(E,i_evidence(E),F),
send_list(Wounds, append,F),
findall(G,m_evidence(G),H),
send_list(Medical, append,H),

  get(D,confirm, Answer),
  get(Answer, element(1), A),
  get(A, selection, AV),
  get(Answer, element(2), B),
  get(B, selection, BV),
  get(Answer, element(3), C),
  get(C, selection, CV),
   Q = [AV, BV, CV],

db_evidence(hanging_dead_body).
i_evidence(offensive_injuries).
i_evidence(head_injuries).
i_evidence(markings).
m_evidence('state of mind').
m_evidence(traces_of_anaesthetic).

確率を計算するための私のプロローグ コードは次のとおりです。

 prob( COD,Q, P)  :-
delete( Y, Q, Cond),
 %   predecessor( X, Y), !,           % Y is a descendant of X
prob( X, Cond, Px),
prob( Y, [X | Cond], PyGivenX),
prob( Y, Cond, Py),
P is Px * PyGivenX / Py,         % Assuming Py > 0



p(hanging_dead_body, 0.1).
p(offensive_injuries,0.05).
p(head_injuries, 0.5).
p(markings,0.2).
p('state of mind',0.1).
p(traces_of_anaesthetic,0.3).

 % suicidal table
 p( suicide, [hanging_dead_body,markings,traces_of_anaesthetic], 0.8).

結果には、P=確率の計算値が表示されます。私のコードがかなり混乱している場合は申し訳ありません。多分私はプロローグで変数を使って遊んでいるのはかなり新しいです。私を助けてください..ありがとう。

4

2 に答える 2

1

prob/4 プロシージャを定義する必要があります。例えば

prob(COD,DB,Wounds,Medical) :-
    writeln([COD,DB,Wounds,Medical]).

このようにダイアログを変更しました

...
send_list(Medical,append,H),
send(D, open).

[OK] をクリックすると、prob/4 が呼び出されて実際の選択肢が表示されます。

于 2013-01-27T10:48:37.230 に答える
1

これがあなたの望むものかどうかはわかりませんが、[OK] をクリックしたときにダイアログ ボックスで何が選択されているかを示す次のコードを作成しました。

list:-
new(D,dialog('Enter Evidence')),
send_list(D,append,
      [new(COD,menu(cause_of_death,choice)),
       new(DB,menu(dead_body,cycle)),
       new(Wounds,menu(wound_and_injuries,cycle)),
       new(Medical,menu(medical_evidence,cycle)),
       new(_,button('OK',
            message(D, return,
                [COD?selection,DB?selection,
                 Wounds?selection,Medical?selection])))]),

send_list(COD,append,[suicide,homicide]),
findall(X,db_evidence(X),Y),
send_list(DB, append,Y),
findall(E,i_evidence(E),F),
send_list(Wounds, append,F),
findall(G,m_evidence(G),H),
send_list(Medical, append,H),
get(D,confirm, Answer),
get(Answer, element(1), A),
get(A, value, AV),
get(Answer, element(2), B),
get(B, value, BV),
get(Answer, element(3), C),
get(C, value, CV),
get(Answer, element(4), E),
get(E, value, EV),
Q = [AV, BV, CV, EV],
writeln(Q).

例えば ​​：

 ?- list.
[suicide,hanging_dead_body,offensive_injuries,state of mind]
true.
于 2013-01-27T09:57:20.107 に答える