AT Murray wrote:
[...]
> Frank J. Russo (FJR) has granted exciting new capabilities
> to his AI Mind in Win32Forth, especially in the area of
> communications across the Web.
>
> My role in the Forth AI collaboration is to make sure
> that these programs can actually think logically and
> not produce bad output based on spurious associations.
> Therefore I feel that I need to keep developing the
> original Mind.Forth as the "test lab" for the AI parts.
>
> Meanwhile, on Fri.6.APR.2007 I completely rewrote
> http://mind.sourceforge.net/forth.html to track the
> State of the Art in Forth AI and to present a
> To Do List of things for Forth AI coders to work on.
>
> Will the gamble pay off? Will any Forth coders take
> up the challenge of participating in creating Forth AI?
> Only time will tell.

OK downloaded your Mind version and looked at it.
There is no reason to use an old version of Win32Forth.
It will also go wrong when you use the newest Win32Forth.

Just start alife and press ENTER

Then things are goning wrong in nounAct.

Here is the output from the debugger:

code IF --> empty
code I --> [1] 191
code lit 0x4 --> [2] 191 4
does PSI{ --> [1] 4460352
code @ --> [1] 5
code lit 0x5 --> [2] 5 5
code = --> [1] -1
code IF --> empty
code lit 0x28 --> [1] 40 \ Here you put 40 on the stack
code - --> empty \ Then you made a subtraction without a second
parameter on so the stack is EMPTY!
code I --> [1] 191
const 1 --> [2] 191 1
does PSI{ --> [1] 4448064
code +! --> \ As a result +! gets an adres and no
parameter. So you get your error

In your source:

\ 3apr2007 If the active concept is not the selection-winner...
I 0 psi{ @ psi @ = NOT IF \ If concept "psi" is not found...
I 4 psi{ @ 5 = IF \ If the concept is an also-ran noun
40 - I 1 psi{ +! \ 3apr2007 Damp non-winning also-rans. <<< Here it
goes wrong
I 1 psi{ @ < 0 IF \ 3apr2007 If psi1 is below zero
0 I 1 psi{ ! \ If activation is below zero.
THEN \ 3apr2007 End of test for subzero activation
THEN \ 3apr2007 End of test to detect also-ran nouns.
THEN \ 3apr2007 End of test for non-psi concepts.

The main question is: What must be the number or parameter where 40 must be
subtraced from.

Jos

==
4ePost: 2,546 bytes in mail. Elapsed time to buffer: .000112 sec.