% --------------------------------
% FCM plugin for Eye -- Jos De Roo
% --------------------------------

'<http://eulersharp.sourceforge.net/2003/03swap/fl-rules#pi>'([A,B],C) :-
	within_span(1), (bb_get(fnet,done) -> true
	; (forall('<http://eulersharp.sourceforge.net/2003/03swap/fl-rules#mu>'([X,Y],Z),((fm(X) -> true; assert(fm(X))), assert(pi(X,Y,Z)))),
	forall('<http://eulersharp.sourceforge.net/2003/03swap/fl-rules#sigma>'([X,Y],_),((fs(X) -> true; assert(fs(X))), (fs(Y) -> true; assert(fs(Y))))),
	repeat(20), fm(X), fs(Y), findall(I,('<http://eulersharp.sourceforge.net/2003/03swap/fl-rules#sigma>'([P,Y],W), pi(X,P,M), I is (2*M-1)*(2*W-1)),L),
	(L = [] -> true; sum(L,S), Z is 1/(1+exp(-S)), retractall(pi(X,Y,_)), assert(pi(X,Y,Z))), fail; bb_put(fnet,done))), pi(A,B,C).