:

.

Net1. OutSignals[1..NumberOf(OutSignals,Net1)],

Net2[1..K].OutSignals[1..NumberOf(OutSignals,Net2)],

Net3.OutSignals[1..NumberOf(OutSignals,Net3)]

Parameters[1..NumberOf(Parameters,Net1)+

K*NumberOf(Parameters,Net2)+NumberOf(Parameters,Net3)] <=>

Net1. Parameters[1..NumberOf(Parameters,Net1)],

Net2[1..K].Parameters[1..NumberOf(Parameters,Net2)],

Net3.Parameters[1..NumberOf(Parameters,Net3)]

Cascad B

Contents Net1, Net2[K], Net3

InSignals[1..NumberOf(InSignals,Net1)] <=>

Net1. InSignals[1..NumberOf(InSignals,Net1)]

OutSignals[1..NumberOf(OutSignals,Net3)] <=>

Net3.OutSignals[1..NumberOf(OutSignals,Net3)]

Parameters[1..NumberOf(Parameters,Net1)+

K*NumberOf(Parameters,Net2)+NumberOf(Parameters,Net3)] <=>

Net1. Parameters[1..NumberOf(Parameters,Net1)],

Net2[1..K].Parameters[1..NumberOf(Parameters,Net2)],

Net[3].Parameters[1..NumberOf(Parameters,Net3)]

Net1. OutSignals[1..NumberOf(OutSignals,Net1)],

Net2[1..K].OutSignals[1..NumberOf(OutSignals,Net2)] <=>

Net2[1..K].InSignals[1..NumberOf(InSignals,Net2)],

Net3.InSignals[1..NumberOf(InSignals,Net3)]

Loop C N

Contents Net1, Net2[K], Net3

InSignals[1..NumberOf(InSignals,Net1)] <=>

Net1. InSignals[1..NumberOf(InSignals,Net1)]

OutSignals[1..NumberOf(OutSignals,Net3)] <=>

Net3.OutSignals[1..NumberOf(OutSignals,Net3)]

Parameters[1..NumberOf(Parameters,Net1)+

K*NumberOf(Parameters,Net2)+NumberOf(Parameters,Net3)] <=>

Net1. Parameters[1..NumberOf(Parameters,Net1)],

Net2[1..K].Parameters[1..NumberOf(Parameters,Net2)],

Net[3].Parameters[1..NumberOf(Parameters,Net3)]

Net1. OutSignals[1..NumberOf(OutSignals,Net1)],

Net2[1..K].OutSignals[1..NumberOf(OutSignals,Net2)] <=>

Net2[1..K].InSignals[1..NumberOf(InSignals,Net2)],

Net3.InSignals[1..NumberOf(InSignals,Net3)]

Net3.OutSignals[1..NumberOf(OutSignals,Net3)] <=>

Net1. InSignals[1..NumberOf(InSignals,Net1)]

, , . , . , : , , , , , , . , . BLay . .

{ }

Layer BLay( N,M : Long)

Contents Branch(N)[M] { M }

Connections

{ , .. }

OutSignals[1..N * M] <=> Branch[+:1..M].OutSignals[1..N]

End { }

, Elements, . " ".

NetBibl SubNets Used Elements;

{ , Elements}

{ N }

Cascad NSigm(aSum : Block; N : Long; Char : Real)

{ N }

Contents aSum(N), S_NotTrain(Char)

End

{ N }

Layer Lay1(aSum : Block; N,M : Long; Char : Real)

Contents Sigm: NSigm(aSum,N,Char)[M] { M }

End

{ }

Layer BLay( N,M : Long)

Contents Branch(N)[M] { M }

Connections

{ , .. }

OutSignals[1..N * M] <=> Branch[+:1..M].OutSignals[1..N]

End

{ N }

Cascad FullLay(aSum : Block; N,M : Long; Char : Real)

Contents BLay1(M,N), Lay1(aSum,N,M,Char) { }

End { }

{ ,

Input ;

Output ( );

Hidden H>0 ;

N

}

Cascad Net1(aSum : Block; Char : Real; Input, Output, Hidden, H, N : Long)

{ . }

Contents

In: FullLay(aSum,N,Input,Char),

Hid1: FullLay(aSum,Input,Hidden,Char)

Hid2: FullLay(aSum,Hidden,Hidden,Char)[H-1] { H=1}

Out: FullLay(aSum,Hidden,Output,Char)

End

{ M M . }

Loop Circle(aSum : Block; Char : Real; M, K : Long) K

Contents

FullLay(aSum,M,M,Char)

ParamDef DefaultType -1 1

End

{ N .

Cascad Net2: (aSum : Block; Char : Real; M, K, N : Long)

Contents

In: FullLay(aSum,N,M,Char), { }

Net: Circle(aSum,Char,M,K) { }

End

Cascad Hopf(N : Long) { N }

Contents Sum(N),Sign_Easy { }

End

{ }

Layer HLay(N : Long)

Contents Hop: Hopf(N)[N] { N }

End

{ N }

Until Hopfield(N : Long) InSignals=OutSignals

Contents BLay(N,N),HLay(N) { }

End

End NetLib

4.4.              

, . . ? , , ( ) ( ), ( ) ( ). . . ( ) . , . , .

4.4.1.                      

:

1.     .

: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76



2012
.