A program in Lisp to demonstrate working of an artificial neuron
What is artificial intelligence?
It is the science and engineering of making intelligent machines, especially intelligent computer programs. It is related to the similar task of using computers to understand human intelligence, but AI does not have to confine itself to methods that are biologically observable.
Intelligence is the computational part of the ability to achieve goals in the world. Varying kinds and degrees of intelligence occur in people, many animals and some machines.[Source: http://www-formal.stanford.edu/jmc/whatisai/node1.html]
Enter an input vector X and weight vector W. Calculate weighted sum XW. Transform this using signal or activation functions like logistic, threshold, hyperbolic-tangent, linear, exponential, sigmoid etc. and display the output.
(defun nnFunction (actSignlist wghtList c n)
(setq wghtSum 0)
(setq resFunc 0)
(when (equal (first actSignlist) nil) (return))
(setq wghtSum ( + wghtSum ( * (first actSignlist) (first
(setq actSignlist (rest actSignlist))
(setq wghtList (rest wghtList))
(print “Hyperbolic Tangent Signal Function”)
(print ( tan ( * 10 wghtSum)))
(print “Threshold Linear Signal Function”)
(if (<= 1 (* c wghtSum)) (print 1) (print 0))
(print “Linear Signal Function”)
(print (* c wghtSum))
(print “Logistical Signal Function”)
(print ( / 1 ( + 1 (exp( – 0 ( * c wghtSum))))))
(print “Threshold Exponential Signal Function”)
(print ( min 1 (exp (* c wghtSum))))