Программа 26.1

100 'НЕЙРОННАЯ СЕТЬ (ДЛЯ СТРУКТУРНОЙ СХЕМЫ НА РИС. 26.5)
110
120 DIM X1[15]   'хранит входные значения
130 DIM X2[4]    'хранит значения выхода скрытого слоя
140 DIM X3[2]    'хранит значения выхода выходного слоя
150 DIM WH[4,15] 'хранит веса скрытого слоя
160 DIM WO[2,4]  'хранит веса выходного слоя
170 '
180 GOSUB XXXX   'некоторая подпрограмма для загрузки X1[ ] из входных данных
190 GOSUB XXXX   'некоторая подпрограмма для загрузки весов WH[ , ] и W0[ , ]
200 '
210 '            ' Найти значения узлов X2[ ]
220 FOR J% = 1 TO 4 'цикл по каждому узлу скрытого слоя
230 ACC = 0          'очистить аккумуляторную переменную ACC
240 FOR I% = 1 TO 15 'взвешивать и суммировать каждый входной узел
250 ACC = ACC + X1[I%] * WH[J%,I%]
260 NEXT I%
270 X2[J%] = 1 / (1 + EXP(-ACC)) 'пропустить суммируемое значение через сигмоид
280 NEXT J%
290 '
300 '               'НАЙТИ ЗНАЧЕНИЯ ВЫХОДНЫХ УЗЛОВ X3[ ]
310 FOR J% = 1 TO 2 'цикл по каждому узлу выходного слоя
320 ACC = 0         'очистить АККУМУЛЯТОРНУЮ ПЕРЕМЕННУЮ ACC
330 FOR I% = 1 TO 4 'взвешивать и суммировать каждый узел скрытого слоя
340 ACC = ACC + X2[I%] * WO[J%,I%]
350 NEXT I%
360 X3[J%] = 1 / (1 + EXP(-ACC)) 'пропустить суммируемые значения через сигмоид
370 NEXT J%
380 '
390 END