Skip to content

/mindforth

Permalink
Browse files

Edited wiki page SecondHalf through web user interface.

  • Loading branch information...
mentifex
mentifex committed Nov 12, 2012
1 parent 8c0a9c2 commit 2d0611a1fb57a0c6b39c6eb4eb4a68e284ebd9d0
Unified Split
Showing with 28 additions and 23 deletions.
  1. +28 −23 wiki/SecondHalf.wiki
View file
51 wiki/SecondHalf.wiki
@@ -82,8 +82,8 @@ psi=794; num=1; pre=0; seq=0; enx=794; EnVocab(); InNativate();
// WHY -- for machine reasoning logic; 5apr2010
t=450; pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=451; pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=452; pho="Y"; beg=0; ctu=0; audpsi=370; AudMem(); // 25oct2012
nen=370; mfn=0; dba=0; fex=370; pos=2; fin=370; aud=450;
t=452; pho="Y"; beg=0; ctu=0; audpsi=370; AudMem(); // 11nov2012
nen=370; mfn=0; dba=0; fex=370; pos=3; fin=370; aud=450;
psi=370; num=0; pre=0; seq=0; enx=370; EnVocab(); InNativate();

// WITH -- preposition for EnPrep module
@@ -103,12 +103,12 @@ t=463;pho="N"; beg=0; ctu=0; audpsi=515; AudMem(); // 25oct2012
nen=515; mfn=2; dba=0; fex=515; pos=5; fin=515; aud=459;
psi=515; num=1; pre=0; seq=0; enx=515; EnVocab(); InNativate();

// WOMEN -- for special treatment in NounPhrase as irregular
// WOMEN -- irregular plural for retrieval by parameters
t=465;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=466;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=467;pho="M"; beg=0; ctu=1; audpsi=0; AudMem();
t=468;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=469;pho="N"; beg=0; ctu=0; audpsi=515; AudMem(); // 25oct2012
t=469;pho="N"; beg=0; ctu=0; audpsi=515; AudMem(); // 11nov2012
nen=515; mfn=2; dba=0; fex=515; pos=5; fin=515; aud=465;
psi=515; num=2; pre=0; seq=0; enx=515; EnVocab(); InNativate();

@@ -122,8 +122,8 @@ psi=432; num=0; pre=0; seq=0; enx=432; EnVocab(); InNativate();
// YOU -- nominative singular of personal pronoun; 25oct2012
t=475; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=476; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=477; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=707; mfn=0; dba=1; fex=707; pos=7; fin=707; aud=475;
t=477; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 11nov2012
nen=707; mfn=0; dba=1; fex=707; pos=7; fin=701; aud=475;
psi=707; num=1; pre=0; seq=0; enx=707; EnVocab(); InNativate();

// YOURS -- genitive singular of personal pronoun; 25oct2012
@@ -290,9 +290,9 @@ psi=701;num=1;pre=0;tqv=573;seq=895;enx=701;EnVocab();InNativate();
t=570;pho="H"; beg=1; ctu=1; audpsi=0; AudMem();
t=571;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=572;pho="L"; beg=0; ctu=1; audpsi=895; AudMem();
t=573;pho="P"; beg=0; ctu=0; audpsi=895; AudMem(); // 25oct2012
t=573;pho="P"; beg=0; ctu=0; audpsi=895; AudMem(); // 11nov2012
nen=895; mfn=0; dba=1; fex=895; pos=8; fin=895; aud=570;
psi=895;num=1;pre=701;tqv=578;seq=72;enx=895;EnVocab();InNativate();
psi=895;num=1;pre=701;tqv=578;seq=528;enx=895;EnVocab();InNativate();

