Інформаційний синтез системи автоматичного розпізнавання бланків документів

6

Ширина кімнати, м

3

Висота приміщення, м

3,2

Ширина вікна, м

2

Висота вікна, м

2

Ширина дверей, м

0,8

Висота дверей, м

2,1

Таким чином, на працівника доводиться 6 м² робочої площі та 19,2 м об'єму, що задовольняє норми СНиП 2.09.04-87[14], згідно з яким на кожного працівника в комп'ютерному бюро й обчислювальних центрах повинно доводитися не менше 6 м² робочої площі та 20 м об'єму.

У приміщенні обладнання представлене 3 персональними комп'ютерами з джерелами безперебійного живлення та плотером.

Стіни, стеля, підлога приміщення, де розташована ЕОМ, виготовлені з матеріалів, дозволених для обробки приміщень органами державного санітарно-епідеміологічного нагляду.

Заземлені конструкції, що перебувають у приміщенні (батареї опалення, водопровідні труби, кабелі із заземленим відкритим екраном і т.п.), надійно захищені діелектричними щитками або сітками від випадкового дотику.

У приміщенні щодня проводиться вологе прибирання, є медичні аптечки першої допомоги.

У приміщенні знаходиться один вогнегасник. Відповідно до вимог Правил пожежної безпеки в Україні необхідно забезпечити 2 вогнегасники на кожні 20м² площі приміщення з обліком гранично припустимих концентрацій вогнегасної рідини. Приміщення не оснащено системою автоматичної пожежної сигналізації. Відповідно до СНиП 2.04. 09-84 [32] необхідно встановити в приміщенні систему автоматичної пожежної сигналізації або теплові сповіщувачі. Підхід до засобів пожежогасіння вільний.

Природне світло проникає в приміщення через бічне вікно (1 вікно розміром 2м х 2м), орієнтовано на захід.

Вікна приміщення мають регулюючі пристосування для відкривання, а також штори й зовнішні козирки.

По небезпеці поразки робітників електричним струмом приміщення ставиться до категорії без підвищеної небезпеки -- сухі, не запилені приміщення, з нормальною температурою повітря й ізолюючою підлогою; монтаж електричних установок можна робити, використовуючи проведення без підвищеної ізоляції з установкою вимикачів, штепсельних розеток і світильників, що відповідає нормам ОНТП 24-86.[26]

4.2 Аналіз стану охорони праці в приміщенні

Згідно з "Гігієнічною класифікацією праці труда МОЗ N4137-86" праця оператора ЕОМ відноситься до I-П класу за гігієнічними умовами, її тяжкість не повинна перевищувати оптимальних, а напруженість - допустимих величин. На користувача персональних комп'ютерів потенційно впливають наступні фактори виробничого середовища:

1) небезпека ураження електричним струмом;

2) шум;

3) недостатня освітленість;

4) параметри мікроклімату;

5) небезпека виникнення пожежі;

6) електромагнітні поля й опромінення;

7) статична електрика;

8) психоемоційна напруга.

Робоче місце користувача ЕОМ повинно відповідати ГОСТ 12.2.032-78 [5].

Довжина столу (зліва направо) - 80см., ширина забезпечує місце перед клавіатурою (38см.) для розташування нотаток. Поверхня столу горизонтальна.

Ширина простору для ніг під столом 55см., глибина - 50см.

Рельєф спинки стільців, що знаходяться в кабінеті, повторює форму спини. Висота поверхні сидіння складає 45см., кут нахилу спинки - в межах 90-110 град. Ширина сидіння - 40см, глибина - не менше 38см. Висота опорної поверхні спинки - 40см., її ширина - 42см.

Поверхня сидіння й спинки напівм'яка, з нековзним покриттям, що не електризується.

Руки повинні розташовуватися так, щоб вони знаходились на відстані декількох десятків сантиметрів від тулуба. Передпліччя повинні спиратися на поверхню столу, знімаючи тим самим статичну напругу плечового поясу й рук.

Термінали розташовані екраном справа від вікна.

