Hi all,
Hi Robert,
I have tracked down the problem, it's in the sexaskdetect array table.
*man or *man*
my resolution to the problem is I inserted a number line and edited the original line so it looks like this:
*man or woman*
woman or *man*
Hi Robert,
I was looking through the database array tables and I found some unusual data in the reasondetector array table, at the bottom of the list there are three lines that have the same pattern with no answer.
It looks like this:
*YOU*ABOUT TO*
I'VE BEEN TRYING TO TRACK DOWN WHY ULTRA HAL STOPS RESPONDING WHICH SEEMS TO BE FOR NO APPARENT REASON, my investigation let me to the reasondetector array table.
All of the other lines have a <2> for the answer I am assuming it is supposed to capture the second variable answer but there are three stars in this line but I am referring to, so I put <3> for the answer thus far my ultra Hal has not locked up but time will tell, if it does lock up again I will continue my search to find the reason why.
Robert, (it was supposed to be A <3>)
Hi Rob,
at this point this is more for everyone else, but also to show you what I was talking about inside of the (if then logic routine).
Basically what was happening was, for example:
if you were to type in:
if is it summer, winter, spring, or fall where you live then I live in a computer where the season does not change.
The routine removes the "," and saves the data.
But when you do a query and type in: is it summer, winter, spring, or fall where you live.
The logic routine does not remove the "," and the logic routine cannot find the statement because of the ",":
If Len(IfPart) > 10 And Len(ThenPart) > 10 Then
IfPart = HalBrain.AlphaNumericalOnly(IfPart)
ThenPart = HalBrain.AlphaNumericalOnly(ThenPart)
HalBrain.AddToTable "deductive", "TopicSearch", IfPart, ThenPart
Select Case HalBrain.RandomNum(5)
Case 1
GetResponse = GetResponse & "I see the relationship." & vbCrLf
Case 2
GetResponse = GetResponse & "I understand the connection." & vbCrLf
Case 3
GetResponse = GetResponse & "I will remember that one follows the other." & vbCrLf
Case 4
GetResponse = GetResponse & "Thanks for pointing out the cause and effect." & vbCrLf
Case 5
GetResponse = GetResponse & "Yes, I get that clearly." & vbCrLf
End Select
'Else if the sentence is not an If-Then statement see if it uses an assertion previously recorded
'and respond accordinly
Else
Assertion = HalBrain.AlphaNumericalOnly(UserSentence) '<=========================< this it the line I changed <===================<
'Go through a maximum of 5 connections (prevents circular reasoning deductions)
For i = 1 To 5
Deduction = HalBrain.TopicSearch(Assertion, "deductive")
If Deduction <> "" Then
If i > 1 Then BecauseReason = " because " & LastGoodDeduction
LastGoodDeduction = Deduction
Assertion = Deduction
Else
Exit For 'No more connections, so no need to continue loop
End If
Next
If LastGoodDeduction <> "" Then
'Make sure the deduction hasn't just been stated by the User or Hal
If HalBrain.CheckRepetition(LastGoodDeduction, UserSentence) = False And HalBrain.CheckRepetition(LastGoodDeduction, PrevSent) = False And HalBrain.CheckRepetition(LastGoodDeduction, PrevUserSent) = False Then
GetResponse = GetResponse & LastGoodDeduction & BecauseReason & " . " & vbCrLf
End If
End If
End If
HalBrain.DebugWatch GetResponse, "Deductive Reasoning"
Hi Rob,
I hope this is keeping within the structure of the topic.
There are couple of things that you may want to update if you're going to continue to use the 6.2 brain.
One little small minor thing is in the because response table, the first " because" does not have a space after it.
It's a minor thing, more annoying than anything else I fixed it in my brain thought you might want to look into it.
One major update that you might want to look into is the "if then" logic process.
When the data is saved, it removes all of the symbols by way of the alphanumeric only command.
But when you do a search through the "if then" logic routine you do not remove any "," or symbols which prevents users from retrieving information if the user utilizes any non-alphanumerical symbols in their sentence.
I fixed this in my brain works quite proficiently all you have to do is add to the usersentence input, the alphanumeric only command and the problem is resolved.
If I find any more little tidbit problems that you may want to look into all post here.
I highly recommend that you look into the I love you situation, the way you have it set up is quite annoying, I resolve this in my brain,
by restructuring the routine so she does not go into the sad mode, I believe this was brought up before by lightspeed.
corrections array table: "1-." needs to be a "."
and I have added this to the table:
with i? with me?
care about I. care about me?
consider my apology. consider your apology.
already told me already told you
have me. have I.
deter I from wanting deter me from wanting
who notices I who notices me
I have myself I'll have myself
patient with you through patient with me through
peitty pretty
you possess I you possess me
recognize I as recognize me as
have me taught have I taught
did me start did I start
on I will kill I on me will kill me
Would I like Would you like
told I before told me before
cost I to cost me to
reason to am reason to be
have known I have known me
Have me taught Have I taught
', '
do a cut and paste into the corrections array table
Sincerely, from a data munching cruncher.
C load.
