
01.10.2008, 01:03
|
|
Участник форума
Регистрация: 11.05.2007
Сообщений: 149
Провел на форуме: 6373157
Репутация:
247
|
|
Ну а вот пример, как этот класс использовать:
Код:
#!/usr/bin/perl -w
use strict;
use KSOCR;
my $ocr = new KSOCR( DEBUG => 1,
FILE_NAME => 'image' );
if ( $ocr->recognition ){
print "Живая природа";
}else{
print "Неживая природа"
}
Пример отладки:
Код:
Проверка с эталоном # 1
-----------------------
( 0: 0 ) R G B
Образец : 252 253 249
Эталон : 196 86 60
Погрешность : 56 167 189
Совпадений : 0/8
Проверка с эталоном # 2
-----------------------
( 0: 0 ) R G B
Образец : 252 253 249
Эталон : 118 120 78
Погрешность : 134 133 171
Совпадений : 0/8
Проверка с эталоном # 3
-----------------------
( 0: 0 ) R G B
Образец : 252 253 249
Эталон : 251 248 232
Погрешность : 1 5 17
Совпадений : 1/8
( 69: 0 ) R G B
Образец : 252 253 249
Эталон : 236 230 215
Погрешность : 16 23 34
Совпадений : 2/8
( 0:69 ) R G B
Образец : 92 114 72
Эталон : 132 150 25
Погрешность : 40 36 47
Совпадений : 3/8
( 69:69 ) R G B
Образец : 252 253 249
Эталон : 119 126 43
Погрешность : 133 127 206
Совпадений : 0/8
Проверка с эталоном # 4
-----------------------
( 0: 0 ) R G B
Образец : 252 253 249
Эталон : 252 253 249
Погрешность : 0 0 0
Совпадений : 1/8
( 69: 0 ) R G B
Образец : 252 253 249
Эталон : 252 253 249
Погрешность : 0 0 0
Совпадений : 2/8
( 0:69 ) R G B
Образец : 92 114 72
Эталон : 92 114 72
Погрешность : 0 0 0
Совпадений : 3/8
( 69:69 ) R G B
Образец : 252 253 249
Эталон : 252 253 249
Погрешность : 0 0 0
Совпадений : 4/8
( 35: 0 ) R G B
Образец : 252 253 249
Эталон : 252 253 249
Погрешность : 0 0 0
Совпадений : 5/8
( 69:35 ) R G B
Образец : 203 220 185
Эталон : 210 220 195
Погрешность : 7 0 10
Совпадений : 6/8
( 35:69 ) R G B
Образец : 102 114 65
Эталон : 102 114 65
Погрешность : 0 0 0
Совпадений : 7/8
( 0:35 ) R G B
Образец : 234 244 217
Эталон : 234 244 217
Погрешность : 0 0 0
Совпадений : 8/8
Живая природа
Дерзайте 
Последний раз редактировалось n3m0; 01.10.2008 в 01:09..
|
|
|