DataMuseum.dk

top - download

    Length: 591 (0x24f)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧ 

TextFile

with Fqa_Bundle;
with Fqa_Do_Action;
with Fqa_Frames;
with Fqa_Kbs;
with Slot;

use Fqa_Bundle;
use Fqa_Kbs;
package body Expert_System is

    use Fqa_Frames;


    procedure Fqa_Play is new Kbs.Rule_Base.Infere (Do_Action => Fqa_Do_Action);

    procedure Add_Query (F : Integer) is
    begin
        Questions.Add ((Number => Slot.Value (F)));
    end Add_Query;

    procedure Initialize is
    begin
        Answers.Add ((Slot.Value (1), Slot.Value (1), Slot.Value (False)));
    end Initialize;


    procedure Infere is
    begin  
        Fqa_Play;
    end Infere;
end Expert_System;