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

Start:-

Start.

/*Выбор пункта меню*/

Select(Ch):-

Ch=0,ExitProg;

Ch=1,Diagnostic;

Ch=2,LoadBDFile;

Ch=3,SaveBD;

Ch=4,EditBD;

Ch=5,Zastavka;

CH=6,ExitProg.

/*Диагностика*/

Diagnostic:-

makewindow(20,90,90,"Описание:",1,0,6,80,1,2," "),

makewindow(21,90,95,"Анализ:",7,0,14,80,1,2," "),

makewindow(22,90,90,"Видысигналов",21,0,4,80,1,2," "),

signalip(FirstID,_,_),!,

ResearchNode(FirstID),

removewindow(22,1),

removewindow(21,1),

removewindow(20,1).

Diagnostic:-

removewindow(22,1),

removewindow(21,1),

removewindow(20,1).

/*Диалог с пользователем о наличии признаков*/

ResearchNode(NodeID):-

signalip(NodeId,RepID,Title),!,

decodip(RepID,RepStr,_),!,