ConJoin Module of First Working AGI

ConJoin module of the

First Working AGI Mind in JavaScript

MindForth for robots -- ghost.pl for webservers


1. Diagram of the ConJoin Mind-Module


   /^^^^^^^^^\ AGI responds to "What do you think" /^^^^^^^^^\
  /   EYE     \     | | |   _________________     /   EAR     \
 /             \    | | |  /    Volition     \   /  __________ \
|               |   | | |  \_________________/  |  / MindBoot \ |
|   _______     |   | | |          |            | /  start-up  \|
|  /image  \    |   | | |   _______V_________   | \ vocabulary /|
| / percept \---|-----+ |  /                 \  |  \__________/ |
| \ engram  /   |  a| | | (      EnThink      ) |               |
|  \_______/    |  b|c| |  \_________________/  |               |
|               |  s|o|f|     |       |    |    |               |
|   visual      |  t|n|i| ____V_____  |    |    |               |
|               |  r|c|b|(Indicative)-|----|----| "I think..."  |
|   memory      |  a|e|e| \________/  |    |    |               |
|               |  c|p|r|          ___V_   |    |               |
|   channel     |  t|t|s|         /     \  |    |               |
|               |   | | |        (ConJoin)-|----|-"that..."     |
|   _______     |   | | |         \_____/  |    |               |
|  /fresh  \    |   |_|_|            ______V_   |               |
| / image   \   |  /     \          /        \  | "God"         |
| \ engram  /---|--\ Psy /         (Indicative)-| "does not"    |
|  \_______/    |   \___/           \________/  | "play dice"   |


2. Purpose


3. Algorithm


4. Code of ConJoin() from ghost.pl First Working AGI in Perl

sub ConJoin() {  # http://ai.neocities.org/ConJoin.html
  $ictus = 0;  # 2017-11-29: arbitrary threshold selected by AI Mind Maintainer
# $ictus = 0;  # 2017-12-28: let $ictus-level be set in SpreadAct() module. 
  if ($qv1psi == 0)  {  # 2017-12-28: if no pre-selected subject...
    for (my $i=$t; $i>$midway; $i--) {  # 2017-11-29: search for $ictus
      my @k=split(',',$psy[$i]);  # 2017-11-29: examine @psy array;
      if ($k[3] > $ictus && $k[6]==5 && $k[13] > 0) {  # 2017-11-29: high-act noun?
        $qv1psi = $k[1];  # 2017-11-29: adopt noun as subject for sentence;
        $ictus = $k[3];   # 2017-11-29: replace lower $ictus with any higher $ictus.
      }  # 2017-11-29: End of search for a high $ictus activation-level.
    }  # 2017-11-29: End of search loop from $t back to $midway. 
  }  # 2017-12-28: end of test for a pre-selected subject $qv1psi
  print "\nConJoin: ictus= $ictus conj= $conj qv1psi= $qv1psi \n"; # 2017-12-28: TEST
# if ($verbpsi==850 || $verbpsi==840) {  # 2017-11-29: 850=KNOW or 840=THINK
  if ($qv2psi==840 || $qv2psi==850 || $verbpsi==840 || $verbpsi==850) {  # 2017-11-29
    $conj = 310; # 2017-12-28: 310=THAT
  } else { # 2017-11-28: 
    $conj = 302;  # 2017-11-28: 302=AND
  }  # 2017-11-29: end of else-clause
  for (my $i=$t; $i>$midway; $i--) {  # 2017-11-28: search for $conj
    my @k=split(',',$psy[$i]);  # 2017-11-28: examine @psy array;
    if ($k[1] == $conj) {  # 2017-11-28: if conjunction is found...
      $audjuste = $k[14];  # 2017-11-28: conjunction recall-vector;
      $aud = $k[14];  # 2017-11-28: $conj recall-vector for Speech()
    }  # 2017-11-28: End of search for $conj conjunction;
  }  # 2017-11-28: End of search loop from $t back to $midway.
  Speech();  # 2017-08-31: speak the word starting at the $aud time. 
  if ($ictus > 8 && $qv1psi > 0) { Indicative() }  # 2017-11-29: output extra idea.
  $ictus = 0;  # 2017-11-29: reset for safety.
}  # ConJoin() returns to EnThink() or EnVerbPhrase() module.


5. Troubleshooting and Robotic Psychosurgery

5.1.a. Symptom: (Something goes wrong.)
5.1.b. Solution: (AI Mind Maintainer devises solution.)


6. Variables for First Working Artificial General Intelligence

$conj -- a dual-purpose variable serving both as an identifier of which particular conjunction is under consideration for use by the ConJoin module, and a control-flag for the decision of whether to call the Indicative module more than once.


7. Future Development


8. Resources


Please see

http://mind.sourceforge.net/conjoin.html


9. AiTree of First Working AGI Mind-Modules


Return to top; or to
javascript subreddit for AI Mind discussion;
Forth subreddit for MindForth discussion;
Perl subreddit for ghost.pl AI Mind Maintainers.