Стіна позаду комп'ютера повинна бути освітлена приблизно так, як і екран. Для зменшення поглинання світла стелю, верхні частини стін та віконні рами пофарбовано в білий колір (коефіцієнт відбивання 0,7), стіни й панелі - світло-жовті (коефіцієнт відбивання 0,5-0,6).

Характеристика вентиляції відповідає СНиП ІІ.04.05-91 [31]. В кабінеті повітрообмін відбувається внаслідок різниці температур повітря в приміщенні й зовнішнього повітря, а також в результаті дії вітру, отже, це природна вентиляція (необмежена), так як надходження й видалення повітря відбувається через вікно (провітрювання).

4.2.1 Аналіз фактичного значення природного освітлення

Приміщення розміром 3м х 6м і висотою 3,2м при бічному освітленні розташоване в 4-му поясі світлового клімату. Призначено для IV розряду зорових робіт.

Є одне вікно розміром 2м х 2м, розташоване вздовж меншої стіни приміщення й орієнтоване на захід. Висота від підлоги до підвіконня 0,8м, рівень робочої поверхні від підлоги дорівнює 0,8м, відстань від рівня робочої поверхні до верху вікна становить 2м. Відстань від вікна до розрахункової точки 4м (відповідно до схеми приміщення).

Необхідні розрахунки.

Нормоване значення коефіцієнта природного освітлення (КПО) для четвертого світлового пояса, у якому розміщається Україна , визначається у відсотках по формулі:

де -- нормоване значення КПО для III світлового пояса, що визначається по СНиП II- 4-79 [18] (з огляду на розряд зорової роботи, дорівнює 1,5 %).

-- коефіцієнт світлового клімату (для України - 0,9);

с -- коефіцієнт сонячності клімату (з огляду на 4- й пояс світлового клімату й розташування вікон, дорівнює 0,8).

Нормоване значення КПО дорівнює:

=1,5*0,9*0,8=1,08 %.

Фактичне значення коефіцієнта природного освітлення для досліджуваного приміщення можна визначити по формулі:

звідки

Де S₀ -- площа всіх вікон у приміщенні, м², S₀=2*2*1=4м²;

S_П -- площа підлоги приміщення, м2; S_П= 6 * 3 = 18м²;

t=t₁*t₂*t₃*t₄*t₅ - загальний коефіцієнт світлопропускання віконного отвору (складається з коефіцієнтів світлопропускання матеріалу, що враховують втрати світла в рамі світлопрорізу, у несучих конструкціях і в сонцезахисних пристроях, а також втрати світла в захисній сітці, що встановлюється під ліхтарями й при бічному висвітленні -- t₃=t₄=t₅ 1);

t₁= 0,5 -- оскільки матеріал вікон -- пустотілі світлопрозорі блоки;

t₂, = 0,9 -- оскільки обрамлення сталеві, одинарні глухі;

t= 0,5*0,9*1*1*1=0,45;

₁-- коефіцієнт, що враховує підвищення КПО при бічному висвітленні за рахунок світла, відбитого від поверхонь приміщення:

(глибина приміщення)/(відстань від рівня робочої поверхні до верху вікна)=6/2=3;

(відстань від розрахункової точки до вікна)/(глибина приміщення)= 4/6=0,66;

(довжина приміщення)/(глибина приміщення )=6/6=1;

з огляду на це, а також значення середньозваженого коефіцієнта відбиття r=0,4 [30] (для меблів середнього відтінку між темним і світлим тонами) r₁= 1,7[18];

h -- світлова характеристика вікна, береться по таблиці, для розглянутого приміщення: h=18 [30]; К_б -- коефіцієнт, що враховує затемнення вікон іншими будинками, якщо будинків немає, то К_б=1, що підходить і для даного приміщення; К₃ -- коефіцієнт запасу, з у межах 1,3 - 1,5[30], візьмемо значення 1,4. Отже, фактичне значення коефіцієнта природного освітлення для досліджуваного приміщення дорівнює:

%

Порівняємо значення нормованого коефіцієнта природного освітлення для даного приміщення (=1,08%) і фактичного (е_ф = 0,67%) і звідси виходить, що потрібні додаткові міри для покращення природного освітлення приміщення, тобто необхідно передбачити систему комбінованого освітлення та використовувати систему вимикачів, котра дозволить регулювати інтенсивність штучного освітлення в залежності від інтенсивності природного, а також дозволить освічувати тільки необхідні для роботи зони приміщення.

