рдбрдореА рдХреЗ рд▓рд┐рдП рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХред рд╢реБрд░реБрдЖрдд



рдРрд╕рд╛ рд╣реБрдЖ рдХрд┐ рд╡рд┐рд╢реНрд╡рд╡рд┐рджреНрдпрд╛рд▓рдп рдореЗрдВ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХрд╛ рд╡рд┐рд╖рдп рдореЗрд░реА рд╡рд┐рд╢реЗрд╖рддрд╛ рд╕реЗ рд╕рдлрд▓рддрд╛рдкреВрд░реНрд╡рдХ рдкрд╛рд░рд┐рдд рд╣реЛ рдЧрдпрд╛, рдореЗрд░реЗ рд╣рд┐рд╕реНрд╕реЗ рдореЗрдВ рднрд╛рд░реА рд░реБрдЪрд┐ рдХреЗ рдмрд╛рд╡рдЬреВрджред рдЖрддреНрдо-рд╢рд┐рдХреНрд╖рд╛ рдХреЗ рдкреНрд░рдпрд╛рд╕реЛрдВ рдХреЛ рдХрдИ рдмрд╛рд░ рдЕрдЬреНрдЮрд╛рдирддрд╛рд╡рд╢ рднреМрдВрдХрдиреЗ рд╕реЗ рд╡рд┐рдЬреНрдЮрд╛рди рдХреА рдЧрдврд╝ рдХреА рдЕрд╡рд┐рдирд╛рд╢реА рджреАрд╡рд╛рд░реЛрдВ рдХреЗ рдЦрд┐рд▓рд╛рдл "рдЕрд╕реНрдкрд╖реНрдЯ рд░реВрдк рдореЗрдВ" рдПрдХ рддрд╕реНрд╡реАрд░ рдХреЗ рд╕рд╛рде "рд╢рдмреНрджреЛрдВ" рдФрд░ рд╡рд┐рд╢реНрд╡рд╡рд┐рджреНрдпрд╛рд▓рдп рдХреА рдкрд╛рдареНрдпрдкреБрд╕реНрддрдХреЛрдВ рдХреА рд╕реВрдЦреА рднрд╛рд╖рд╛ рдХреЗ рднреНрд░рдорд┐рдд рд╕реНрдкрд╖реНрдЯреАрдХрд░рдг рдХреЗ рдХрд╛рд░рдг рддреЛрдбрд╝ рджрд┐рдпрд╛ рдЧрдпрд╛ред

рдЗрд╕ рд▓реЗрдЦ рдореЗрдВ (рд▓реЗрдЦреЛрдВ рдХреА рдПрдХ рд╢реНрд░реГрдВрдЦрд▓рд╛?), рдореИрдВ рдПрдХ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рд╡рд┐рд╖рдп рдХреЛ рдПрдХ рдЕрдЬреНрдЮрд╛рдд рд╡реНрдпрдХреНрддрд┐ рдХреЗ рджреГрд╖реНрдЯрд┐рдХреЛрдг рд╕реЗ, рд╕рд░рд▓ рднрд╛рд╖рд╛ рдореЗрдВ, рд╕рд░рд▓ рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реБрдП, рдЕрд▓рдорд╛рд░рд┐рдпреЛрдВ рдореЗрдВ рд╕рдм рдХреБрдЫ рд╡реНрдпрд╡рд╕реНрдерд┐рдд рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реВрдВрдЧрд╛, рди рдХрд┐ "рдиреНрдпреВрд░реЙрдиреНрд╕ рдХреА рдПрдХ рд╕рд░рдгреА рдПрдХ рдкреНрд░рд╕рд┐рджреНрдз, рд╕рд┐рджреНрдз рдкреИрдЯрд░реНрди рдХреЗ рдЕрдиреБрд╕рд╛рд░ рдХрд╛рдо рдХрд░ рд░рд╣реЗ рдПрдХ рдЕрд╡рдзрд╛рд░рдгрд╛рддреНрдордХ рд░реВрдк рдмрдирд╛рддрд╛ рд╣реИ"ред

