Fuzzy logic using newLISP

For the Compleat Fan
Locked
Fanda
Posts: 253
Joined: Tue Aug 02, 2005 6:40 am
Contact:

Fuzzy logic using newLISP

Post by Fanda »

Just in case you want to play with fuzzy logic, take a peek:
http://www.intricatevisions.com/index.cgi?page=nlfuzzy

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

Fanda

rickyboy
Posts: 607
Joined: Fri Apr 08, 2005 7:13 pm
Location: Front Royal, Virginia

Post by 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!
(λx. x x) (λx. x x)

Fanda
Posts: 253
Joined: Tue Aug 02, 2005 6:40 am
Contact:

Post by Fanda »

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

Fanda

didi
Posts: 166
Joined: Fri May 04, 2007 8:24 pm
Location: Germany

Post by 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
Posts: 2038
Joined: Mon Feb 23, 2004 7:40 pm
Location: Netherlands

Post by newdep »

Great Job Fanda !!! very nice!
-- (define? (Cornflakes))

hilti
Posts: 140
Joined: Sun Apr 19, 2009 10:09 pm
Location: Hannover, Germany
Contact:

Re: Fuzzy logic using newLISP

Post by hilti »

Fanda wrote:Just in case you want to play with fuzzy logic, take a peek:
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
--()o Dragonfly web framework for newLISP
http://dragonfly.apptruck.de

cormullion
Posts: 2038
Joined: Tue Nov 29, 2005 8:28 pm
Location: latiitude 50N longitude 3W
Contact:

Re: Fuzzy logic using newLISP

Post by cormullion »

Some of the files are still available, at http://web.archive.org/web/200709070107 ... ge=nlfuzzy. The test function isn't there, but could probably be re-built. It's something like:

Code: Select all

(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... :)

Locked