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

AADD(A_Pr, «Делителей : «+ALLTRIM(STR(j,4))) && N_Del+2*N_Obj
NEXT
FOR j=1 TO N_Obj
AADD(A_Pr, «Степ.числа: «+ALLTRIM(STR(j,4))) && 4*N_Obj
NEXT
FOR j=1 TO N_Obj
AADD(A_Pr, «Чис.в степ: «+ALLTRIM(STR(j,4))) && 5*N_Obj
NEXT

USE Priz_per EXCLUSIVE NEW
ZAP
FOR j=1 TO LEN(A_Pr)
APPEND BLANK
REPLACE Kod WITH j
REPLACE Name WITH A_Pr[j]
NEXT
GenNtxPrp(.F.)
CLOSE ALL

*** Формирование справочника классов распознавания
USE Object EXCLUSIVE NEW
ZAP
FOR j=1 TO N_Obj
APPEND BLANK
REPLACE Kod WITH j
REPLACE Name WITH ALLTRIM(STR(j,3))
NEXT
GenNtxObj(.F.)
CLOSE ALL

*** Формирование обучающей выборки

USE ObInfZag EXCLUSIVE NEW;ZAP
USE ObInfKpr EXCLUSIVE NEW;ZAP
@24,0 SAY REPLICATE(«?»,80) COLOR «rb/n»

FOR s=1 TO N_Obj

****** Подготовка записей
SELECT ObInfZag
APPEND BLANK
REPLACE Kod_ist WITH s
REPLACE Name_ist WITH ALLTRIM(STR(s,4))
REPLACE Obj_1 WITH s
SELECT ObInfKpr
APPEND BLANK
REPLACE Kod_ist WITH s
p=0 && Позиция для записи в БД
N_Del=0 && Кол-во делителей

*** Проверка делимости
FOR j=1 TO N_Obj
IF s-j*INT(s/j) = 0
Kod = j
++N_Del
IF p+1 <= 11 FIELDPUT(++p+1, Kod) ELSE APPEND BLANK REPLACE Kod_ist WITH s p=0 FIELDPUT(++p+1, Kod) ENDIF ENDIF NEXT ************ Занесение количества делителей Kod = N_Del+2*N_Obj IF p+1 <= 11 FIELDPUT(++p+1, Kod) ELSE APPEND BLANK REPLACE Kod_ist WITH s p=0 FIELDPUT(++p+1, Kod) ENDIF *** Проверка не делимости FOR j=1 TO N_Obj IF s-j*INT(s/j) <> 0
Kod = j+1*N_Obj
IF p+1 <= 11 FIELDPUT(++p+1, Kod) ELSE APPEND BLANK REPLACE Kod_ist WITH s p=0 FIELDPUT(++p+1, Kod) ENDIF ENDIF NEXT *** Проверка, является ли данное число s *** целой степенью j некоторого натурального числа n FOR j=1 TO N_Obj FOR n=1 TO N_Obj IF s=n^j *** Степень числа n Kod = n+3*N_Obj IF p+1 <= 11 FIELDPUT(++p+1, Kod) ELSE APPEND BLANK REPLACE Kod_ist WITH s p=0 FIELDPUT(++p+1, Kod) ENDIF *** Число в степени j Kod = j+4*N_Obj IF p+1 <= 11 FIELDPUT(++p+1, Kod) ELSE APPEND BLANK REPLACE Kod_ist WITH s p=0 FIELDPUT(++p+1, Kod) ENDIF ENDIF NEXT NEXT