рд░реБрдЪрд┐ рдХреГрдкрдпрд╛ рдмрд┐рд▓реНрд▓реА рдХреЗ рдиреАрдЪреЗред

рд▓рдХреНрд╖реНрдпреЛрдВ

рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреНрдпрд╛ рд╣реИрдВ?
рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдПрдХ рд╕реАрдЦрдиреЗ рдХреА рдкреНрд░рдгрд╛рд▓реА рд╣реИред рдпрд╣ рди рдХреЗрд╡рд▓ рджрд┐рдП рдЧрдП рдПрд▓реНрдЧреЛрд░рд┐рдердо рдФрд░ рд╕реВрддреНрд░реЛрдВ рдХреЗ рдЕрдиреБрд╕рд╛рд░ рдХрд╛рд░реНрдп рдХрд░рддрд╛ рд╣реИ, рдмрд▓реНрдХрд┐ рдкрд┐рдЫрд▓реЗ рдЕрдиреБрднрд╡ рдХреЗ рдЖрдзрд╛рд░ рдкрд░ рднреА рд╣реЛрддрд╛ рд╣реИред рдПрдХ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдмрдЪреНрдЪрд╛ рдЬреЛ рд╣рд░ рдмрд╛рд░ рдПрдХ рдкрд╣реЗрд▓реА рдбрд╛рд▓рддрд╛ рд╣реИ, рдЬрд┐рд╕рд╕реЗ рдХрдо рдЧрд▓рддрд┐рдпрд╛рдБ рд╣реЛрддреА рд╣реИрдВред

рдФрд░, рдЬреИрд╕рд╛ рдХрд┐ рдпрд╣ рдлреИрд╢рдиреЗрдмрд▓ рд▓реЗрдЦрдХреЛрдВ рд╕реЗ рд▓рд┐рдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдкреНрд░рдерд╛рдЧрдд рд╣реИ, рдПрдХ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдореЗрдВ рдиреНрдпреВрд░реЙрдиреНрд╕ рд╣реЛрддреЗ рд╣реИрдВред
рдпрд╣рд╛рдВ рдЖрдкрдХреЛ рдПрдХ рд╕реНрдЯреЙрдк рдмрдирд╛рдиреЗ рдФрд░ рдЗрд╕рдХрд╛ рдкрддрд╛ рд▓рдЧрд╛рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред


рдорд╛рди рд▓реЗрддреЗ рд╣реИрдВ рдХрд┐ рдПрдХ рдиреНрдпреВрд░реЙрди рд╕рд┐рд░реНрдл рдПрдХ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдХрд╛рд▓реНрдкрдирд┐рдХ рдмреНрд▓реИрдХ рдмреЙрдХреНрд╕ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рдЗрдирд▓реЗрдЯреНрд╕ рдХрд╛ рдПрдХ рдЧреБрдЪреНрдЫрд╛ рдФрд░ рдПрдХ рдЖрдЙрдЯрд▓реЗрдЯ рд╣реИред
рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, рдЗрдирдХрдорд┐рдВрдЧ рдФрд░ рдЖрдЙрдЯрдЧреЛрдЗрдВрдЧ рджреЛрдиреЛрдВ рдЬрд╛рдирдХрд╛рд░реА рд╕рдорд╛рди рд╣реЛ рд╕рдХрддреА рд╣реИрдВ (рд╕рдмрд╕реЗ рдЕрдзрд┐рдХ рдмрд╛рд░ рдРрд╕рд╛ рд╣реЛрдЧрд╛)ред

рдЖрдЙрдЯрдкреБрдЯ рд╕рд┐рдЧреНрдирд▓ рдЗрдирдкреБрдЯ рдХреЗ рдвреЗрд░ рд╕реЗ рдХреИрд╕реЗ рдмрдирддрд╛ рд╣реИ - рдиреНрдпреВрд░реЙрди рдХреЗ рдЖрдВрддрд░рд┐рдХ рдПрд▓реНрдЧреЛрд░рд┐рдереНрдо рдХреЛ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рддрд╛ рд╣реИред

рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╣рдо рдПрдХ рдЫреЛрдЯрд╛ рд╕рд╛ рдкреНрд░реЛрдЧреНрд░рд╛рдо рд▓рд┐рдЦреЗрдВрдЧреЗ рдЬреЛ рдмрд┐рдЯрдореИрдк рдХреЗ рдЪрд┐рддреНрд░реЛрдВ рдкрд░ рд╕рд░рд▓ рднрд╛рд╖рд╛, рд░реВрд╕реА рднрд╛рд╖рд╛ рдХреЗ рдЕрдХреНрд╖рд░реЛрдВ рдХреЛ рдкрд╣рдЪрд╛рдиреЗрдВрдЧреЗред
рд╣рдо рд╕рд╣рдордд рд╣реИрдВ рдХрд┐ рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдЕрд╡рд╕реНрдерд╛ рдореЗрдВ, рд╣рдорд╛рд░реА рдкреНрд░рдгрд╛рд▓реА рдореЗрдВ рдПрдХ "рдЦрд╛рд▓реА" рдореЗрдореЛрд░реА рд╣реЛрдЧреА, рдЕрд░реНрдерд╛рддред рдПрдХ рдкреНрд░рдХрд╛рд░ рдХрд╛ рдирд╡рдЬрд╛рдд рдорд╕реНрддрд┐рд╖реНрдХ, рдЬреЛ рдпреБрджреНрдз рдХреЗ рд▓рд┐рдП рддреИрдпрд╛рд░ рд╣реИред
рдЗрд╕реЗ рд╕рд╣реА рдврдВрдЧ рд╕реЗ рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдореЗрдВ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдкрд░ рд╕рдордп рдмрд┐рддрд╛рдирд╛ рд╣реЛрдЧрд╛ред

рдЯрдорд╛рдЯрд░ рдХреЛ рдЙрдбрд╝рддреЗ рд╣реБрдП, рдореИрдВрдиреЗ рдХрд╣рд╛ рдХрд┐ рд╣рдо рдбреЗрд▓реНрдлреА рдореЗрдВ рд▓рд┐рдЦреЗрдВрдЧреЗ (рдЗрд╕ рд▓реЗрдЦ рдХреЛ рд▓рд┐рдЦрдиреЗ рдХреЗ рд╕рдордп)ред рдпрджрд┐ рдЖрд╡рд╢реНрдпрдХ рд╣реЛ, рддреЛ рдореИрдВ рдЙрджрд╛рд╣рд░рдг рдХреЛ рдЕрдиреНрдп рднрд╛рд╖рд╛рдУрдВ рдореЗрдВ рдЕрдиреБрд╡рд╛рдж рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░реВрдВрдЧрд╛ред

рдореИрдВ рдЖрдкрдХреЛ рдХреЛрдб рдХреА рдЧреБрдгрд╡рддреНрддрд╛ рдХреЛ рд╣рд▓реНрдХреЗ рдореЗрдВ рд▓реЗрдиреЗ рдХреЗ рд▓рд┐рдП рднреА рдХрд╣рддрд╛ рд╣реВрдВ - рдХрд╛рд░реНрдпрдХреНрд░рдо рдПрдХ рдШрдВрдЯреЗ рдореЗрдВ рд▓рд┐рдЦрд╛ рдЧрдпрд╛ рдерд╛, рдмрд╕ рд╡рд┐рд╖рдп рд╕реЗ рдирд┐рдкрдЯрдиреЗ рдХреЗ рд▓рд┐рдП, рдЧрдВрднреАрд░ рдХрд╛рд░реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рдРрд╕рд╛ рдХреЛрдб рд╢рд╛рдпрдж рд╣реА рд▓рд╛рдЧреВ рд╣реЛред