4.2.2 Аналіз штучного освітлення

Приміщення обладнане системою загального рівномірного освітлення - світильниками з лампами накалювання. Світильники штучного освітлення розміщуються локально над робочими місцями. Їх кількість дорівнює 4. У кожному світильнику по 1 лампі накалювання потужністю 150 Вт.

Значення фактичного освітлення Еф, лк, у приміщенні можна обчислити за допомогою методу коефіцієнта використання світлового потоку по формулі

де F -- світловий потік лампи, лм (приблизно лампа накалювання потужністю 100 Вт створює 1450 лм, 150Вт - 2000 лм, 60 Вт - 790 лм). У нашому випадку - 2000 лм;

h -- коефіцієнт використання світлового потоку (у рамках 0,4-0,6, візьмемо середнє значення -- 0,5)[30];

S -- площа приміщення, м2(18);

k -- коефіцієнт запасу, (у рамках 1,5-2, візьмемо значення -1,5)[30];

N - кількість світильників, шт.(у нашому випадку 4шт);

n -- кількість ламп у світильнику, шт.;

z -- коефіцієнт нерівномірності освітлення (для ламп накалювання -1,15).

Таким чином, фактичне значення штучного освітлення складе:

Порівнюючи нормоване значення штучного освітлення (при використанні люмінесцентних ламп по 200 Люкс) з фактичним, можна зробити висновок про те, що штучного освітлення не досить і є необхідність в додаткових заходах по його поліпшенню в досліджуваному приміщенні як мінімум до нормованого. Рішенням даної ситуації буде використання ламп більшої потужності або додавання до вже існуючої системи ламп такої ж потужності.

4.2.3 Аналіз достатності вентиляції в приміщенні

Згідно СНиП 2.09.04-87 [14] об'єм виробничого приміщення, з розрахунку на одного робітника у приміщеннях для обслуговування ЕОМ, повинен становити не менш 40 м³.

Розміри досліджуваного приміщення: 6м х 3м х 3,2м.

Розмір кватирки: 0,5м х 0,7м.

Кількість кватирок: 1 шт.

Обсяг приміщення складе V_П = 6 * 3 * 3,2 = 57,6м³.

Виходить, обсяг, що доводиться на робітника, становить V = 57,6/3 = 19,2м³, що не відповідає нормам. В цьому випадку на кожного робітника повинно приходитись не менше L¹ = 40 м³/г (при постійній природній вентиляції), повний необхідний повітрообмін приміщення L_н, м³/г повинен бути рівний

м³/г

Визначимо фактичний повітрообмін, що здійснюється в приміщенні за допомогою природної вентиляції як неорганізоване через різні нещільності віконних і дверних прорізів, так і організовано через кватирки у віконних прорізах або спеціальні вентиляційні канали. Будемо припускати, що вентиляція здійснюється за допомогою кватирки.

Фактичний повітрообмін L_ф м³/год визначимо по формулі

L_ф=m*F*V*N*3600

де m -- коефіцієнт витрати повітря, що приймає значення в рамках 0,3-0,8 (візьмемо середнє значення 0,55)[18];

F -- площа кватирки, F = 0,7 * 0,5 = 0,35м²;

V -- швидкість виходу повітря через кватирку, м/с;

N -- кількість кватирок, шт.

Швидкість виходу повітря визначається по формулі

де g -- прискорення вільного падіння, g=9,8 м/с²;

H₂-- тепловий напір, під дією якого буде вироблятися вихід повітря із кватирки, якому можна обчислити по формулі

Н₂ = h₂ * (g_внеш - g_вн )

де h₂-- висота від площини рівних тисків до центра кватирки; у нашому випадку 1,3 м;

g_внеш , g_вн -- відповідно об'ємна вага повітря зовні приміщення і усередині нього, кгс/м³.

У загальному випадку об'ємна вага повітря визначається по формулі:

Р_б -- барометричний тиск, мм. рт. ст. (приймається 750 мм рт.ст.);

