0

2APL でマルチエージェント システムを作成しています。私のエージェント ファイルには、PC ルール関数で次の呼び出しがあります。

B(zoekBod(Location,Destination,Amount,PriceCorrection,PrevOrders,Price));

信念ファイルでは、このプロローグ関数を次のように定義しました。

  zoekBod(Afz, Best, Aant, PC, [], Bod) :-
    Max is abs(Best-Afz)*Aant*PC,
    random( 1, Max, Bod ).

  zoekBod(Afz, Best, Aant, PC, [opdracht(_,Aantal,Afzender,Bestemming,Prijs)|_], Bod) :-
    OudeMaat=abs(Bestemming-Afzender)*Aantal,
    Maat=abs(Best-Afz)*Aant,
    0.75=<(Maat/OudeMaat),
    (Maat/OudeMaat)=<1.33,
    Bod=PC*Prijs.

  zoekBod(Afz, Best, Aant, PC, [opdracht(_,Aantal,Afzender,Bestemming,_)|R], Bod) :-
    OudeMaat=abs(Bestemming-Afzender)*Aantal,
    Maat=abs(Best-Afz)*Aant,
    (0.75>(Maat/OudeMaat); (Maat/OudeMaat)>1.33),
    zoekBod(Afz, Best, Aant, PC, [R], Bod).

これはオランダ語ですが、基本的には、以前の注文に基づいて、新しい注文の価格を計算することが目標です。この信念を 2APL でテストすると、次のエラーが表示されます。

[STEP: Execute all plans]
Failed to execute:
B(zoekBod(1, 3, 15, 1, [], Prijs))

トレースをオンにして gprolog でテストすると、次の結果が得られます。

| ?- zoekBod(1,3,15,1,[],Prijs).
      1    1  Call: zoekBod(1,3,15,1,[],_17) ? 
      2    2  Call: _101 is abs(3-1)*15*1 ? 
      2    2  Exit: 30 is abs(3-1)*15*1 ? 
      3    2  Call: random(1,30,_17) ? 
      3    2  Exit: random(1,30,25) ? 
      1    1  Exit: zoekBod(1,3,15,1,[],25) ? 

Prijs = 25 ? 

(2 ms) yes
{trace}
| ?-

これはまさに意図したとおりです。関連する mas セクションは次のようになります。

<agent name="v1" file="vervoerder_voorbeeld.2apl">
      <beliefs file="vervoerderext_voorbeeld.pl" shadow="true"/>
</agent>

なぜ実行に失敗するのか、私は完全に困惑しています。ここで誰か助けてくれませんか？前もって感謝します！

申し訳ありませんが、答えを見つけました：

zoekBod(Afz, Best, Aant, PC, [], Bod) :-
Max is abs(Best-Afz)*Aant*PC,
random( 1, Max, Bod ).

次のようにする必要があります。

zoekBod(Afz, Best, Aant, PC, [], Bod) :-
Max is abs(Best-Afz)*Aant*PC,
Bod is int(random(Max)+0.5).
4

1 に答える 1

0

申し訳ありませんが、答えを見つけました：

zoekBod(Afz, Best, Aant, PC, [], Bod) :- Max は abs(Best-Afz)*Aant*PC, random( 1, Max, Bod ) です。

次のようにする必要があります。

zoekBod(Afz, Best, Aant, PC, [], Bod) :- Max は abs(Best-Afz)*Aant*PC、Bod は int(random(Max)+0.5) です。

于 2012-04-02T11:06:48.537 に答える