;;; note that the order of the forms do not matter in this file ;;; things can refer to things not yet defined ;;; also the specification in connections if very loose, ;;; where it can be (name weight) or just name. in the latter ;;; case a weight of 1.0 is assumed. (list-inputs left right middle) (list-outputs leftmotor rightmotor) (define-neuron rightmotor :sum c2 n1 (halter -2)) (define-neuron leftmotor :sum c2 n2 (halter -2)) (define-const c1 1) (define-const c2 1) (define-neuron n1 :threshold (c1 -0.5) left (right -1)) (define-neuron n2 :threshold (c1 -0.5) (right 1) (left -1)) (define-neuron halter :threshold (c1 -1) (middle -1))