Fuzzy logic using newLISP

[Fanda]

Just in case you want to play with fuzzy logic, take a peek:

http://www.intricatevisions.com/index.cgi?page=nlfuzzy">http://www.intricatevisions.com/index.cgi?page=nlfuzzy



You will find a fuzzy logic library and an example of water temperature regulation.



Fanda

[rickyboy]

Neat!  I don't know when I'll ever get to check it out in earnest (I only now just scanned the code), but thanks for showing it.  It looks like a good size effort.  You never disappoint, Fanda!

[Fanda]

I added some charts - now it's colorful and scientific ;-)



Fanda

[didi]

This looks very interesting ,  13 pages of code , a lot of work to program !!and some work  to understand it  .

Now i'll go and get my old fuzzy-books ;-)

[newdep]

Great Job Fanda !!! very nice!

[hilti]

Just in case you want to play with fuzzy logic, take a peek:

http://www.intricatevisions.com/index.cgi?page=nlfuzzy">http://www.intricatevisions.com/index.cgi?page=nlfuzzy



You will find a fuzzy logic library and an example of water temperature regulation.



Fanda

Hi!



Does anyone have a copy of this library? The website seems to be down and I'm interested in some fuzzy logic examples in newLISP.



Thanks in advance.

Marc

[cormullion]

Some of the files are still available, at http://web.archive.org/web/20070907010731/http://www.intricatevisions.com/index.cgi?page=nlfuzzy">//http://web.archive.org/web/20070907010731/http://www.intricatevisions.com/index.cgi?page=nlfuzzy. The test function isn't there, but could probably be re-built. It's something like:

Code Select Expand

(define (print-test-fn )
  (println (args 0))
  (dolist (a (rest (args)))
     (dolist (a1 a)
         (print " " (pop a1))
           (while a1
            (print "  "(first a1) " : result " (eval (pop a1)) ", expected " (pop a1) "n")))))

although that goes wrong towards the end.



But hurry, before the wayback machine loses its way back, or before Lutz obsoletes any more keywords... :)