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

N_LogAnk = N_Obj && Макс. кол-во логических анкет в одной физической
CLOSE ALL

** БЛОК-7. ГЕНЕРАЦИЯ КЛАССИФИКАЦИОННЫХ ШКАЛ И ГРАДАЦИЙ ***************************************

Mess1 = » === ГЕНЕРАЦИЯ СЛУЧАЙНЫХ КЛАССИФИКАЦИОННЫХ ШКАЛ И ГРАДАЦИЙ === »
@4,40-LEN(Mess1)/2 SAY Mess1 COLOR «rg+*/rb»

@24,0 SAY REPLICATE(«-«,80) COLOR «rb/n»
x=0

CLOSE ALL
USE Object EXCLUSIVE NEW;ZAP
FOR j=1 TO N_Obj
APPEND BLANK
REPLACE Kod WITH j
REPLACE Name WITH «Obj_»+ALLTRIM(STR(j,5))
p=++x/(N_Obj+N_Atr+N_Ank)*100;p=IF(p<=100,p,100) @24,0 SAY STR(p,3)+"%" COLOR "w+/r+" @24,4 SAY REPLICATE("-",0.76*p) COLOR "rb+/n" NEXT ** БЛОК-8. ГЕНЕРАЦИЯ ОПИСАТЕЛЬНЫХ ШКАЛ И ГРАДАЦИЙ ******************************************** Mess2 = " === ГЕНЕРАЦИЯ СЛУЧАЙНЫХ ОПИСАТЕЛЬНЫХ ШКАЛ И ГРАДАЦИЙ === " @5,40-LEN(Mess2)/2 SAY Mess2 COLOR "rg+*/rb" USE Priz_ob EXCLUSIVE NEW;ZAP USE Priz_per EXCLUSIVE NEW;ZAP @24,0 SAY REPLICATE("-",80) COLOR "rb/n" FOR i=1 TO N_Atr APPEND BLANK REPLACE Kod WITH i REPLACE Name WITH "Atr_"+ALLTRIM(STR(i,5)) p=++x/(N_Obj+N_Atr+N_Ank)*100;p=IF(p<=100,p,100) @24,0 SAY STR(p,3)+"%" COLOR "w+/r+" @24,4 SAY REPLICATE("-",0.76*p) COLOR "rb+/n" NEXT ** БЛОК-9. ГЕНЕРАЦИЯ ОБУЧАЮЩЕЙ ВЫБОРКИ ******************************************************* Mess3 = " === ГЕНЕРАЦИЯ СЛУЧАЙНОЙ ОБУЧАЮЩЕЙ ВЫБОРКИ === " @6,40-LEN(Mess3)/2 SAY Mess3 COLOR "rg+*/rb" USE ObInfZag EXCLUSIVE NEW;ZAP USE ObInfKpr EXCLUSIVE NEW;ZAP N_Rec = RECCOUNT() FOR M_KodIst=1 TO N_Ank SELECT ObInfZag APPEND BLANK REPLACE Kod_ist WITH M_KodIst R = 1+INT(N_Obj*RANDOM()/65535) && Код класса R = IF(R<1,1,R) R = IF(R>N_Obj,N_Obj,R)
REPLACE Name_ist WITH «Ist-«+STRTRAN(STR(M_KodIst,5),» «,»0″)+»-«+STRTRAN(STR(R,5),» «,»0»)
FIELDPUT(3,R)

***** Генерация массива кодов признаков в для БД ObInfKpr
A_Kpr := {}
FOR j=1 TO N_Atr
M_KodPr = 1+INT(N_Atr*RANDOM()/65535) && Код признака
M_KodPr = IF(M_KodPr<1,1,M_KodPr) M_KodPr = IF(M_KodPr>N_Atr,N_Atr,M_KodPr)
IF ASCAN(A_Kpr,M_KodPr) = 0 && Если признак еще не стречался
IF LEN(A_Kpr)+1 <= 4000 AADD(A_Kpr,M_KodPr) ENDIF ENDIF NEXT ASORT(A_Kpr) ****** Запись массива кодов признаков в БД ObInfKpr SELECT ObInfKpr APPEND BLANK FIELDPUT(1,M_KodIst) k=2 FOR j=1 TO LEN(A_Kpr) IF k <= 12 FIELDPUT(k++,A_Kpr[j]) ELSE APPEND BLANK FIELDPUT(1,M_KodIst) k=2 FIELDPUT(k ,A_Kpr[j]) ENDIF NEXT p=++x/(N_Obj+N_Atr+N_Ank)*100;p=IF(p<=100,p,100) @24,0 SAY STR(p,3)+"%" COLOR "w+/r+" @24,4 SAY REPLICATE("-",0.76*p) COLOR "rb+/n" NEXT @24,0 SAY REPLICATE("-",80) COLOR "rb/n" GenNtxObj(.T.) @24,0 SAY REPLICATE("-",80) COLOR "rb/n" GenNtxPro(.T.)