рддреЛ, рдХрд╛рд░реНрдп рдХреЗ рдЖрдзрд╛рд░ рдкрд░ - рдХрд┐рддрдиреЗ рдирд┐рдХрд╛рд╕ рд╡рд┐рдХрд▓реНрдк рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ? рдпрд╣ рд╕рд╣реА рд╣реИ, рдЬрд┐рддрдиреЗ рдЕрдХреНрд╖рд░ рд╣рдо рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░ рдкрд╛рдПрдВрдЧреЗред рд╡рд░реНрдгрдорд╛рд▓рд╛ рдореЗрдВ рдЙрдирдореЗрдВ рд╕реЗ рдХреЗрд╡рд▓ 33 рд╣реИрдВ, рдФрд░ рд╣рдо рд╡рд╣рд╛рдВ рд░реБрдХреЗрдВрдЧреЗред

рдЕрдЧрд▓рд╛, рд╣рдо рдЗрдирдкреБрдЯ рдбреЗрдЯрд╛ рдкрд░ рдирд┐рд░реНрдгрдп рд▓реЗрддреЗ рд╣реИрдВред рдмрд╣реБрдд рдЕрдзрд┐рдХ рдкрд░реЗрд╢рд╛рди рди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдПрдХ рдмрд┐рдЯрдореИрдк рдЫрд╡рд┐ рдХреЗ рд░реВрдк рдореЗрдВ рдЗрдирдкреБрдЯ рдХреЛ 30x30 рдмрд┐рдЯрдореИрдк рднреЗрдЬреЗрдВрдЧреЗ:


рдирддреАрдЬрддрди, рдЖрдкрдХреЛ 33 рдиреНрдпреВрд░реЙрдиреНрд╕ рдмрдирд╛рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдореЗрдВ 30x30 = 900 рдЗрдирдкреБрдЯ рд╣реЛрдВрдЧреЗред
рдЖрдЗрдП рд╣рдорд╛рд░реЗ рдиреНрдпреВрд░реЙрди рдХреЗ рд▓рд┐рдП рдПрдХ рдХреНрд▓рд╛рд╕ рдмрдирд╛рдПрдВ:

type Neuron = class name: string; //    тАУ ,     input: array[0..29,0..29] of integer; //    3030 output:integer; //    ,   memory:array[0..29,0..29] of integer; //         end; 


рдЕрдХреНрд╖рд░реЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЗ рдЕрдиреБрд╕рд╛рд░, рдиреНрдпреВрд░реЙрдиреНрд╕ рдХреА рдПрдХ рд╕рд░рдгреА рдмрдирд╛рдПрдВ:

 For i:=0 to 32 do begin neuro_web[i]:=Neuron.Create; neuro_web[i].output:=0; //    neuro_web[i].name:=chr(Ord('A')+i); //      end; 


рдЕрдм рд╕рд╡рд╛рд▓ рдпрд╣ рд╣реИ рдХрд┐ рдЬрдм рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХрд╛рдо рдирд╣реАрдВ рдХрд░реЗрдЧрд╛ рддреЛ рд╣рдо рдиреНрдпреВрд░рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдХреА "рдореЗрдореЛрд░реА" рдХреЛ рдХрд╣рд╛рдВ рд╕реНрдЯреЛрд░ рдХрд░реЗрдВрдЧреЗ?
рдЖрдИрдПрдирдЖрдИ рдпрд╛ рдИрд╢реНрд╡рд░, рднрдЧрд╡рд╛рди рдХреЛ рдордирд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдирд╣реАрдВ, рдбреЗрдЯрд╛рдмреЗрд╕ рдореЗрдВ, рдореИрдВрдиреЗ рдЙрдиреНрд╣реЗрдВ рдЙрд╕реА 30x30 рд░реЗрдЦрд╛рдкреБрдВрдЬ рдЫрд╡рд┐рдпреЛрдВ рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рдиреЗ рдХрд╛ рдирд┐рд░реНрдгрдп рд▓рд┐рдпрд╛ред
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рд╡рд┐рднрд┐рдиреНрди рдлреЛрдВрдЯ рдореЗрдВ рдХрд╛рд░реНрдпрдХреНрд░рдо рдЪрд▓рд╛рдиреЗ рдХреЗ рдмрд╛рдж рдиреНрдпреВрд░реЙрди "рдХреЗ" рдХреА рд╕реНрдореГрддрд┐:



рдЬреИрд╕рд╛ рдХрд┐ рдЖрдк рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ, рд╕рдмрд╕реЗ рд╕рдВрддреГрдкреНрдд рдХреНрд╖реЗрддреНрд░ рд╕рдмрд╕реЗ рдЖрдо рдкрд┐рдХреНрд╕рд▓ рдХреЗ рдЕрдиреБрд░реВрдк рд╣реИрдВред
рдЬрдм рдпрд╣ рдмрдирд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рддреЛ рд╣рдо "рдореЗрдореЛрд░реА" рдХреЛ рдкреНрд░рддреНрдпреЗрдХ рдиреНрдпреВрд░реЙрди рдореЗрдВ рд▓реЛрдб рдХрд░реЗрдВрдЧреЗ:
 p:=TBitmap.Create; p.LoadFromFile(ExtractFilePath(Application.ExeName)+'\res\'+ neuro_web[i].name+'.bmp') 


рдЕрдкреНрд░рд╢рд┐рдХреНрд╖рд┐рдд рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ, рдкреНрд░рддреНрдпреЗрдХ рдиреНрдпреВрд░реЙрди рдХреА рд╕реНрдореГрддрд┐ 30x30 рдПрдХ рд╕рдлреЗрдж рд╕реНрдкреЙрдЯ рд╣реЛрдЧреАред

рдиреНрдпреВрд░реЙрди рдХреЛ рдирд┐рдореНрдирд╛рдиреБрд╕рд╛рд░ рдкрд╣рдЪрд╛рдирд╛ рдЬрд╛рдПрдЧрд╛:

- 1 рдкрд╣рд▓рд╛ рдкрд┐рдХреНрд╕реЗрд▓ рд▓реЗрдВ
- рдЗрд╕рдХреА рддреБрд▓рдирд╛ рдореЗрдореЛрд░реА рдореЗрдВ 1 рдореА рдкрд┐рдХреНрд╕реЗрд▓ рд╕реЗ рдХрд░реЗрдВ (рдореВрд▓реНрдп 0..255 рд╣реИ)
- рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд╕реАрдорд╛ рдХреЗ рд╕рд╛рде рдЕрдВрддрд░ рдХреА рддреБрд▓рдирд╛ рдХрд░реЗрдВ
- рдпрджрд┐ рдЕрдВрддрд░ рд╕реАрдорд╛ рд╕реЗ рдХрдо рд╣реИ, рддреЛ рд╣рдо рдорд╛рдирддреЗ рд╣реИрдВ рдХрд┐ рдЗрд╕ рдмрд┐рдВрджреБ рдкрд░ рдЕрдХреНрд╖рд░ рд╕реНрдореГрддрд┐ рдореЗрдВ рдПрдХ рдХреЗ рд╕рдорд╛рди рд╣реИ, рдиреНрдпреВрд░реЙрди рдХреЗ рд╡рдЬрди рдореЗрдВ +1 рдЬреЛрдбрд╝реЗрдВред

рдФрд░ рдЗрд╕рд▓рд┐рдП рд╕рднреА рдкрд┐рдХреНрд╕реЗрд▓ рдкрд░ред

рдПрдХ рдиреНрдпреВрд░реЙрди рдХрд╛ рд╡рдЬрди рдПрдХ рдирд┐рд╢реНрдЪрд┐рдд рд╕рдВрдЦреНрдпрд╛ (рд╕рд┐рджреНрдзрд╛рдВрдд рдореЗрдВ, 900 рддрдХ) рд╣реИ, рдЬреЛ рд╕реНрдореГрддрд┐ рдореЗрдВ рд╕рдВрдЧреНрд░рд╣реАрдд рдХреЗ рд╕рд╛рде рд╕рдВрд╕рд╛рдзрд┐рдд рдЬрд╛рдирдХрд╛рд░реА рдХреА рд╕рдорд╛рдирддрд╛ рдХреА рдбрд┐рдЧреНрд░реА рд╕реЗ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд╣реЛрддрд╛ рд╣реИред
рдорд╛рдиреНрдпрддрд╛ рдХреЗ рдЕрдВрдд рдореЗрдВ, рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рдиреНрдпреВрд░реЙрдиреНрд╕ рдХрд╛ рдПрдХ рд╕реЗрдЯ рд╣реЛрдЧрд╛, рдЬрд┐рдирдореЗрдВ рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдХрд╛ рдорд╛рдирдирд╛ тАЛтАЛрд╣реИ рдХрд┐ рдпрд╣ рдХреБрдЫ рдкреНрд░рддрд┐рд╢рдд рддрдХ рд╕рд╣реА рд╣реИред рдпреЗ рдкреНрд░рддрд┐рд╢рдд рдиреНрдпреВрд░реЙрди рдХрд╛ рд╡рдЬрди рд╣реИрдВред рдЕрдзрд┐рдХ рд╡рдЬрди, рдЕрдзрд┐рдХ рд╕рдВрднрд╛рд╡рдирд╛ рд╣реИ рдХрд┐ рдпрд╣ рд╡рд┐рд╢реЗрд╖ рдиреНрдпреВрд░реЙрди рд╕рд╣реА рд╣реИред

рдЕрдм рд╣рдо рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдПрдХ рдордирдорд╛рдиреА рдЫрд╡рд┐ рдЦрд┐рд▓рд╛рдПрдВрдЧреЗ рдФрд░ рдЗрд╕рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдкреНрд░рддреНрдпреЗрдХ рдиреНрдпреВрд░реЙрди рдХреЛ рдЪрд▓рд╛рдПрдВрдЧреЗ:

 for x:=0 to 29 do for y:=0 to 29 do begin n:=neuro_web[i].memory[x,y]; m:=neuro_web[i].input[x,y]; if ((abs(mn)<120)) then //    if m<250 then neuro_web[i].weight:=neuro_web[i].weight+1; //  ,     ,        if m<>0 then begin if m<250 then n:=round((n+(n+m)/2)/2); neuro_web[i].memory[x,y]:=n; end else if n<>0 then if m<250 then n:=round((n+(n+m)/2)/2); neuro_web[i].memory[x,y]:=n; end; 


рдЬреИрд╕реЗ рд╣реА рдЕрдВрддрд┐рдо рдиреНрдпреВрд░реЙрди рдХреЗ рд▓рд┐рдП рдЪрдХреНрд░ рд╕рдорд╛рдкреНрдд рд╣реЛ рдЬрд╛рддрд╛ рд╣реИ, рд╣рдо рдЕрдзрд┐рдХ рд╡рдЬрди рд╡рд╛рд▓реЗ рд╕рднреА рдХреЛ рдЪреБрдиреЗрдВрдЧреЗ:

 if neuro_web[i].weight>max then begin max:=neuro_web[i].weight; max_n:=i; end; 


рдпрд╣ рдЗрд╕ max_n рдорд╛рди рдХреЗ рд╕рд╛рде рд╣реИ рдХрд┐ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╣рдореЗрдВ рдмрддрд╛рдПрдЧрд╛ рдХрд┐, рдЗрд╕рдХреА рд░рд╛рдп рдореЗрдВ, рд╣рдордиреЗ рдЙрд╕реЗ рдЙрд╕рдХреЗ рдкрд╛рд╕ рдЦрд┐рд╕рдХрд╛ рджрд┐рдпрд╛ред
рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рдпрд╣ рд╣рдореЗрд╢рд╛ рд╕рдЪ рдирд╣реАрдВ рд╣реЛрдЧрд╛, рдЗрд╕рд▓рд┐рдП рдЖрдкрдХреЛ рдПрдХ рд▓рд░реНрдирд┐рдВрдЧ рдПрд▓реНрдЧреЛрд░рд┐рджрдо рдмрдирд╛рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред

 s:=InputBox('Enter the letter', ' ,    '+neuro_web[max_n].name, neuro_web[max_n].name); for i:=0 to 32 do begin //   if neuro_web[i].name=s then begin //     for x:=0 to 29 do begin for y:=0 to 29 do begin p.Canvas.Pixels[x,y]:=RGB(neuro_web[i].memory[x,y],neuro_web[i].memory[x,y], neuro_web[i].memory[x,y]); //     end; end; p.SaveToFile(ExtractFilePath(Application.ExeName)+'\res\'+ neuro_web[i].name+'.bmp'); 


рдореЗрдореЛрд░реА рдЕрдкрдбреЗрдЯ рд╕реНрд╡рдпрдВ рдЗрд╕ рддрд░рд╣ рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛:

 n:=round(n+(n+m)/2); 


рдпрд╛рдиреА рдпрджрд┐ рдпрд╣ рдмрд┐рдВрджреБ рдиреНрдпреВрд░реЙрди рдХреА рд╕реНрдореГрддрд┐ рдореЗрдВ рдЕрдиреБрдкрд╕реНрдерд┐рдд рд╣реИ, рд▓реЗрдХрд┐рди рд╢рд┐рдХреНрд╖рдХ рдХрд╛ рдХрд╣рдирд╛ рд╣реИ рдХрд┐ рдпрд╣ рдЗрд╕ рдкрддреНрд░ рдореЗрдВ рд╣реИ, рддреЛ рд╣рдо рдЗрд╕реЗ рдпрд╛рдж рдХрд░рддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдкреВрд░реА рддрд░рд╣ рд╕реЗ рдирд╣реАрдВ, рдмрд▓реНрдХрд┐ рдХреЗрд╡рд▓ рдЖрдзрд╛ред рдЖрдЧреЗ рдХреЗ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рд╕рд╛рде, рдЗрд╕ рдкрд╛рда рдХреЗ рдкреНрд░рднрд╛рд╡ рдХреА рдбрд┐рдЧреНрд░реА рдмрдврд╝ рдЬрд╛рдПрдЧреАред

рдЬреА рдЕрдХреНрд╖рд░ рдХреЗ рд▓рд┐рдП рдХреБрдЫ рдкреБрдирд░рд╛рд╡реГрддреНрддрд┐рдпрд╛рдБ рдЗрд╕ рдкреНрд░рдХрд╛рд░ рд╣реИрдВ:



рдЗрд╕ рдкрд░ рд╣рдорд╛рд░рд╛ рдХрд╛рд░реНрдпрдХреНрд░рдо рддреИрдпрд╛рд░ рд╣реИред

рдЯреНрд░реЗрдирд┐рдВрдЧ

рдЪрд▓реЛ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рд╢реБрд░реВ рдХрд░рддреЗ рд╣реИрдВред
рд╣рдо рдЕрдХреНрд╖рд░реЛрдВ рдХреА рдЫрд╡рд┐рдпреЛрдВ рдХреЛ рдЦреЛрд▓рддреЗ рд╣реИрдВ рдФрд░ рдзреИрд░реНрдп рд╕реЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреА рддреНрд░реБрдЯрд┐рдпреЛрдВ рдХреА рдУрд░ рдЗрд╢рд╛рд░рд╛ рдХрд░рддреЗ рд╣реИрдВ:



рдереЛрдбрд╝реА рджреЗрд░ рдХреЗ рдмрд╛рдж, рдХрд╛рд░реНрдпрдХреНрд░рдо рдЙрди рдЕрдХреНрд╖рд░реЛрдВ рдХреЛ рднреА рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рдирд╛ рд╢реБрд░реВ рдХрд░ рджреЗрдЧрд╛ рдЬреЛ рдЗрд╕рд╕реЗ рдкрд╣рд▓реЗ рдкрд░рд┐рдЪрд┐рдд рдирд╣реАрдВ рд╣реИрдВ:



рдирд┐рд╖реНрдХрд░реНрд╖

рдХрд╛рд░реНрдпрдХреНрд░рдо рдПрдХ рдирд┐рд░рдВрддрд░ рджреЛрд╖ рд╣реИ - рд╣рдорд╛рд░рд╛ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдмрд╣реБрдд рдмреЗрд╡рдХреВрдл рд╣реИ, рдпрд╣ рдкреНрд░рд╢рд┐рдХреНрд╖рдг рдХреЗ рджреМрд░рд╛рди рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреА рддреНрд░реБрдЯрд┐рдпреЛрдВ рд╕реЗ рд╕реБрд░рдХреНрд╖рд┐рдд рдирд╣реАрдВ рд╣реИ, рдФрд░ рдорд╛рдиреНрдпрддрд╛ рдПрд▓реНрдЧреЛрд░рд┐рджрдо рдПрдХ рдЫрдбрд╝реА рдХреЗ рд░реВрдк рдореЗрдВ рд╕рд░рд▓ рд╣реИрдВред
рд▓реЗрдХрд┐рди рдпрд╣ рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рдХрд╛рдордХрд╛рдЬ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдмреБрдирд┐рдпрд╛рджреА рдЬреНрдЮрд╛рди рджреЗрддрд╛ рд╣реИред

рдпрджрд┐ рдпрд╣ рд▓реЗрдЦ рдЖрджрд░рдгреАрдп рд╣рдм рдХреЗ рд▓рд┐рдП рджрд┐рд▓рдЪрд╕реНрдкреА рдХрд╛ рд╣реИ, рддреЛ рдореИрдВ рдЪрдХреНрд░ рдЬрд╛рд░реА рд░рдЦреВрдВрдЧрд╛, рдзреАрд░реЗ-рдзреАрд░реЗ рд╕рд┐рд╕реНрдЯрдо рдХреЛ рдЬрдЯрд┐рд▓ рдХрд░рдирд╛, рдЕрддрд┐рд░рд┐рдХреНрдд рдХрдиреЗрдХреНрд╢рди рдФрд░ рднрд╛рд░ рдХрд╛ рдкрд░рд┐рдЪрдп рджреЗрдирд╛, рдХреБрдЫ рд▓реЛрдХрдкреНрд░рд┐рдп рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдЖрд░реНрдХрд┐рдЯреЗрдХреНрдЪрд░ рдЖрджрд┐ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд░реЗрдВред

рдЖрдк рдпрд╣рд╛рдВ рд╕реНрд░реЛрдд рдХреЗ рд╕рд╛рде рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреЛ рдбрд╛рдЙрдирд▓реЛрдб рдХрд░рдХреЗ рд╣рдорд╛рд░реА рддрд╛рдЬрд╛ рдЬрдиреНрдореА рдмреБрджреНрдзрд┐ рдХрд╛ рдордЬрд╛рдХ рдЙрдбрд╝рд╛ рд╕рдХрддреЗ рд╣реИрдВ ред

рд╕рд┐рдо рдХреЗ рд▓рд┐рдП, рдореИрдВ рдЭреБрдХрддрд╛ рд╣реВрдВ, рдкрдврд╝рдиреЗ рдХреЗ рд▓рд┐рдП рдзрдиреНрдпрд╡рд╛рджред

UPD: рд╣рдореЗрдВ рдПрдХ рдиреНрдпреВрд░рд▓ рдиреЗрдЯрд╡рд░реНрдХ рдХреЗ рд▓рд┐рдП рдПрдХ рдмреНрд▓реИрдВрдХ рдорд┐рд▓рд╛ рд╣реИред рдЕрдм рддрдХ, рдпрд╣ рдЕрднреА рддрдХ рдЙрд╕рдХрд╛ рдирд╣реАрдВ рд╣реИ, рд▓реЗрдХрд┐рди рдЕрдЧрд▓реЗ рд▓реЗрдЦ рдореЗрдВ рд╣рдо рдЗрд╕реЗ рд╕реЗ рдмрд╛рд╣рд░ рдПрдХ рдкреВрд░реНрдг рддрдВрддреНрд░рд┐рдХрд╛ рдиреЗрдЯрд╡рд░реНрдХ рдмрдирд╛рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХрд░реЗрдВрдЧреЗред
рдЯрд┐рдкреНрдкрдгреА рдХреЗ рд▓рд┐рдП Shultc рдХреЛ рдзрдиреНрдпрд╡рд╛рджред

Source: https://habr.com/ru/post/In143129/


All Articles