Т -- температура повітря, К. Для робочих приміщень, де виконуються легкі роботи, відповідно до ГОСТ 12.1. 005-88 для теплого періоду року температура не повинна перевищувати 28⁰С або Т=301К, для холодного періоду року відповідно Т=17С, або 290К. Для повітря поза приміщенням температура визначається згідно СНиП 2.04. 05-91:

-- для теплого періоду року t=24С, Т=297К;

-- для холодного періоду року t=-11 С, Т=262К;

Фактичний повітрообмін для теплого періоду року:

g_вн = 0,465 * 750/301 = 1,16 кгс/м³;

g_внеш= 0,465 * 750/297 = 1,17 кгс/м³.

Тоді

Н₂=1,3* (1,17 - 1,16) = 0,013кгс/м²;

L_ф=0,55*0,35*0,47*3600=325,71 м³/ч.

Фактичний повітрообмін для холодного періоду року:

g_вн = 0,465 * 750/290 = 1,2 кгс/м³;

g_внеш= 0,465 * 750/262 = 1,33 кгс/м³.

Тоді

Н₂=1,3* (1,33 - 1,2) = 0,17кгс/м²;

L_ф=0,55*0,35*1,66*3600=1150,38 м³/ч.

Із розрахунків видно, що природна вентиляція для теплого періоду року є достатньою, а от в холодний період набагато перевищує норму. Тому для холодного періоду року необхідно заклеювати вікна, та інколи провітрювати приміщення, щоб уникати захворювання робітників.

4.2.4 Аналіз метеорологічних умов праці.

У відповідності до ГОСТ 12.1.005-88 [25] роботи, що проходять в даному приміщенні, відносяться до категорії робіт 1а (затрати енергії до 120 ккал/год). Для такої категорії робіт граничним значення мікроклімату є наступні дані (таблиця 4.1).

Таблиця 4.1 Показники мікроклімату повітря робочої зони

Період року	Температура повітря, °С	Відносна вологість, %	Швидкість руху повітря V, м/с
Параметри	Оптим.	Допуст.	Оптим.	Допуст.	Оптим.	Допуст.
Холодний	21-24	20-25	40-60	не більшее 75	0,1	не більше 0,1
Теплий	22-25	21-28	40-60	55 (при 28°С)	не більше 0,1	0,1-0,3

Фактичне значення температури повітря в холодну пору року складає в середньому 19°С - 22°С, а в теплу 25°С - 27°С. Отже, фактичні значення температури в холодну і теплу пори року відповідають нормативним.

Відносна вологість в даному приміщенні складає 45% і 48% відповідно в холодну і теплу пори року. Ці значення відповідають нормативним.

4.2.5 Оцінка джерел шуму

Джерела шуму в приміщенні: комп'ютер, плотер.

Вимірювання рівня звуку в приміщенні проводились за допомогою шумоміру ИШМ-3. В результаті вимірів рівень звуку склав L = 50 дБА. Отримане значення не перевищує допустимі норми ГсанПиН 3.3.2 007 - 98 12, 60дБА.

Таблиця 4.2 Параметри санітарно-гігієнічних умов праці в приміщенні

Параметр	Значення параметру	Нормативний документ
	Фактичне	Нормоване
Освітленність штучна, лк	128,82	200	СНИП II-4-79 [18]
КПО, %	0,75	1,08	СНИП II-4-79 [18]
Температура повітря в приміщенні, °С: взимку влітку	19-22 25-27	21-25 22-28	ГОСТ 12.1.005-88 [13]
Відносна вологість, %	45	40-60	ГОСТ 12.1.005-88 [13]
Швидкість руху повітря, м/с	0,15	0,1-0,3	ГОСТ 12.1.005-88 [13]
Шум, дБА	50	не більше 60	ГсанПиН 3.3.2 007 - 98 [12]

4.3 Висновки

Як об'єкт дослідження було взято приміщення, у якому проходила переддипломна практика у теплу пору року.

Виявлено, що на кожного працівника доводиться 6 м², що відповідає нормам СНиП 2.09.04-87 [14].

