Υλοποίηση

subroutine ann(p,nodes,x,per)

implicit double precision (a-h,o-z)

dimension p(3*nodes)

per = 0

do 1 i=1,nodes

arg = p(3*i-1)*x + p(3*i)

per = per + p(3*i-2)/(1.+exp(-arg))

1 continue

end

Νευρωνικό δίκτυο

p (input) οι παράμετροι

nodes (input) οι κόμβοι

x (input)

per (output) το δίκτυο

subroutine gann(p,nodes,x,gper)

implicit double precision (a-h,o-z)

dimension p(3*nodes),gper(3*nodes)

do 1 k=1,3*nodes,3

arg = p(k+1)*x+p(k+2)

sig = 1./(1+exp(-arg))

gper(k)= sig

gper(k+2)= p(k)*sig*(1-sig)

gper(k+1)= x*gper(k+2)

1 continue

end

Η κλίση του δικτύου.

p (input) οι παράμετροι

nodes (input) οι κόμβοι

x (input)

gper (output) η κλίση

Ο κώδικας για τον Εσσιανό πίνακα δεν έχει υλοποιηθεί και αφήνεται σαν άσκηση για τον αναγνώστη.