:

.

OutSignals M { }

{ M }

Parameters NumberOf(Parameters, Ne)

Connections

{ }

InSignals[1..N]<=> Br.InSignals[1..N]

{ - }

OutSignals[1..M] <=> Ne.OutSignals[1..M]

{ }

Parameters[1..NumberOf(Parameters, Ne)] <=>

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

{ }

Br.OutSignals[1..N * M] <=> Ne.InSignals[1..N * M]

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)

InSignals N { N}

OutSignals Output { }

{ }

Parameters NumberOf(Parameters, In)+ NumberOf(Parameters, Hid1)+

(H-1) * NumberOf(Parameters, Hid2)+ NumberOf(Parameters, Out)

Connections

{ }

InSignals[1..N]<=> In.InSignals[1..N]

{ - }

OutSignals[1..Output] <=> Out.OutSignals[1.. Output]

{ }

Parameters[1..NumberOf(Parameters,In)] <=>

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

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

NumberOf(Parameters, Hid1)] <=>

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

Parameters[NumberOf(Parameters,In)+ NumberOf(Parameters, Hid1)]+1

..NumberOf(Parameters,In)+NumberOf(Parameters, Hid1)+

(H-1) * NumberOf(Parameters, Hid2)] <=>

Hid2[1..H-1].Parameters[1.. NumberOf(Parameters, Hid2)]

Parameters[NumberOf(Parameters,In)+ NumberOf(Parameters, Hid1)]+

(H-1) * NumberOf(Parameters, Hid2)+1..NumberOf(Parameters,In)+

NumberOf(Parameters,Hid1)+(H-1)*NumberOf(Parameters,Hid2)+

NumberOf(Parameters, Out)] <=>

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

{ }

{ }

In.OutSignals[1..Input] <=> Hid1.InSignals[1..Input]

{ }

Hid1.OutSignals[1..Hidden] <=> Hid2[1].InSignals[1..Hidden]

{ . H=1 }

Hid2[1..H-2].OutSignals[1.. Hidden] <=> Hid2[2..H-1].InSignals[1.. Hidden]

{ }

Hid2[H-1].OutSignals[1.. Hidden] <=> Out.InSignals[1.. Hidden]

End

{ M M }

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

Contents

Net: FullLay(aSum,M,M,Char)

InSignals M { N}

OutSignals M { }

{ FullLay}

Parameters NumberOf(Parameters, Net)

Connections

InSignals[1..M]<=> Net.InSignals[1..M] { }

{ }

OutSignals[1..M] <=> Net.OutSignals[1.. M]

{ }

Parameters[1..NumberOf(Parameters,Net)] <=>

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

Net.OutSignals[1..M] <=> Net.InSignals[1..M] { }

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) { }

InSignals N { N}

OutSignals M { }

{ }

Parameters NumberOf(Parameters, In)+ NumberOf(Parameters, Net)

ParamDef DefaultType -1 1

Connections

InSignals[1..N]<=> In.InSignals[1..N] { }

{ - }

OutSignals[1..M] <=> Net.OutSignals[1.. M]

{ }

Parameters[1..NumberOf(Parameters, In)] <=>

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

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

NumberOf(Parameters,In)+NumberOf(Parameters, Net)]

<=> Net.Parameters[1.. NumberOf(Parameters, Net)]

{ }

In.OutSignals[1..M] <=> Net.InSignals[1..M] { }

Net.OutSignals[1..M] <=> Net.InSignals[1..M] { }

End

{ N }

Cascad Hopf(N : Long)

Contents Sum(N),Sign_Easy { }

InSignals N { N}

OutSignals 1 { 1}

Parameters NumberOf(Parameters,Sum(N)) { N}

Connections

InSignals[1..N]<=> Sum.InSignals[1..N] { }

{ }

OutSignals <=> Sign_Easy.OutSignals

{ }

Parameters[1..NumberOf(Parameters, Sum(N))] <=>

Sum.Parameters[1.. NumberOf(Parameters, Sum(N))]

{ }

Sum.OutSignals <=> Sign_Easy.InSignals

End

{ }

Layer HLay(N : Long)

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

InSignals N * N {N N }

: 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
.