Экспертная система прогнозирования успеваемости студентов в ВУЗах

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=4,P=2,L=0,B is 4,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=4,P=2,L=1,B is 4,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=4,P=3,L=0,B is 4,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=4,P=3,L=1,B is 5,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=5,P=1,L=0,B is 5,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=5,P=1,L=1,B is 5,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=5,P=2,L=0,B is 5,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=5,P=2,L=1,B is 5,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=5,P=3,L=0,B is 5,!.

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B):-study9(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y),study5(PSL,PSP,PSB,PL,PP,PS,P),study3(LSR,LSS,LIO,LIK,LS,LI,LP,L),Y=5,P=3,L=1,B is 5,!.

%Основная программа определения оценки

ask_name :-

ask_name('You well communicate in group?(Yes or No)', name, LIO),

ask_name('You well communicate with class leader?(Yes or No)', name, LIK),

ask_name('Your parents approve Your choice?(Yes or No)', name, LSR),

ask_name('You like Your profession?(Yes or No)', name, LSS),

ask_name('You Live you in dormitory?(Yes or No)', name, LP),

ask_name('How much hours a day You spend on preparation to lecture(1,2,3)?', name, PSL),

ask_name('How much hours a day You spend on performing the laboratory work(1,2,3)?', name, PSP),

ask_name('How many times at month you visit the library(1,2,3)?', name, PSB),

ask_name('Value on 100-ballet to system Your visit lecture?(0-30(1),30-60(2),60-100(3))', name, PL),

ask_name('Value on 100-ballet to system Your visit practical occupation?(0-30(1),30-60(2),60-100(3))', name, PP),

ask_name('Your average ballet of the certificate in school?(3,4,5)', name, YHB),

ask_name('Your school has a high level on technical subject?(Yes or No)', name, YHY),

ask_name('Your current progress, in ballet approximately?(3,4,5)', name, YTB),

ask_name('You consider that are completely returned training?(Yes or No)', name, YTS),

ask_name('What beside You average ballet of the past session?(3,4,5)', name, YSB),

ask_name('You are a complacent result to previous session?(Yes or No)', name, YSS),

ask_name('On what course You learn?(1(1),2-6(2))', name, KYRS),

study10(YHB,YHY,YTB,YTS,YSB,YSS,KYRS,YH,YT,YS,Y,PSL,PSP,PSB,PL,PP,PS,P,LSR,LSS,LIO,LIK,LS,LI,LP,L,B),

write(B).

% Author:

make_same_width(Gr1, Gr2) :-

send(Gr1, width, Gr2?width).

% Pick up arguments from a dialog window:

create_person_dialog :-

new(D, dialog('Enter new person')),

send(D, append, new(BG, box(0,30))),

send(D, append, new(BI, box(500,0))),

send(D, append, new(F,label)), % for reports

send(D, append, new(Name, text_item(name))),

send(D, append, new(Age, text_item(age))),

send(D, append, new(Sex, menu(sex, marked))),

send(F, append, 'To begin testing enter its name and age and press button "Create".'),

send(Sex, append, female),

send(Sex, append, male),

send(Age, type, int),

send(D, append,

button(create, message(@prolog, create_person,

Name?selection,

Age?selection,

Sex?selection))),

send(D, default_button, create),

send(D, open).

create_person(Name, Age, Sex) :-

writeln('----------------------------------------------------------------'),

format('Student ~w person ~w of ~d years old your estimation -',

[Sex, Name, Age]).

% Start the demo

:- create_person_dialog.

:-ask_name.

ПРИЛОЖЕНИЕ 2

Анкета

Уважаемые студенты, просим вас поучаствовать в анкетировании на тему «Ваше отношение к учебному процессу». Просим Вас ответить на первые 4 вопроса, а остальные высказывания оценить по 7 бальной системе(от полного несогласия (1) до полного согласия (7)).

1. Ваш пол?

· Женский;

· Мужской;

2. На какой специальности Вы учитесь?

_____________________________________________________________

3. Ваше обучение:

· контрактное?

· бюджетное?

4. Вы проживаете в общежитии?

· да;

· нет;

5. «Обстановка в общежитии благосклонно влияет на учебу» 1 2 3 4 5 6 7

6. «Объяснение преподавателями нового материала понятно и доступно» 1 2 3 4 5 6 7

7. ««Воспринимать новый материал легко» 1 2 3 4 5 6 7

8. «База школьной подготовки позволяет, хорошо учится в «ХАИ»1 2 3 4 5 6 7

9. «Преподаватели объясняют сложно и быстро» 1 2 3 4 5 6 7

10. «Практических занятий достаточно, чтобы усвоить лекционную информацию»1 2 3 4 5 6 7

11. «Предметов очень много, большой поток информации» 1 2 3 4 5 6 7

12. «Учиться в «ХАИ» сложно и неинтересно» 1 2 3 4 5 6 7

13. «На самостоятельную обработку выносится больше информации, чем дается на лекциях» 1 2 3 4 5 6 7

14. «Специальность не оправдывает надежды» 1 2 3 4 5 6 7

15. «Лучшая мотивация в учебе, это похвала преподавателя» 1 2 3 4 5 6 7

16. «Я учусь хорошо, для того чтобы получать стипендию» 1 2 3 4 5 6 7

17. «Выбор специальности правильный, набор предметов интересный» 1 2 3 4 5 6 7

18. «Учеба для меня это самореализация » 1 2 3 4 5 6 7

19. «Стипендия как вид мотивации меня не интересует» 1 2 3 4 5 6 7

20. «Я поступил(а) в «ХАИ» потому что так хотели мои родители» 1 2 3 4 5 6 7

21. «У меня сложились хорошие отношения с одногрупниками и студентами других групп»1 2 3 4 5 6 7

22. «Я принимаю активное участие в общественной жизни факультета и университета»

1 2 3 4 5 6 7

23. «У меня сложились хорошие отношения с куратором»1 2 3 4 5 6 7

24. «Куратор практически не уделяет внимания нашей группе» 1 2 3 4 5 6 7

25. «Я боюсь, что меня отчислять» 1 2 3 4 5 6 7

26. «Мне стыдно плохо учиться» 1 2 3 4 5 6