Природного освітлення не вистачає, тому необхідно передбачити систему комбінованого освітлення та використовувати систему вимикачів, котра дозволить регулювати інтенсивність штучного освітлення в залежності від інтенсивності природного, а також дозволить освічувати тільки необхідні для роботи зони приміщення. Штучного освітлення також не вистачає, оскільки його значення Е_ф=128,82 лк не перевищує норму, яка згідно з СНиП ІІ-4-79 [30] становить 200 лк при використанні зазначених ламп, отже необхідно використовувати лампи більшої потужності або додати до вже існуючої системи ламп такої ж потужності. Тобто для нашого приміщення необхідно додати ще 3 лампи такої ж потужності, як видно з наступних розрахунків:

Виявлено, що на кожного працівника доводиться 19,2 м³ повітря, чого достатньо відповідно до норм СНиП 2.09.04-87 [14]. Для нормальної роботи в приміщенні забезпечується постійний повітрообмін за допомогою вентиляції, рівний в теплий період раку 325,71 м³/ч, що є достатнім, а от в холодний період набагато перевищує норму. Тому для холодного періоду року необхідно заклеювати вікна, та інколи провітрювати приміщення, щоб уникати захворювання робітників.

В приміщенні не дотримується температурний режим взимку - температура знаходиться на межі допустимих значення. Тому взимку необхідно утеплювати вікна.

Здійснення такого роду заходів з покращення умов праці в приміщенні дозволить створити сприятливі умови праці для робітників, зокрема мікроклімату, що в свою чергу буде сприяти підвищенню активності робітників та їх продуктивність праці

ВИСНОВКИ

1. Розроблено алгоритм навчання системи в рамках ІЕІТ - технології, що дозволило програмно реалізувати процес навчання системи розпізнавання символів.

2. Сформовано навчальні матриці для зображень в полярних і декартових координатах. При формуванні навчальної матриці в полярних координатах розв'язана задача центрування зображення, що підвищило значення КФЕ.

3. Оптимізація контрольних допусків на ознаки розпізнавання при обробленні літер в полярних координатах забезпечує в порівнянні з обробленням в декартових координатах підвищення асимптотичної достовірності розпізнавання та їх інваріантність до зсуву, повороту та зміні масштабу;

4. Розроблено та програмно реалізовано алгоритм навчання системи розпізнавання рукописних символів за ІЕІТ з оптимізацією СКД на ознаки розпізнавання, що якісно збільшило значення КФЕ, а це підвищило достовірність прийняття рішення на етапі екзамену;

5. Програмно реалізовано алгоритм екзамену, що дає можливість з певною достовірністю розпізнавати рукописні символи;

Додаток

unit UnitMy;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, TeEngine, Series, TeeProcs, Chart, Grids,

ComCtrls;

type

TForm0 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Panel1: TPanel;

GroupBox1: TGroupBox;

PaintBox1: TPaintBox;

Button2: TButton;

Button3: TButton;

Panel2: TPanel;

Panel3: TPanel;

Image1: TImage;

Button5: TButton;

Button1: TButton;

Panel4: TPanel;

Chart1: TChart;

Series1: TBarSeries;

Button10: TButton;

Chart2: TChart;

Series2: TFastLineSeries;

Button6: TButton;

Panel5: TPanel;

Label1: TLabel;

Label2: TLabel;

Panel7: TPanel;

Edit3: TEdit;

Button7: TButton;

Button8: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Panel6: TPanel;

Button4: TButton;

Button9: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure PaintBox1Paint(Sender: TObject);

procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const N=50;

const Pol=25;

const R=120;

const K=3;

const St=40;

var

Form0: TForm0;

down:boolean;

nachpic,pic:Tbitmap;

sch,kkproba,count:integer;

polmas:array[1..R,1..Pol] of integer;

polmassred:array[1..K,1..Pol] of real;

picmas:array [1..R,1..N,1..N] of integer;

evbin:array[1..R,1..2*N] of integer;

gilsred:array[1..K,1..2*N] of integer;

sred_s:array[1..K,1..N,1..N] of integer;

f1,f2,f3,temp,vrf:text;

center_x, center_y:array[0..1] of integer;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm0.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

down:=true;

nachpic.Canvas.MoveTo(X,Y);

