Курсовая работа: Экспертная система. Анализ передачи телеметрических данных со спутника

attribute(OldAttr),attribute(90),

write(" ",Title,":"),nl,

attribute(OldAttr),

write(" ",RepStr),

shiftwindow(21),%clearwindow,

write("присутствует ли в сводке сигнал ",Title),nl,

attribute(OldAttr),attribute(95),

write("Нажмите Enter-да, Esc-нет ... "),

attribute(OldAttr),

readchar(Key),

KeySelect(Key,NodeID).

/*Поискописания*/

KeySelect(Key,NodeID):-

Key=0,readchar(NewKey);

Key=27,shiftwindow(21),write("-?в"),nl,nl,

ParentID=NodeID div 100,

signalip(NewNode,_,_),

ParentID=NewNode div 100,NewNode > NodeID,!,

ResearchNode(NewNode);

Key=13,shiftwindow(21),write("да"),nl,nl,

signalip(NewNode,_,Title),

shiftwindow(22),write(Title,"; "),

NodeID=NewNode div 100,!,

ResearchNode(NewNode);

Key=13,FaultFound(NodeID).

/*Обнаружение*/

FaultFound(NodeID):-

makewindow(23,31,26,"Сигналрасшифрован",5,10,9,60,1,2," "),nl,

signalip(NodeID,RepID,Title),