// KIDS -- noun lends itself to educational purposes
t=575;pho="K"; beg=1; ctu=1; audpsi=0; AudMem();
@@ -1165,8 +1165,10 @@ function NounPhrase() {
if (predflag==1) { // only for predicate nominatives; 20sep2011
if (nounlock == 0) { // in absence of nounlock; 25oct2011
if (en2==subjnum) { // num(ber) agreement? 20sep2011
audjuste = en8; // set auditory recall-vector; 4jan2012
break; // one auditory engram is enough; 20sep2011
if (en4==1) { // dba=1 nominative? 12nov2012
audjuste = en8; // set auditory recall-vector; 4jan2012
break; // one auditory engram is enough; 20sep2011
} // end of test for nominative dba=1; 12nov2012
} // end of test for agreement in num(ber); 20sep2011
} // end of test for absence of nounlock; 25oct2011
} // end of test for positive "predflag"; 20sep2011
@@ -1205,7 +1207,7 @@ function NounPhrase() {
nphrpos = 7; // prevent article "A" with "I"; 29oct2011
subjnum = 1; // for use elsewhere; 29oct2011
prsn = 1; // for use elsewhere; 29oct2011
for (i = t; i>midway; i--) { // Look backwards for 50=I; 29oct2011
for (i = t; i>midway; i--) { // Use parameters to find 701=I.
enLexicon[i].enExam(); // examine the English lexicon; 29oct2011
if (en0 == 701) { // If "701=I" is found; 21oct2012
if (en4 == 1) { // en4/dba must be nominative=1; 21oct2012
@@ -1706,6 +1708,15 @@ function VerbPhrase() {
enLexicon[i].enExam(); // 13aug2011
verbpsi = en0; // for EnArticle; test; 14sep2011
vphraud = en8; // auditory recall-vector; 4jan2012

for (j = t; j>midway; --j) { // parameter-search; 12nov2012
enLexicon[j].enExam(); // examine English lexicon; 12nov2102
if (en0==verbpsi && en2==nphrnum && en4==prsn) { // 12nov2012
vphraud = en8; // VerbPhrase auditory engram tag; 12nov2012
break; // one instance is enough; 12nov2012
} // end of test to find correct form; 12nov2012
} // end of backwards loop; 12nov2012

Psi[i].psiExam(); // Check for negation on psi3; 29jun2011
act = psi1; // To test for a higher psi1; 15aug2011
if (act > 8) {
@@ -1787,8 +1798,6 @@ function VerbPhrase() {
SpeechAct(); // speak or display the adverb "NOT"; 29jun2011
} // end of test for no be-verb; 15aug2011
} // end of test for 12=NOT negjux; 13oct2011
// unk = motjuste; // temporary holding for if-clauses; 15aug2011
// if (unk != 57 && unk != 58 && unk != 66 && unk != 67) {
if (motjuste != 800) { // if other than an 800=BE verb; 7nov2012
if (nphrnum==1) { // if singular; 2sep2010
if (prsn==3) { // 3rd person? 10may2011
@@ -1807,8 +1816,6 @@ function VerbPhrase() {
} // end of search of English lexicon; 15aug2011
} // end of test for 3rd person singular; 15aug2011
} // end of special handling of 70=HAVE; 15aug2011
// unk = motjuste; // temporary holding for if-clauses; 29odt2011
// if (unk == 57 || unk == 58 || unk == 66 || unk == 67) { // 29oct2011
if (motjuste == 800) { // any form of 800=BE; 7nov2012
predflag = 1; // for sake of NounPhrase; 29oct2011
} // end of two-step be-verb substitution; 29oct2011
@@ -1851,7 +1858,8 @@ function VerbPhrase() {
negjux = 0; // reset for safety; 13oct2011
} // end of test for 250=NOT negation; 23oct2012
} // end of test for a present-tense be-verb; 15aug2011
if (motjuste == 57) { // 57=AM; 9aug2011
// if (motjuste == 57) { // 57=AM; 9aug2011
if (motjuste == 800) { // any be-verb; 12nov2012
if (negjux==250) { // if 250=NOT negates the verb-node; 23oct2012
for (i = t; i>midway; i--) { // search backwards in time; 9aug2011
enLexicon[i].enExam(); // examine the English lexicon; 9aug2011
@@ -1863,13 +1871,12 @@ function VerbPhrase() {
SpeechAct(); // speak or display the adverb "NOT"; 9aug2011
negjux = 0; // reset for safety; 13oct2011
} // end of test for 250=NOT negation; 23oct2011
} // end of test for be-verb 57=AM; 9aug2011
// } // end of test for be-verb 57=AM; 9aug2011
} // end of test for be-verb 800=BE; 12nov2012
psi = 0;
pho = " ";
dirobj = 1;
// if (subjpsi==50) { // only for subject "50=I"; 25sep2011
if (subjpsi==701) { // only for subject "701=I"; 7nov2012
// if (motjuste==62) { // only for verb "62=SEE"; 25sep2011
if (motjuste==820) { // only for verb "820=SEE"; 7nov2012
if (svo3==0) { // if SEE has no direct object; 25sep2011
VisRecog(); // a challenge for robot AI coders 25sep2011
@@ -1878,10 +1885,6 @@ function VerbPhrase() {
} // end of test for direct object; 25sep2011
} // end of test for "820=SEE" requiring VisRecog; 7nov2012
} // end of test for "701=I" subject of verb; 7nov2012
// if (motjuste == 57) { // 14sep2011
// verbpsi = 57; // 14sep2011
// predflag = 1; // 16sep2010
// } // 14sep2011
NounPhrase();
predflag = 0; // reset for safety; 16sep2010
dirobj = 0;
@@ -2545,6 +2548,8 @@ Thurs "1nov12A.html" introduces "audnum" to deglobalize "num" variable.
Mon. "5nov12A.html" uses "holdnum" for agreement of subjects and verbs.
Tues. "6nov12A.html" improves storage of "dba" from NewConcept module.
Wed. "7nov12A.html" uses pronoun apparatus for search in VerbPhrase().
Sun. "11nov12A.html" corrects minor bugs found in coding of MindForth.
Mon. "12nov12A.html" uses secondary search with parameters for a verb.
(end of HTML Change Log comments) -->
</html>
}}}

0 comments on commit 2d0611a

Please sign in to comment.
You can’t perform that action at this time.