Лабораторный практикум по интеллектуальным информационным системам

* 0123456789012345678901234567890123456789012345678901234567890123456789012345678
* 0 10 20 30 40 50 60 70
@17,72 GET Vid PICTURE «X» COLOR «rg+/r»
SET CURSOR ON;READ;SET CURSOR OFF
IF Vid <> «Y» .AND. Vid <> «N»
Vid = «N»
ENDIF
USE Object EXCLUSIVE NEW;ZAP
USE Zoo_data EXCLUSIVE NEW
ArObj := {}
AADD(ArObj,»МЛЕКОПИТАЮЩИЕ «)
AADD(ArObj,»ПТИЦЫ «)
AADD(ArObj,»ПРЕСМЫКАЮЩИЕСЯ?»)
AADD(ArObj,»РЫБЫ «)
AADD(ArObj,»ЗЕМНОВОДНЫЕ «)
AADD(ArObj,»НАСЕКОМЫЕ «)
AADD(ArObj,»МНОГОНОГИЕ «)
SELECT Zoo_data
DBGOTOP()
DO WHILE .NOT. EOF()
AADD(ArObj,FIELDGET(2))
DBSKIP(1)
ENDDO
SELECT Object
DBGOTOP()
FOR j=1 TO LEN(ArObj)
APPEND BLANK
REPLACE Kod WITH j
REPLACE Name WITH ArObj[j]
NEXT
CLOSE ALL
Mess = » ====== ФОРМИРОВАНИЕ СПРАВОЧНИКОВ ОПИСАТЕЛЬНЫХ ШКАЛ ====== »
USE Prizn EXCLUSIVE NEW
USE Priz_per EXCLUSIVE NEW;ZAP
ArPr := {}
SELECT Prizn
DBGOTOP()
DO WHILE .NOT. EOF()
AADD(ArPr,FIELDGET(2))
DBSKIP(1)
ENDDO
SELECT Priz_per
DBGOTOP()
FOR j=1 TO IF(Vid=»Y»,LEN(ArPr),25)
APPEND BLANK
REPLACE Kod WITH j
REPLACE Name WITH ArPr[j]
NEXT
@24,0 SAY REPLICATE(«-«,80) COLOR «rb/n»
CLOSE ALL
Mess = » ============ ФОРМИРОВАНИЕ ОБУЧАЮЩЕЙ ВЫБОРКИ ============= »
CLOSE ALL
USE Zoo_data EXCLUSIVE NEW
USE ObInfZag EXCLUSIVE NEW;ZAP
USE ObInfKpr EXCLUSIVE NEW;ZAP
N_Rec = RECCOUNT()
DBGOTOP()
@24,0 SAY REPLICATE(«-«,80) COLOR «rb/n»
SELECT Zoo_data
DBGOTOP()
DO WHILE .NOT. EOF()
ArObj := {}
FOR j=1 TO 2
AADD(ArObj,FIELDGET(j))
NEXT
FOR j=21 TO 22
AADD(ArObj,FIELDGET(j))
NEXT
ArPr := {}
FOR j=3 TO 20
Mv = FIELDGET(j)
IF Mv > 0
IF Vid = «Y»
AADD(ArPr,Mv)
ELSE
IF Mv <= 25 AADD(ArPr,Mv) ENDIF ENDIF ENDIF NEXT ****** Запись массива кодов классов из БД Zoo_data в БД ObInfZag SELECT ObInfZag APPEND BLANK FOR j=1 TO LEN(ArObj) FIELDPUT(j,ArObj[j]) NEXT ****** Запись массива кодов признаков из БД Zoo_data в БД ObInfKpr SELECT ObInfKpr APPEND BLANK FIELDPUT(1,ArObj[1]) k=2 FOR j=1 TO LEN(ArPr) IF k <= 12 FIELDPUT(k++,ArPr[j]) ELSE APPEND BLANK FIELDPUT(1,ArObj[1]) k=2 FIELDPUT(k,ArPr[j]) ENDIF NEXT SELECT Zoo_data DBSKIP(1) ENDDO RESTSCREEN(0,0,24,79,scr23) CLOSE ALL QUIT Программный интерфейс автоматически заполняет исходными данными следующие базы данных системы "Эйдос": – Object.dbf: классы (классификационные шкалы и градации); – Priz_per.dbf: атрибуты (описательные шкалы и градации); – ObInfZag.dbf: обучающая выборка (главная база данных); – ObInfKpr.dbf: обучающая выборка (связанная база данных).