paintbox1paint(nil);

end;

procedure TForm0.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

down:=false;

end;

procedure TForm0.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Draw(0,0,nachpic);

end;

procedure TForm0.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if down then

begin

nachpic.Canvas.LineTo(X,Y);

paintbox1paint(nil);

end;

end;

procedure TForm0.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm0.Button2Click(Sender: TObject);

var i,j,vspi,vspj:integer;

begin

vspi:=nachpic.Width;

vspj:=nachpic.Height;

for i:=1 to vspi do

for j:=1 to vspj do

nachpic.Canvas.Pixels[i,j]:=clWhite;

paintbox1paint(nil);

end;

procedure TForm0.Button3Click(Sender: TObject);

var i,j:integer;

color:boolean;

begin

color:=false;

pic:=Tbitmap.Create;

pic.Width:=N;

pic.Height:=N;

for i:=1 to N do

for j:=1 to N do

begin

if nachpic.Canvas.Pixels[i,j] <> clWhite then color:=true;

end;

if color then

begin

for i:=1 to N do

for j:=1 to N do

begin

pic.Canvas.Pixels[i,j]:=nachpic.Canvas.Pixels[i,j];

end;

sch:=sch+1;

pic.SaveToFile('image\'+inttostr(sch)+'.bmp');

end;

end;

procedure TForm0.FormCreate(Sender: TObject);

begin

nachpic:=Tbitmap.Create;

nachpic.Width:=PaintBox1.Width;

nachpic.Height:=PaintBox1.Height;

nachpic.Canvas.Pen.Color:=clBlack;

nachpic.Canvas.Pen.Width:=5;

down:=false;

sch:=0;

end;

procedure TForm0.Button5Click(Sender: TObject);

var ii,i,j,kk:integer;

begin

for kk:=1 to R do

begin

for ii:=1 to 2*N do evbin[kk,ii]:=0;

for i:=1 to N do

begin

for j:=1 to N do

begin

if i>1 then

begin

if (round((256-picmas[kk,i-1,j])-(256-picmas[kk,i,j])) > 0) then

begin

evbin[kk,j]:=evbin[kk,j]+(round((256-picmas[kk,i-1,j])-(256-picmas[kk,i,j])));

evbin[kk,50+j]:=evbin[kk,50+j]+0;

end

else if (round((256-picmas[kk,i-1,j])-(256-picmas[kk,i,j])) < 0) then

begin

evbin[kk,50+j]:=evbin[kk,50+j]+(round((256-picmas[kk,i-1,j])-(256-picmas[kk,i,j])));

evbin[kk,j]:=evbin[kk,j]+0;

end

else if (round((256-picmas[kk,i-1,j])-(256-picmas[kk,i,j])) = 0) then

begin

evbin[kk,j]:=evbin[kk,j]+0;

evbin[kk,50+j]:=evbin[kk,j+50]+0;

end;

end;

end;

end;

end;

for j:=1 to 2*N do

begin

gilsred[1,j]:=0;

gilsred[2,j]:=0;

gilsred[3,j]:=0;

end;

for kk:=1 to St do

for j:=1 to 2*N do

begin

gilsred[1,j]:=gilsred[1,j]+evbin[kk,j];

gilsred[2,j]:=gilsred[2,j]+evbin[40+kk,j];

gilsred[3,j]:=gilsred[3,j]+evbin[80+kk,j];

end;

for j:=1 to 2*N do

begin

gilsred[1,j]:=round(gilsred[1,j]/St);

gilsred[2,j]:=round(gilsred[2,j]/St);

gilsred[3,j]:=round(gilsred[3,j]/St);

end;

end;

{-----------Center search ...--------------------}

procedure search_center();

var i,j:byte;

vspS:integer;

begin

for i:=1 to N-1 do

begin

vspS:=0;

for j:=1 to N-1 do vspS:=vspS+(256-picmas[kkproba,i,j]);

if vspS > 0 then

begin

center_x[0]:=i;

break;

end;

end;

for i:=N-1 downto 1 do

begin

vspS:=0;

for j:=1 to N-1 do vspS:=vspS+(256-picmas[kkproba,i,j]);

if vspS > 0 then

begin

center_x[1]:=i;

break;

end;

end;

for j:=1 to N-1 do

begin

vspS:=0;

for i:=1 to N-1 do vspS:=vspS+(256-picmas[kkproba,i,j]);

if vspS > 0 then

begin

center_y[0]:=j;

break;

end;

end;

for j:=N-1 downto 1 do

begin

vspS:=0;

for i:=1 to N-1 do vspS:=vspS+(256-picmas[kkproba,i,j]);

if vspS > 0 then

begin

center_y[1]:=j;

break;

end;

end;

end;

{------------------------------------------------}

procedure TForm0.Button10Click(Sender: TObject);

var vspSum:integer;

i, j,kk,radius,radto:integer;

snosX,snosY,count0:integer;

vspmas:array[1..Pol] of integer;

begin

count:=0;

label3.Caption:='?';

Edit3.Text:=inttostr(count);

{----------------------------------------}

for kkproba:=1 to R do

begin

radto:=0;

snosX:=0;

snosY:=0;

for i:=1 to Pol do

begin

polmas[kkproba,i]:=0;

vspmas[i]:=0;

end;

search_center();

radto:=round((sqrt((center_y[1]-center_y[0])*(center_y[1]-center_y[0])+

(center_x[1]-center_x[0])*(center_x[1]-center_x[0])))/2);

snosX:=center_y[0]+round((abs(center_y[1]-center_y[0]))/2);

snosY:=center_x[0]+round((abs(center_x[1]-center_x[0]))/2);

for radius:=1 to Pol do

begin

vspSum:=0;

for i:=1 to N-1 do

for j:=1 to N-1 do

begin

if((i-snosX)*(i-snosX)+(j-snosY)*(j-snosY) <= (radius*radius))

then vspSum:=vspSum+(256-picmas[kkproba,i,j]);

end;

polmas[kkproba,radius]:=round(vspSum/(Pi*radius*radius));

end;

{

count0:=0;

for i:=Pol downto 1 do

if polmas[kkproba,i] = 0 then count0:=count0+1 else break;

if count0 > 1 then

begin

for i:=1 to round(count0/2) do vspmas[i]:=0;

for i:=1 to Pol-count0 do vspmas[i+round(count0/2)]:=polmas[kkproba,i];

for i:=1 to Pol do polmas[kkproba,i]:=vspmas[i];

end;}

end;

Assignfile(temp,'temp.txt');

rewrite(temp);

for j:=1 to R do

begin

for i:=1 to Pol do

begin

write(temp,' ',polmas[j,i]);

end;

writeln(temp);

writeln(temp);

writeln(temp);

end;

closefile(temp);

{----------------------------------------}

for i:=1 to Pol do

begin

polmassred[1,i]:=0;

polmassred[2,i]:=0;

polmassred[3,i]:=0;

end;

for kk:=1 to 40 do

for i:=1 to Pol do

begin

polmassred[1,i]:=polmassred[1,i]+polmas[kk,i];

end;

for kk:=41 to 80 do

for i:=1 to Pol do

begin

polmassred[2,i]:=polmassred[2,i]+polmas[kk,i];

end;

for kk:=81 to 120 do

for i:=1 to Pol do

begin

polmassred[3,i]:=polmassred[3,i]+polmas[kk,i];

end;

for i:=1 to Pol do

begin

polmassred[1,i]:=polmassred[1,i]/St;

polmassred[2,i]:=polmassred[2,i]/St;

polmassred[3,i]:=polmassred[3,i]/St;

end;

end;

procedure TForm0.Button6Click(Sender: TObject);

var i,j,kk:integer;

bit:Tbitmap;

begin

bit:=Tbitmap.Create;

bit.Width:=N;

bit.Height:=N;

for kk:=1 to 40 do

begin

bit.LoadFromFile('base\'+inttostr(kk)+'.bmp');

for i:=1 to N do

for j:=1 to N do

begin

picmas[kk,i,j]:=0;

picmas[kk,i,j]:=round(bit.Canvas.Pixels[i,j]/65536);

end;

end;

for kk:=41 to 80 do

begin

bit.LoadFromFile('base\'+inttostr(kk)+'.bmp');

for i:=1 to N do

for j:=1 to N do

begin

picmas[kk,i,j]:=0;

picmas[kk,i,j]:=round(bit.Canvas.Pixels[i,j]/65536);

end;

end;

for kk:=81 to 120 do

begin

bit.LoadFromFile('base\'+inttostr(kk)+'.bmp');

for i:=1 to N do

for j:=1 to N do

begin

picmas[kk,i,j]:=0;

picmas[kk,i,j]:=round(bit.Canvas.Pixels[i,j]/65536);

end;

end;

bit.Free;

//--------------------------------------------------------------

for kk:=1 to St do

begin

for i:=1 to N do

for j:=1 to N do

begin

sred_s[1,i,j]:=sred_s[1,i,j]+picmas[kk,i,j];

sred_s[2,i,j]:=sred_s[2,i,j]+picmas[40+kk,i,j];

sred_s[3,i,j]:=sred_s[3,i,j]+picmas[80+kk,i,j];

end;

end;

for i:=1 to N do

for j:=1 to N do

begin

sred_s[1,i,j]:=round(sred_s[1,i,j]/St);

sred_s[2,i,j]:=round(sred_s[2,i,j]/St);

sred_s[3,i,j]:=round(sred_s[3,i,j]/St);

end;

//--------------------------------------------------------------

end;

procedure TForm0.Button8Click(Sender: TObject);

var i,j:byte;

begin

if count < 120 then count:=count+1;

image1.Picture.LoadFromFile('base\'+inttostr(count)+'.bmp');

Edit3.Text:=inttostr(count);

if (count <= 40) then label3.Caption:='A'

else if ((count > 40) and (count <= 80)) then label3.Caption:='Б'

else if (count > 80) then label3.Caption:='B';

Series2.Clear;

Series1.Clear;

for i:=1 to Pol do Series2.Add(polmas[count,i]);

for j:=1 to 2*N do Series1.Add(round(evbin[count,j]/5));

end;

procedure TForm0.Button7Click(Sender: TObject);

var i,j:byte;

begin

if count > 1 then count:=count-1 else count:=1;

image1.Picture.LoadFromFile('base\'+inttostr(count)+'.bmp');

Edit3.Text:=inttostr(count);

if (count <= 40) then label3.Caption:='A'

else if ((count > 40) and (count <= 80)) then label3.Caption:='Б'

else if (count > 80) then label3.Caption:='B';

Series2.Clear;

Series1.Clear;

for i:=1 to Pol do Series2.Add(polmas[count,i]);

for j:=1 to 2*N do Series1.Add(round(evbin[count,j]/5));

end;

procedure TForm0.Button4Click(Sender: TObject);

var i,j:byte;

begin

Series2.Clear;

Series1.Clear;

for i:=1 to N do

for j:=1 to N do

image1.Canvas.Pixels[i,j]:=256-sred_s[1,i,j];

for i:=1 to Pol do Series2.Add(polmassred[1,i]);

for j:=1 to 2*N do Series1.Add(gilsred[1,j]);

end;

procedure TForm0.Button9Click(Sender: TObject);

var i,j:byte;

begin

Series2.Clear;

Series1.Clear;

for i:=1 to N do

for j:=1 to N do

image1.Canvas.Pixels[i,j]:=256-sred_s[2,i,j];

for i:=1 to Pol do Series2.Add(polmassred[2,i]);

for j:=1 to 2*N do Series1.Add(gilsred[2,j]);

end;

procedure TForm0.Button11Click(Sender: TObject);

var i,j:byte;

begin

Series2.Clear;

Series1.Clear;

for i:=1 to N do

for j:=1 to N do

image1.Canvas.Pixels[i,j]:=256-sred_s[3,i,j];

for i:=1 to Pol do Series2.Add(polmassred[3,i]);

for j:=1 to 2*N do Series1.Add(gilsred[3,j]);

end;

procedure TForm0.Button12Click(Sender: TObject);

begin

form0.Visible:=false;

form1.Show;

end;

procedure TForm0.Button13Click(Sender: TObject);

begin

form0.Visible:=false;

form11.Show;

end; end.