Ich setze eines der Themen fort, die in der Veröffentlichung von Alexander Ershov ( Ustas ) "Neural Network Visual Search" angesprochen wurden , und schlage vor, dass Habrs Leser in die Welt von N.M. Amosova, sie $i$ Modelle, M-Netze und Automaten. Ich hoffe, sie sind die wahrscheinlichsten Kandidaten für die Rolle der "Silberkugel", die es Enthusiasten von "starker Intelligenz" oder, in anderer Terminologie, "künstlicher Intelligenz" ermöglicht, dem Verständnis der Art und Weise ihrer Umsetzung näher zu kommen.

() . « . », .. : A.M. , .. .. . , , « », , , , , , , — ( ) — « », .

, , « », .. — ...

, , , . – .

, (1973), , : , , . . — . , .. — , ( , , ). [3] (. , .. .. ). , , .. , , 1990-. , , , , , , « » . , . , , .. . , , .. , , , .

1. , . , , . , .. .

2. .. «M- ». , .

3. «» «» [3]. «» — [3].

4. . , .. . , , — .

5. - . :

–

– .

- ( ), – ( ).

, -.

5. ( ) , .

6. :

– .. ;

– .. ( ), ;

– «» «» — , «» .

1.

1. .

2. : , , .

3. , — , , .

4. — , , .

5. , , .

6. () , , .

, , , . .

7. , , . , «» «» , .

8. , ( , ), . , . - , .

9. .

10. ( ) .

11. , — « ».

12. ( ) - . .

13. .

14. . . , — . . , .

15. — (arousal, ). . , , , .

, , — .

16. , - , .

17. , — . , .

18. . , ( ) .

19. , , .

20. , .

21. — , .

22. , .

23. , - (). — .

24. ( ) . . , (), . , , , .

25. :

– ,

– (),

– , (),

– — , ().

« , , , » [3, . 57].

26. , , . ( ), . , «» .

27. , , , , .

28. , . , . , , , () .

29. , , , . () . , .

30. , - -. , , .. , . , , , , .

31. , :

– – ;

– ;

– .

32. , , , . , , .

, , — .

-

, .

— , . . . , , .

1. , , , -.

2. - , , $i$ -.

3. $i$ - .

4. $i$ - , . - , .

5. - , , .

6. $i$ - , , , .

6.1. $i$ - , .

6.2. $i$ - . $i$ - , .

6.2.1. $i$ - .

6.2.2. $i$ - , $\Pi$ , . $j$ - $i$ - $t$ $\Pi_{j}^{t}$ .

6.2.3. $i$ - , $i$ - .

7. $i$ - , , . :

7.1. $i$ - $i$ - $j$ $i$ -.

7.2. $i$ - , .

7.3. $i$ - .

7.4. $R$ , , , , .

, $i$ - $j$ $i$ - $i$ , $t$ $R_{\text{ij}}^{t}$ .

8. $i$ - : -, , $i$ - , , - — , $i$ - .

9. $R_{\text{ij}}^{t}$ $R_{\text{ij}}^{t}=\left\langle r_{\text{ij}},{\widetilde{r}}_{\text{ij}},r_{(0)ij}{\widetilde{,r}}_{(0)ij} \right\rangle$ , $r_{\text{ij}},{\widetilde{r}}_{\text{ij}}$ — , $r_{(0)ij},{\widetilde{r}}_{(0)ij}$ — .

10. , $R_{\text{ij}}^{t}$ , , , , $i$ - $i$ . $r_{\text{ij}},{\widetilde{r}}_{\text{ij}}$ . , $r_{\text{ij}} \gg {\widetilde{r}}_{\text{ij}}$ $R_{\text{ij}}^{t}$ , — .

${r_{(0)\text{ij}} \leq r}_{\text{ij}}\qquad\qquad(1)$

${\widetilde{r}}_{(0)\text{ij}} \leq {\widetilde{r}}_{\text{ij}}.\qquad\qquad(1)$

10.1. $R_{\text{ij}}^{t}=0$ $R_{\text{ij}}^{t}$ , .. $\left\langle 0.0,0.0,0.0,0.0 \right\rangle$ .

10.2. , $i$ -:

$R_{\text{ij}}^{t}=R\left(\Pi_{i}^{t},\Pi_{j}^{t},R_{\text{ij}}^{t - 1},\mathrm{\Delta}^{t} \right)\qquad\qquad(2)$

$\mathrm{\Delta}^{t}$ — -. $i$ - . , - — -, . $\mathrm{\Delta}^{t}$ . $\mathrm{\Delta}^{t}$ .

10.3. $t$ , $R_{\text{ij}}^{t} = 0$ . $R_{\text{ij}}^{t - 1} = 0$ $R_{\text{ij}}^{t} > 0$ , , $t$ $R_{\text{ij}}^{t}$ . , . (2) , ,

$R_{\text{ij}}^{t}=R_{1}\left(\Pi_{i}^{t},\Pi_{j}^{t},\mathrm{\Delta}^{t} \right)\qquad\qquad(3)$

(3) .

10.4. , . $R_{\text{ij}}^{t}$ , $t_{0}$ $R_{\text{ij}}^{t} \neq 0$ $\Pi_{i}=0$ $\Pi_{j}=0$ .

$r_{\text{ij}}^{t}=r_{1}\left( r_{\text{ij}}^{t - 1},r_{(0)\text{ij}}^{t} \right)\qquad\qquad(4)$

${\widetilde{r}}_{\text{ij}}^{t}=r_{2}\left( {\widetilde{r}}_{\text{ij}}^{t - 1},{\widetilde{r}}_{(0)\text{ij}}^{t} \right)\qquad\qquad(4)$

(4) (4) , $r_{\text{ij}}^{t}$ ${\widetilde{r}}_{\text{ij}}^{t}$ , , .

$r_{(0)\text{ij}}^{t} = r_{3}\left( r_{(0)\text{ij}}^{t - 1} \right)\qquad\qquad(5)$

${\widetilde{r}}_{(0)\text{ij}}^{t} = r_{4}\left( {\widetilde{r}}_{(0)\text{ij}}^{t - 1} \right)\qquad\qquad(5)$

, $r_{(0)ij}^{t}$ ${\widetilde{r}}_{(0)ij}^{t}$ . , . , $t_{0}$ , $R_{\text{ij}}^{t}$ (« »). $r_{\text{ij}}^{t}$ ${\widetilde{r}}_{\text{ij}}^{t}$ $r_{(0)ij}^{t}$ ${\widetilde{r}}_{(0)ij}^{t}$ , , (1) , $R_{\text{ij}}^{t}$ (5) (5), .. (« »).

10.5. $E_{i}$ ( ${\widetilde{E}}_{i}$ ) $i$ - $i$ $r_{\text{ij}}^{t}$ ( ${\widetilde{r}}_{\text{ij}}^{t}$ ) $i$ - $j$ - $i$ - $\Pi_{j}$ . $i$ - $i$ - ( $E_{i}$ ) ( ${\widetilde{E}}_{i}$ ) :

$E_{i}=E(\Pi_{1}^{t},\Pi_{2}^{t},\ldots,r_{i1}^{t},r_{i2}^{t},...)\qquad\qquad(6a)$

${\widetilde{E}}_{i} = \widetilde{E}( \Pi_{1}^{t},\Pi_{2}^{t},\ldots,{\widetilde{r}}_{i1}^{t},{\widetilde{r}}_{i2}^{t},...)\qquad\qquad(6)$

11. $i$ -.

11.1. $i$ - , $i$ - . $i$ -, . $i$ - .

11.2. $i$ - $i$ - . — $i$ - $\theta_{i}^{t}$ , $E_{i}^{t}$ $i$ - $i$ - $t$ . — . — ( $K_{i}^{t}$ ), ${\widetilde{E}}_{i}^{t}$ , ( $K_{i}^{t}$ ). $K_{i}^{t}$ $\theta_{i}^{t}$ , $K_{i}^{t}$ .

11.3. , $i$ - , :

$K_{i}^{t} = \Phi\left( K_{i}^{t},{\widetilde{E}}_{i}^{t} \right)\qquad\qquad(7)$

11.4. , $i$ - :

$\Pi_{i}^{t} = T\left(Pi_{i}^{t - 1},K_{i}^{t} \right)\qquad\qquad(8)$

(8) $i$ - « » $i$ -.

11.4. , $i$ - $i$ - :

$\Pi_{i}^{t}=\Pi\left( K_{i}^{t},\theta_{i}^{t},E_{i}^{t} \right)\qquad\qquad(9)$

11.5. $K_{i}^{t}$ $\theta_{i}^{t}$ $i$ -:

$\theta_{i}^{t}=\theta\left( \theta_{i}^{t - 1},\Pi_{i}^{t} \right)\qquad\qquad(10a)$

$K_{i}^{t}=K\left(K_{i}^{t},\Pi_{i}^{t} \right)\qquad\qquad(10)$

(10) (10) , . , $i$ -, , , («»). $i$ - . $i$ - , (10) (10) («»).

12. - $i$ - .

12.1. - , , , , .

12.2. - :

– $i$ - ;

– $i$ - ;

– $C$ ;

– $i$ - ;

– $J$ $i$ -.

— - .

12.3. - , . $i$ - . , $i$ - «» .

12.4. - $i$ -, , $i$ -. -. , $i$ -, . , .. $i$ -, .

-

- , , - $i$ - - .

, -, , . , - $i$ -, . - $i$ -, , . (.. ) $i$ - . $i$ - .

$t - 1$ $i$ - . (6), $i$ - . , (7) $i$ - , (8) — , «», $t - 1$ $t$ . , , (9) $i$ - $t$ , . , $i$ - $t$ , (6-9) :

$\Pi_{i}^{t}=\Phi\left(E_{i}^{t},{\widetilde{E}}_{i}^{t}{,\Pi_{i}^{t - 1},K}_{i}^{t - 1},\theta_{i}^{t - 1} \right)\qquad\qquad(11)$

$i$ - -, $i$ -, -. - .

$i$ - , $t$ . , $i$ - (). , $t + 1$ , $t + 2$ , $...$ , -.

$i$ - . ( , ) $i$ - -. $i$ -, , — - .

, - $i$ -. . .. , .

- $i$ -, - . $i$ - , . : $i$ - «» () «» (). - $i$ - , , $\mathrm{\Delta}^{t}=\Pi_{}^{t}-\Pi_{}^{t}$ .

, $\mathrm{\Delta}^{t}$ , .

.. .. [5, 6]. , . . .

, - . $\mathrm{\Delta}$ -, .

- :

1. «» $i$ - (10) $\theta$ $K$ . , $i$ -.

2. «» $i$ - (2) (4) (5) -.

3. - (2) , .. , $i$ -. , .

4. - $i$ -, , $i$ - . $i$ - . , , $i$ -. . .

. $i$ - -. $i$ - (2) . , , «», .. $i$ - $i$ -, , $i$ -, .

$i$ - , $i$ - . - . $i$ - . - , (. ).

, $i$ - « », .. $i$ -, , , « » .. -, — .

Abbildung 1. Ein Objekt und seine Reflexion in Modellen verschiedener Generalisierungsebenen. "Eingänge" und "Ausgänge": Energie; B - Substanz. Wiedergabe Abb. 12 aus [4].

Die in Kl. 1 und 2 nennen die Autoren selbstlernende Prozesse und die in p beschriebenen Prozesse. 3 und 4, genannt die Prozesse der Selbstorganisation des M-Netzwerks.

Formale Definition eines M-Netzes

Die zuvor eingeführten Eigenschaften der Elemente des M-Netzwerks ( $i$ -Modelle und Verbindungen) können bequem in mehrere Hauptgruppen unterteilt werden:

- Umwandlungseigenschaften;

- Merkmale des Selbstlernens;

- Merkmale der Selbstorganisation.

, (11). (6)-(9).

(3)-(5), $i$ -.

(2) -.

-. - $\mu$ :

$\mu = \left\langle P,S,R,L,F,C,I \right\rangle,\qquad\qquad(12)$

$P$ — $i$ -; $S$ — $i$ -; $R$ — ; $L$ — ; $F$ — ; $C$ — ; $I$ — $i$ -.

– ()

- $i$ - . $i$ - . $i$ - , – . $i$ -, ( ), , - $i$ - -. , $i$ -, -, - . . - « », « » $i$ -: - «» «» «» $i$ - (- $i$ - ).

, $i$ -Modelle - In diesem Fall ist die Wahrscheinlichkeit einer positiven Rückkopplung im M-Automaten hoch: Dies führt zu einer Situation unbegrenzten (exponentiellen) Wachstums der Anregung eines solchen Clusters $i$ -Modelle. Positives Feedback zwischen $i$ -Modelle sind auch möglich, wenn sie Verbindungen durch die äußere Umgebung "schließen": Ein natürliches Analogon dazu kann das Auftreten der sogenannten " Ameisenkreise des Todes " oder der Kreisbewegung in den Raupen einer marschierenden Seidenraupe sein (eine ähnliche Situation kann nicht nur in der Welt der Insekten auftreten - siehe zum Beispiel Kreise in Widdern , leider in komplexeren Situationen, findet sich ein solches "Gehen in Kreisen" in der menschlichen Bevölkerung).

Ameisenkreis des Todes

Kreisbewegung der marschierenden Seidenraupenraupen

Bemerkung 4

$i$ - ( ).

, $i$ - ( -). .

1. – ${\widetilde{r}}$ – $i$ -, ;

2. $i$ - ( ) – $\theta$ ;

3. $i$ - ( ) – .. , (. . 11.4 – (9));

4. () – $K$ (. . 11.3 – (8)).

… ( ), () .

, « » $i$ - ( « ») – -

, , .

« »! - . $i$ - ( ).

« » , .

- .. ( , .. - « ») , , . « »:

. , «» «» (), , «», – . , . – .

… . - , – – . , . , . . , , ( ), . , , . , , , () . – – , – .

.. ([2], . 49-51)

, .. ( $i$ -) – - (), ( -) $i$ - $i$ -.

- ( [9]):

- ( 6() [9])

( 6() [9]: ). () « »

( ) :

1. () $i$ - ;

2. $i$ -;

3. , ;

4. « » ;

5. « » $i$ -.

[9, . 379]:

, [109, 110], . «» , . , , «», , .

(. 6) « », . ( ), , . . – , . , – [111-114].

[62, 89, 115] , – , .

(. [9, . 381]):

(., . [127]) . , .

9 . , , , , , . - , , . , , [128] .

Abbildung 2. "Heterokliner Baum" im mehrdimensionalen Phasenraum eines dynamischen Systems, das die parallele und sequentielle Aktivität einer großen Anzahl von Interaktionsmodi beschreibt, die an der Ausführung einer bestimmten kognitiven Funktion beteiligt sind (ein Zustand, der eine endgültige Entscheidung oder eine entwickelte Verhaltensstrategie darstellt, ist mit einer Lichtscheibe markiert). Zahl: 9 aus der Überprüfung [9]

Ein solcher Mechanismus auf hoher Ebene ermöglicht es nicht nur, die unkontrollierte Zunahme der Aufregung bestimmter Gruppen einzudämmen $i$ -Modelle, aber bei Bedarf auch die "Teufelskreise" der Übertragung von Aktivitäten innerhalb einer bestimmten Gruppe von Ensembles durchbrechen $i$ -Modelle.

Grundeigenschaften

1. In dem Konzept besteht die Rolle des SDT darin, lokales positives und negatives Feedback in den im M-Netzwerk ablaufenden Informationsverarbeitungsprozessen zu organisieren. Dies stellt in jedem Zeitintervall die Dominanz des Informationsverarbeitungsprogramms, das im adaptiven Plan am wichtigsten ist, gegenüber anderen Programmen sicher, die sich parallel im M-Netzwerk entwickeln.

2. Das SDT funktioniert wie folgt:

2.1. Es sei etwas M-Netz gegeben.

2.2. Bei der Verarbeitung von Informationen Aufregung $i$ - Netzwerkmodelle ändern sich. Das Ausmaß der Erregung von jedem $i$ -Modell gibt indirekt die "Wichtigkeit" oder den Wert der darin aufgezeichneten Informationen an.

Das Schema der Interaktion des Sicherheitsdatenblatts mit anderen Elementen des M-Netzwerks ist in der folgenden Abbildung dargestellt.

Abbildung 3. Schema des Sicherheitsdatenblatts.

$S$ - SUT;

$F$ - Stärkung des Hauptmodells;

$B$ - den Rest bremsen;

$I_{1}$ und

$I_{2}$ - Geschossmodelle der Bedeutung der umgebenden Welt;

$A_{1}$ ,

$A_{2}$ - Geschossmodelle von nach außen gerichteten Handlungen;

$C_{1}, C_{2}$ - Modelle von Bewusstseinsprogrammen;

$e\mathbf{,\ }f$ - Modelle von Gefühlen und Emotionen. Wiedergabe Abb. 19 von der Arbeit [2].

2.3. Es wird davon ausgegangen, dass die Zuordnung zu jedem Zeitpunkt am aufregendsten ist $i$ Das Modell und die Stärkung seines Einflusses auf den allgemeinen Verlauf der Informationsverarbeitung werden die Effizienz des Netzwerks erhöhen. Genau das löst der SDT.

2.4. Arbeit SUT:

2.4.1. SDT wählt zu jedem Zeitpunkt die aufgeregteste aus $i$ -Modell erhöht ihre Erregung weiter und verringert die Erregbarkeit des Restes $i$ -Modelle (verlangsamt sie). Wenn zu einem bestimmten Zeitpunkt die gleiche maximale Aufregung haben $n$ $i$ -Modelle, dann wird die zusätzliche Aufregung von der SDT für jedes von ihnen in sein $n$ mal reduziert.

2.4.2. Für jeden "aktiven" $i$ -Das Modell benötigt eine Bremse "Twin" (komplementär $i$ -), $i$ -. . , ().

2.4.3. $i$ -. $i$ - , -.

2.4.4. $i$ - . , $i$ - . , , , $i$ -, , , , . , «» , $i$ -. , -, « » $i$ - .

2.4.5. $i$ -. . $i$ -. , - ( $i$ - ). , , -.

2.4.6. «» , ( , $i$ - ).

2.4.7. , $i$ - . $i$ - : $i$ -, , $i$ -. , , , () . .

3. , , , -. , $i$ - . $i$ -, .

, , :

Abbildung 4. Organigramm eines hierarchischen Sicherheitsdatenblatts. Dargestellt sind drei Felder von "funktionierenden" Modellen sowie die Neuronen des ersten (

$I$ ) und der zweite (

$\text{II}$ ) Böden des SDT mit ihren verstärkenden (

) und bremsen (

$T$ ) Elemente. Wiedergabe Abb. 20 von der Arbeit [2].

3.1. Lass alles $i$ - Netzwerkmodelle werden aus irgendeinem Grund herkömmlicherweise zu mehreren nicht überlappenden Gruppen zusammengefasst. Dies sind Gruppen der ersten (niedrigsten) Ebene. Diese Gruppen können wiederum zu größeren Gruppen der zweiten Ebene zusammengefasst werden, letztere zu Gruppen der dritten Ebene usw. Die oberste Gruppe umfasst alle Gruppen der vorherigen und daher alle $i$ - Netzwerkmodelle. Die Gesamtzahl der Ebenen einer solchen "Pyramide" kann in jedem speziellen Fall in Abhängigkeit von der Komplexität des M-Netzwerks und der Komplexität der Aufgaben bestimmt werden, für die der Automat gebaut wird.

Die folgenden Abbildungen zeigen die Organisationsdiagramme eines hierarchischen SDT und das Prinzip seiner Interaktion mit Ebenen. $i$ -Modelle des M-Netzwerks.

3.2. Zu jeder solchen Gruppe $i$ -Modelle, eines der SDT-Subsysteme ist zugeordnet: Im M-Netzwerk funktionieren so viele SDT-Subsysteme gleichzeitig, wie Gruppen verschiedener Ebenen darin enthalten sind.

Abbildung 5. Schema der Interaktion eines hierarchischen SDT mit Ebenen

$i$ -Modelle des M-Netzwerks.

$A$ ,

$B$ - "Arbeitszonen" des Kortex mit Modellen

$\text{a–a–a},\text{b–b–b},\text{c–c–c},\text{d–d–d}$ ...

Das aufgeregteste Modell $\text{a–a–a}$ in der Zone $A$ , in der Zone $B$ Modell- $\text{c–c–c}$ weniger gehemmt als $\text{d–d–d}$ ...

Element $N\ - I$ verstärkt, Element $M$ gehemmt von $- II$ ;; - Bremsen; - dazugewinnen.

Wiedergabe Abb. 21 von der Arbeit [2].

3.3. Als eine der möglichen Optionen für die Implementierung kann eine Ablaufverfolgung bereitgestellt werden. Arbeitsalgorithmus:

3.3.1. SDT-Subsysteme des gleichen Niveaus (die Niveaus der Subsysteme werden gemäß den Niveaus der Gruppen ausgewählt, an denen sie arbeiten) vergleichen die Anregungen, verstärken die isolierten und hemmen den Rest $i$ -Modelle nur innerhalb ihrer Gruppen. Subsysteme des SDT der nächsten Ebene, jedes innerhalb seiner eigenen Gruppe, vergleichen die bereits durchschnittlichen Anregungen der Gruppen $i$ -Modelle der unteren Ebene.

Abbildung 6. Beispiel einer Beziehung

$i$ -Modelle des M-Netzwerks.

$A$ - Dachgeschossmodell;

$\text{a,b,c}$ - Modelle im Untergeschoss;

$1, 2, ...$ - benachbarte Modelle;

- Modellantagonist;

$T$ - Bremsen;

$K$ - Qualitätsmodelle;

$_{1}, _{2}$ - Modelle von Gefühlen. Gepunktete Linien zeigen Bremswege. Wiedergabe Abb. 22 von der Arbeit [2].

3.3.2. Die Verstärkung wird nicht auf eine einzelne angewendet $i$ -Modelle, aber an alle $i$ -Modelle der aktuell zugewiesenen Gruppe; $i$ - Modelle anderer Gruppen des gleichen Niveaus werden proportional gebremst.

3.4. Der Einfluss aller SDT-Subsysteme beeinflusst die Aktivität $i$ -Modelle, die das ursprüngliche Set bilden, so dass jedes spezifisch $i$ -Das Netzwerkmodell kann zusätzliche Anregung von Subsystemen einiger Ebenen erhalten und von Subsystemen anderer Ebenen verlangsamt werden.

3.5. Die Anzahl der Ebenen in einem hierarchisch organisierten SDT sollte durch die Bedingungen einer bestimmten Aufgabe bestimmt werden, mit der die Ersteller des M-Netzwerks konfrontiert sind.

Ensembles $i$ -Modelle

Die Autoren stellen auf der Grundlage der durchgeführten Experimente das folgende interessante Merkmal fest: „Wenn das SDT aus irgendeinem Grund dasselbe hervorhebt $i$ - , $i$ -, «», , . , , , . $i$ -, . , «» $i$ - . $i$ -, «» » [3].

, , $i$ - , . — $i$ -.

1. , $i$ -, $i$ -, « » : $i$ -, , . : $i$ -.

2. , $i$ -, : «». — « ». «» : , «» , , — « », .

- . : « , , ( ), - «-» , ..» [3].

3. $i$ - , - , «» . « ».

4. $i$ -, , — , , — , . . , , « » . $i$ - , - «» , «», .

5. $i$ - :

– $i$ -, .

– $i$ -. -, , «» «» .

– () , , , .

-

1. $i$ -, . -. , $i$ - «» $i$ -, , . , , $i$ - . $i$ -.

2. -:

2.1. $i$ - , .. , $i$ - , $i$ - — . — , $i$ - . , $i$ -, , «» $i$ -. , , .

2.2. $i$ - . $i$ -. «» () , . , , , , .

2.3. $i$ - — , . $i$ - - $i$ -. «» .

2.4. - : $i$ - — «» . $i$ - $i$ - . «» , .. , «» , - .

2.5. Beim Herstellen von Verbindungen zwischen $i$ -Modelle verschiedener Ensembles, deren Stärke (Permeabilität) von der Häufigkeit der im Ensemble enthaltenen Gelenkanregungen abhängt $i$ -Modelle, der Zustand der integralen Zentren für die Bewertung von Pr und NPr und einige andere Faktoren, die eng miteinander verbunden sind $i$ -Modelle haben im Vergleich zu den anderen eine größere Wahrscheinlichkeit einer konsistenten Auswahl durch das Boost-Bremssystem $i$ - Netzwerkmodelle. Dementsprechend bei der Auswahl von SDT $i$ -Modell, das zu einem von zwei stark verbundenen Ensembles gehört, besteht eine hohe Wahrscheinlichkeit, dass der SDT nach einigen Augenblicken zu einem der beiden wechselt $i$ -Modelle des zweiten Ensembles.

Abbildung 7. Mögliche (und nicht endgültige) Version des Klassendiagramms für einzelne Elemente und ihre Beziehungen im Konzept von N.. Amosov.

3. Veränderungen in der Erregung $i$ - , — . , .

4. - , . $i$ -. , , «» , $i$ - .

-

, (12), - $\mu$ . (12) -. - $t$ $t + 1$ .

1) , (11); $i$ - - $t + 1$ ;

2) , $i$ -;

3) , «», -; $i$ - «» ;

4) , , -;

5) ; (., , , , .).

- . . , , -. , , - . , $A$ -.

- $\left\langle \mu, A \right\rangle$ : - $\mu$ und enthält einen Algorithmus für seine Funktionsweise $A$ ... Im Allgemeinen kann die Arbeit des M-Automaten wie folgt dargestellt werden:

Abbildung 8. Blockdiagramm des Funktionsalgorithmus des M-Automaten. Reproduzierte Abb. 5 von der Arbeit [3].

Wenn M-net $\mu$ wird in der Form (12) angegeben, ist ein solcher M-Automat vollständig .

Es ist möglich, M-Automaten zu konstruieren, in denen nicht alle Funktionen des M-Netzes realisiert sind.

Selbstlernende M-Automaten werden je nach Vollständigkeit der M-Netzwerk-Aufgabe unterschieden:

$\mu = \left\langle P,S,R,L,\varnothing,C,I \right\rangle,\qquad\qquad(13)$

und nicht lernende M-Automaten;

$\mu = \left\langle P,S,R,\varnothing,\varnothing,C,I \right\rangle,\qquad\qquad(14)$

Zeichen $\varnothing$ zeigt an, dass das entsprechende Element nicht eingegeben wurde.

Algorithmus im Falle eines selbstlernenden M-Automaten enthält keinen Block $F$ oder eine Gruppe von Merkmalen der Selbstorganisation und im Fall eines Nicht-Lernenden - Blöcke $F$ und $L$ - Gruppen von Merkmalen des Selbstlernens.

( ) ( ) (, ) . -. - .

- -, .

1. - (-) $i$ -.

2. $i$ - $i$ - , . $i$ - $i$ - () -.

-

, . - :

1. , (: ) .

2. . 1 -. -, .

3. , .

4. « » -, .. .

5. «» .

6. . 3 , . $i$ -.

7. . 3 $i$ -.

8. , $i$ - . . , , .

9. ( ) . .. 6-8 , , .. . 3.

, .. 7 8 . , , , .

10. -.

11. $A$ .

12. - .

2.

Start by doing what's necessary then do what's possible and suddenly you are doing the impossible.

, . , . , .

.

, .. . - - - . . .

, 6.

//------------------------------------------------------------------------------
  type
//------------------------------------------------------------------------------
{$REGION ' '}
//------------------------------------------------------------------------------
// 
    TConnection    = class;
//  
    TConnections   = class;
//------------------------------------------------------------------------------
// 
    TRelation      = class;
//  
    TRelations     = class;
//   i-
    TOutputs       = class;
//   i-
    TInputs        = class;
//------------------------------------------------------------------------------
// i-
    TModel         = class;
//  i-
    TModels        = class;
//------------------------------------------------------------------------------
//   i–:
//   
    TQualia        = class;
// 
    TPercept       = class;
//   - 
    TEffector      = class;
//------------------------------------------------------------------------------
// -,  i- ()
    TModelGroup    = class;
//  -
    TActivateInhibiteSystem = class;
//------------------------------------------------------------------------------
// -
    TAutomate      = class;
//------------------------------------------------------------------------------
// 
    TPlatform      = class;
//------------------------------------------------------------------------------
{$ENDREGION ' '}
//------------------------------------------------------------------------------

, , . .

.. – TRelation

– :

      property CurrActivateCoeff: double read GetCurrActivateCoeff write SetCurrActivateCoeff;

– :

      property ResidualActivateCoeff: double read GetResidualActivateCoeff write SetResidualActivateCoeff;

– :

      property CurrInhibitCoeff: double read GetCurrInhibitCoeff write SetCurrInhibitCoeff;

– :

      property ResidualInhibitCoeff: double read GetResidualInhibitCoeff write SetResidualInhibitCoeff;

$i$ - :

  TRelation = class(..............)
  private
      FModelSource: TModel;              //   -    
      FModelTarget: TModel;              //    
      FConnection: TConnection;          // , .  
  private
      FSourceId: int64;                  //  - 
      FTargetId: int64;                  //   
  private
      FCurrActivateCoeff: double;
      FResidualActivateCoeff: double;
      FCurrInhibitCoeff: double;
      FResidualInhibitCoeff: double;
  protected
//................................................    
//................................................    
//................................................    
  public
//................................................    
//................................................    
//................................................    
  end;

, (), , : .

, , , $i$ -. , , , TRelation , , $i$ - . , $i$ -.

, CRUD-, .

, .

.. , :

1. (2):

    procedure Defrosting(ACoModel: TModel; const AQuality: double); overload; virtual;

2. (3):

    procedure Setting(ACoModel: TModel; const AQuality: double); overload; virtual;

3. (4):

    procedure AttenuationCurrActivation(); overload; virtual;

4. (4):

    procedure DampingCurrentInhibit(); overload; virtual;

5. (5):

    procedure AttenuationResidualActivation(); overload; virtual;

6. (5):

    procedure AttenuationResidualInhibit(); overload; virtual;

7. (6):

    function Activation(): double; overload; virtual;

8. (6):

    function Inhibition(): double; overload; virtual;

, .

TRelation

  TRelation = class(..............)
  private
//................
  protected
//   (2):
    procedure Defrosting(ACoModel: TModel; const AQuality: double); overload; virtual;
//   (3):
    procedure Setting(ACoModel: TModel; const AQuality: double); overload; virtual;
//      (4):
    procedure AttenuationCurrActivation(); overload; virtual;
//      (4):
    procedure DampingCurrentInhibit(); overload; virtual;
//      (5):
    procedure AttenuationResidualActivation(); overload; virtual;
//      (5):
    procedure AttenuationResidualInhibit(); overload; virtual;
//    (6):
    function Activation(): double; overload; virtual;
//    (6):
    function Inhibition(): double; overload; virtual;
//................
  end;

, .

:

– (6) – Activation(…),

– (6) – Inhibition(…)

TModel, TRelation.

1. . TRelation , . , .

2. -, .

3. Activation(…) Inhibition(…) .

4. 7 8:

//................
    function TRelation.Activation(): double;
    begin
      Result := ResidualActivateCoeff + (System.Math.Max(CurrActivateCoeff, 0.0) * FModelSource.Arousal);
    end;
    function TRelation.Inhibition(): double;
    begin
      Result := ResidualInhibitCoeff + (System.Math.Max(CurrInhibitCoeff, 0.0) * FModelSource.Arousal);
    end;
//................

: () () -.

- -.

1. / ( XML) TConnection – :

  TConnection = class
  private
      FOwner: TConnections;
  private
      FSourceId: int64;
      FTargetId: int64;
  private
      FCurrActivateCoeff: double;
      FResidualActivateCoeff: double;
      FCurrInhibitCoeff: double;
      FResidualInhibitCoeff: double;
  protected
  ....
  public
    function Equals(AObject: TObject): boolean; overload; override;
  public
    function IsDefrosting(): boolean; overload; virtual;
  published
  [XMLAttribute('Source')]
      property SourceId: int64 read GetSourceId write SetSourceId;
  [XMLAttribute('Target')]
      property TargetId: int64 read GetTargetId write SetTargetId;
  published
  //   .
  [XMLAttribute('CurrActivate')]
      property CurrActivateCoeff: double read GetCurrActivateCoeff write SetCurrActivateCoeff;
  //   .
  [XMLAttribute('ResidualActivate')]
      property ResidualActivateCoeff: double read GetResidualActivateCoeff write SetResidualActivateCoeff;
  //   .
  [XMLAttribute('CurrInhibitCoeff')]
      property CurrInhibitCoeff: double read GetCurrInhibitCoeff write SetCurrInhibitCoeff;
  //   .
  [XMLAttribute('ResidualInhibitCoeff')]
      property ResidualInhibitCoeff: double read GetResidualInhibitCoeff write SetResidualInhibitCoeff;
  end;

2. , TConnection , - (-) – - /.

3. TConnection TRelation: . , TRelation. , Owner – . TRelation TConnection : , , TRelation - , TConnection. : TConnection, TRelation . , - : - / $i$ -. , – .

4. Equals ( , ):

    function TConnection.Equals(AObject: TObject): boolean;
    begin
      if (SourceId <> TConnection(AObject).SourceId) then exit(false);
      Result := (TargetId = TConnection(AObject).TargetId);
    end;

5. , TConnection

    constructor Create(); overload; virtual;
    constructor Create(const ASourceId, ATargetId: int64;
      const AResidualActivateCoeff: double = 0.0;
      const AResidualInhibitCoeff: double = 0.0;
      const ACurrActivateCoeff: double = 0.0;
      const ACurrInhibitCoeff: double = 0.0); overload; virtual;
    //  .
    constructor Create(const ASourceConnection: TConnection); overload; virtual;

6. - IsDefrosting(): boolean – , :

//................
function TConnection.IsDefrosting(): boolean;
begin
  if (FCurrActivateCoeff <> 0.0) then exit(true);
  if (FResidualActivateCoeff <> 0.0) then exit(true);
  if (FCurrInhibitCoeff <> 0.0) then exit(true);
  if (FResidualInhibitCoeff <> 0.0) then exit(true);
  exit(false);
end;

TRelation

TRelation .

, , :

1. $i$ - TModel : ;

2. - -;

3. TRelation TConnection.

4. , TRelation , -, -, :

  TRelation = class(..............)
  private
      FModelSource: TModel;
      FModelTarget: TModel;
      FConnection: TConnection;
  //................................................    
  protected
  //................................................    
      property Connection: TConnection read GetConnection write SetConnection;
  //................................................    
  public
  //................................................    
  published
      property ModelSource: TModel read GetModelSource write SetModelSource;
      property ModelTarget: TModel read GetModelTarget write SetModelTarget;
  published
      property SourceId: int64 read GetSourceId write SetSourceId;
      property TargetId: int64 read GetTargetId write SetTargetId;
      property SourceName: string read GetSourceName write SetSourceName;
      property TargetName: string read GetTargetName write SetTargetName;
  //................................................    
  end;

5. TRelation :

– — ;

– $i$ -;

– ;

– -;

– () .

,

//................................................    
  public
//   .
    constructor Create(); overload; virtual;
//        i-.
    constructor Create(const ASourceId, ATargetId: int64); overload; virtual;
//      - (    ).
    constructor Create(const ASourceId: int64; ATarget: TModel); overload; virtual;
//        (   -).
    constructor Create(ASource: TModel; const ATargetId: int64); overload; virtual;
//      -  .
    constructor Create(ASource, ATarget: TModel; AConnection: TConnection); overload; virtual;
//................................................    
  end;

6. TRelation :

    destructor TRelation.Destroy();
    begin
//  ""   . 
      FResidualInhibitCoeff := -1.0;
      FCurrInhibitCoeff := -1.0;
      FResidualActivateCoeff := -1.0;
      FCurrActivateCoeff := -1.0;
// ""   .
      FTargetId := -1;
      FSourceId := -1;
//    .
      if (Assigned(FModelSource.Outputs)) then
        FModelSource.Outputs.Extract(Self);
//    .
      if (Assigned(FModelTarget.Inputs)) then
        FModelTarget.Inputs.Extract(Self);
//  . .
      if (Assigned(FConnection.Owner)) then
        FConnection.Owner.Remove(FConnection);
      System.SysUtils.FreeAndNil(FConnection);
      inherited Destroy();
    end;

, $i$ -.

[XMLROOT('Connections')]
  TConnections = class(TVector<TConnection>)
  private
      FOwner: TAutomate;
  public
    constructor Create(); overload; override;
    constructor Create(AOwner: TAutomate); overload; virtual;
    destructor Destroy(); override;
  public
    function Add(const AValue: TConnection): int64; overload; override;
    function Insert(const AIndex: longint; const AValue: TConnection): int64; overload; override;
  end;
  TConnectionsClass = class of TConnections;

, TVector<T> TList<T>.

:

1. -. , , $i$ - -, -. / -.

2. – .

3. -:

  TConnectionComparer = class(TComparer<TConnection>)
  protected
    function Equal(const ALeft, ARight: TConnection): boolean; overload; override;
    function LessThan(const ALeft, ARight: TConnection): boolean; overload; override;
    function GreaterThan(const ALeft, ARight: TConnection): boolean; overload; override;
  public
    constructor Create(); overload; override;
    destructor Destroy(); override;
  end;
  TConnectionComparerClass = class of TConnectionComparer;

TConnectionComparer ,

    function TConnectionComparer.Equal(const ALeft, ARight: TConnection): boolean;
    begin
      if (ALeft.SourceId <> ARight.SourceId) then exit(false);
      Result := (ALeft.TargetId = ARight.TargetId);
    end;
    function TConnectionComparer.LessThan(const ALeft, ARight: TConnection): boolean;
    begin
      if (ALeft.SourceId < ARight.SourceId) then exit(true);
      if (ALeft.SourceId > ARight.SourceId) then exit(false);
      Result := (ALeft.TargetId < ARight.TargetId);
    end;
    function TConnectionComparer.GreaterThan(const ALeft, ARight: TConnection): boolean;
    begin
      if (ALeft.SourceId > ARight.SourceId) then exit(true);
      if (ALeft.SourceId < ARight.SourceId) then exit(false);
      Result := (ALeft.TargetId > ARight.TargetId);
    end;

4. Add .

5. Insert , Owner : .

6. :

    constructor TConnections.Create();
    begin
      inherited Create(TConnectionComparer.Create()); //   -.
      FreeObjects := true;
      Sorted := true;
      Unique := true;
      ClassUnique := dupError;
      FOwner := nil;
    end;

, — TRelations – (TInputs) (TOutputs).

— TRelations:

TRelations:

  TRelations = class(TVector<TRelation>)
  private
      FOwner: TModel;
  protected
    function GetOwner(): TModel; overload; virtual;
    procedure SetOwner(const AValue: TModel); overload; virtual;
  protected
    function TryInnerInsert(const AIndex: longint; const AValue: TRelation; out AOutIndex: int64): boolean; overload; virtual;
    function Add(const AValue: int64): int64; overload; virtual;
  public
    constructor Create(); overload; override;
    constructor Create(AOwner: TModel); overload; virtual;
    destructor Destroy(); override;
  public
    function Add(const AValue: TRelation): int64; overload; override;
    function Insert(const AIndex: longint; const AValue: TRelation): int64; overload; override;
  public
      property Owner: TModel read GetOwner write SetOwner;
  end;

1. :

– ;

– ;

– CRUD-.

2. TRelations :

2.1. $i$ - ( )

      function Add(const AValue: int64): int64; overload; virtual;

( ) (-). TOutputs TInputs.

2.2. ( ) $i$ -

      function Add(const AValue: TRelation): int64; overload; override;

, .

2.3.

      function Insert(const AIndex: longint; const AValue: TRelation): int64; overload; override;

, , , .

      function TRelations.Insert(const AIndex: longint; const AValue: TRelation): int64;
      var
        AConnection: TConnection;
      begin
        try
//  TryInnerInsert     !
          if (TryInnerInsert(AIndex, AValue, Result)) then exit;
          Result := inherited Insert(AIndex, AValue);
          if (Result < 0) then exit;
          if (not Assigned(AValue.Connection)) then
            begin
              Owner.Automate.Connections.Add(AValue.CreateConnect());
            end;
        except
          Result := -1;
        end;
      end;

TryInnerInsert.

2.4. TryInnerInsert

//.......................................................
    protected
      function TryInnerInsert(const AIndex: longint; const AValue: TRelation; out AOutIndex: int64): boolean; overload; virtual;
//.......................................................
    end;

:

– , – ;

– ,

– ;

– .

TryInnerInsert . , . , .

TryInnerInsert

      function TRelations.TryInnerInsert(const AIndex: longint; const AValue: TRelation; out AOutIndex: int64): boolean;
      var
        AIndexOf: integer;
      begin
        AOutIndex := AIndex;
        Result := false;
        if (Assigned(AValue.ModelSource) and Assigned(AValue.ModelTarget)) then exit;
// -   !
        if (Self is TInputs) then
          begin
            if ((AValue.TargetId >= 0) and (AValue.TargetId <> Owner.ObjectID)) then
              begin
//     ! !
                raise Exception.CreateFmt(RSErrorUnknowIds,[AValue.SourceId,AValue.TargetId, Owner.ObjectID, Self.ClassName]);
              end;
//    !
            if (AValue.SourceId < 0) then
              begin
//  !
                raise Exception.CreateFmt(RSErrorUnknowIds,[AValue.SourceId,AValue.TargetId, Owner.ObjectID, Self.ClassName]);
              end;
//  SourceId  TargetId!
//    !
            for AIndexOf := 0 to Self.Count - 1 do
              begin
                if (this[AIndex].SourceId <> AValue.SourceId) then continue;
                raise Exception.CreateFmt(RSErrorNotUniqueRelation,[AValue.SourceId,AValue.TargetId, Owner.ObjectID, Self.ClassName]);
              end;
            if (AValue.TargetId < 0) then
              begin
                AValue.TargetId := Owner.ObjectID;
              end;
//  -  -.
            if (not Assigned(AValue.ModelSource)) then
              AValue.ModelSource := Owner.Automate.FindById(AValue.SourceId);
            if (not Assigned(AValue.ModelTarget)) then
              AValue.ModelTarget := Owner;
          end;
        if (Self is TOutputs) then
          begin
            if ((AValue.SourceId >= 0) and (AValue.SourceId <> Owner.ObjectID)) then
              begin
//     ! !
                raise Exception.CreateFmt(RSErrorUnknowIds,[AValue.SourceId,AValue.TargetId, Owner.ObjectID, Self.ClassName]);
              end;
//    !
            if (AValue.TargetId < 0) then
              begin
// ...   !
                raise Exception.CreateFmt(RSErrorUnknowIds,[AValue.SourceId,AValue.TargetId, Owner.ObjectID, Self.ClassName]);
              end;
//  SourceId  TargetId!
//    !
            for AIndexOf := 0 to Self.Count - 1 do
              begin
                if (this[AIndex].TargetId <> AValue.TargetId) then continue;
                raise Exception.CreateFmt(RSErrorNotUniqueRelation,[AValue.SourceId,AValue.TargetId]);
              end;
            if (AValue.SourceId < 0) then
              begin
                AValue.SourceId := Owner.ObjectID;
              end;
//  -  -.
            if (not Assigned(AValue.ModelSource)) then
              AValue.ModelSource := Owner;
            if (not Assigned(AValue.ModelTarget)) then
              AValue.ModelTarget := Owner.Automate.FindById(AValue.TargetId);
          end;
        AOutIndex := AValue.ModelSource.Outputs.Insert(AIndex, AValue);
        AOutIndex := AValue.ModelTarget.Inputs.Insert(AIndex, AValue);
        Result := true;
      end;

TRelations – : TRelation.

    TInputs = class(TRelations)
    protected
      function Add(const AValue: int64): int64; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      function Insert(const AIndex: longint; const AValue: TRelation): int64; overload; override;
    end;
    TInputsClass = class of TInputs;
//..............................................................................
    TOutputs = class(TRelations)
    protected
      function Add(const AValue: int64): int64; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      function Insert(const AIndex: longint; const AValue: TRelation): int64; overload; override;
    end;
    TOutputsClass = class of TOutputs;

, Add, $i$ -:

      function TInputs.Add(const AValue: int64): int64;
      begin
        Result := Add(TRelation.Create(AValue, Owner));
      end;
//..............................................................................
      function TOutputs.Add(const AValue: int64): int64;
      begin
        Result := Add(TRelation.Create(Owner, AValue));
      end;

AValue $i$ -.

i-

$i$ -, .. , :

– (Arousal),

– (Threshold),

– (ResidualActivateCoeff),

– (ActivateCoeff),

– (Inputs).

– (Outputs),

:

– , , ObjectId (int64).

, TNamedObject. :

– (ObjectId: int64);

– (Name: string);

– (NameShort: string);

– (Code: string).

$i$ - $i$ -:

– – Ativation(…) (9);

– – Inhibit(…) (7);

– – Attenuation(…) (8);

– – Overgrowth(…) (10);

– – Adaptation(…) (10).

, $i$ -

    TModel = class(TNamedObject)
    private
//................................................    
    protected
//  : R (4.2).
      function Winding(AR: TRelation): TRelation; overload; virtual;
//  : R_1 (4.3).
      function Setting(AR: TRelation): TRelation; overload; virtual;
//  : (4.4, 4.4, 4.5  4.5).
      function Attenuation(AR: TRelation): TRelation; overload; virtual;
    protected
//    (9).
      function Ativation(): double; overload; virtual;
//  : (7).
      function Inhibit(): double; overload; virtual;
//     (8).
      function Attenuation(): double; overload; virtual;
//    (10).
      function Overgrowth(): double; overload; virtual;
//    (10).
      function Adaptation(): double; overload; virtual;
    protected
//     -  .
        property Arousal: double read GetArousal write SetArousal;
//  : (4.6).
        property ActivateEffect: double read GetActivateEffect write SetActivateEffect;
//  : (4.6).
        property InhibitEffect: double read GetInhibitEffect write SetInhibitEffect;
//   .
        property Threshold: double read GetThreshold write SetThreshold;
//   .
        property ActivateCoeff: double read GetActivateCoeff write SetActivateCoeff;
//  ()   .
        property ResidualActivateCoeff: double read GetResidualActivateCoeff write SetResidualActivateCoeff;
   protected
//     -  .
        property Arousal: double read GetArousal write SetArousal;
//  : (4.6).
        property ActivateEffect: double read GetActivateEffect write SetActivateEffect;
//  : (4.6).
        property InhibitEffect: double read GetInhibitEffect write SetInhibitEffect;
//   .
        property Threshold: double read GetThreshold write SetThreshold;
//   .
        property ActivateCoeff: double read GetActivateCoeff write SetActivateCoeff;
//  ()   .
        property ResidualActivateCoeff: double read GetResidualActivateCoeff write SetResidualActivateCoeff;
    protected
//................................................    
    end;

- , . «» , : 0.0.

$i$ - TModel Exec(…) InternalExec(…). true, $i$ - - .

    TModel = class(TNamedObject)
    private
//................................................    
    protected
      function InternalExec(): boolean; overload; virtual;
//................................................    
    public
      function Exec(): boolean; overload; virtual;
//................................................    
    end;

InternalExec(…) $i$ - -. false.

i-

$i$ -:

    TModel = class(TNamedObject)
    private
        FAutomate: TAutomate;
        FModels: TModels;
        FOwner: TModel;
    private
        FArousal: double;
        FActivateEffect: double;
        FInhibitEffect: double;
    private
        FThreshold: double;
        FActivateCoeff: double;
        FResidualActivateCoeff: double;
    private
        FOutputs: TOutputs;
        FInputs: TInputs;
    protected
      function GetThis(): TObject; overload; virtual;
    protected
      procedure SetObjectName(const AValue: TNameObject); overload; override;
      procedure SetObjectNameShort(const AValue: TNameShort); overload; override;
      procedure SetObjectCode(const AValue: TObjectName); overload; override;
    protected
      function GetOwner(): TModel; overload; virtual;
      procedure SetOwner(const AValue: TModel); overload; virtual;
    protected
      function GetThreshold(): double; overload; virtual;
      procedure SetThreshold(const AValue: double); overload; virtual;
      function GetArousal(): double; overload; virtual;
      procedure SetArousal(const AValue: double); overload; virtual;
      function GetActivateEffect(): double; overload; virtual;
      procedure SetActivateEffect(const AValue: double); overload; virtual;
      function GetInhibitEffect(): double; overload; virtual;
      procedure SetInhibitEffect(const AValue: double); overload; virtual;
      function GetActivateCoeff(): double; overload; virtual;
      procedure SetActivateCoeff(const AValue: double); overload; virtual;
      function GetResidualActivateCoeff(): double; overload; virtual;
      procedure SetResidualActivateCoeff(const AValue: double); overload; virtual;
    protected
      function GetOutputs(): TOutputs; overload; virtual;
      procedure SetOutputs(const AValue: TOutputs); overload; virtual;
      function GetInputs(): TInputs; overload; virtual;
      procedure SetInputs(const AValue: TInputs); overload; virtual;
    protected
      function GetAutomate(): TAutomate; overload; virtual;
      procedure SetAutomate(const AValue: TAutomate); overload; virtual;
      function GetPlatform(): TPlatform; overload; virtual;
      procedure SetPlatform(AValue: TPlatform); overload; virtual;
    protected
      procedure InternalExtract(); overload; virtual;
    protected
        property Models: TModels read FModels;
    protected
//................................................    
    protected
//     -  .
        property Arousal: double read GetArousal write SetArousal;
//  : (4.6).
        property ActivateEffect: double read GetActivateEffect write SetActivateEffect;
//  : (4.6).
        property InhibitEffect: double read GetInhibitEffect write SetInhibitEffect;
//   .
        property Threshold: double read GetThreshold write SetThreshold;
//   .
        property ActivateCoeff: double read GetActivateCoeff write SetActivateCoeff;
//  ()   .
        property ResidualActivateCoeff: double read GetResidualActivateCoeff write SetResidualActivateCoeff;
    protected
      class function GetClassInputs(): TInputsClass; overload; virtual;
      class function GetClassOutputs(): TOutputsClass; overload; virtual;
    protected
      function InternalExec(): boolean; overload; virtual;
      procedure ChangeArousal(AActivateInhibiteSystem: TActivateInhibiteSystem); overload; virtual;
    public
      constructor Create(); overload; override;
      constructor Create(const AObjectId: int64; const AName: string; const ANameShort: string = ''; const ACode: string = ''); overload; virtual;
      destructor Destroy(); override;
    public
      function Exec(): boolean; overload; virtual;
      function Perform(): boolean; overload; virtual;
    public
      procedure Reset(); overload; virtual;
    public
//................................................    
    public
        property Owner: TModel read GetOwner write SetOwner;
    published
        property Outputs: TOutputs read GetOutputs write SetOutputs;
        property Inputs: TInputs read GetInputs write SetInputs;
    published
        property Automate: TAutomate read GetAutomate write SetAutomate;
        property Platform: TPlatform read GetPlatform write SetPlatform;
    end;
    TModelClass = class of TModel;
            -:
    TModel = class(TNamedObject)
//................................................    
    public
//................................................    
      function Connect(ATarget: TModel; AConnection: TConnection): TModel; overload; virtual;
//................................................    
    end;

i-

.. $i$ -. $i$ -.

, $i$ -:

[XMLROOT('Models')]
    TModels = class(TVector<TModel>)
    private
        FOwner: TAutomate;
    private
        FMapById: TMap<int64, int64>;
        FMapByName: TMap<string, int64>;
    private
        FIsTerminated: boolean;
    protected
      function GetOwner(): TAutomate; overload; virtual;
      procedure SetOwner(const AValue: TAutomate); overload; virtual;
      procedure InnerSetAutomate(const AModel: TModel); overload; virtual;
    protected
        property Owner: TAutomate read GetOwner;
    public
      constructor Create(); overload; override;
      constructor Create(const AComparer: JOBLIB.Core.Comparers.IComparer<TModel>); overload; override;
      constructor Create(AOwner: TAutomate); overload; virtual;
      destructor Destroy(); override;
    public
      function GetObjectId(): int64; overload; virtual;
    public
      function Add(const AValue: TModel): int64; overload; override;
      function Insert(const AIndex: longint; const AModel: TModel): int64; overload; override;
      function Extract(const AModel: TModel): TModel; overload; override;
      procedure Delete(const AIndex: longint); overload; override;
    public
      function FindById(const AModelId: int64): TModel; overload; virtual;
      function FindByName(const AModelName: string): TModel; overload; virtual;
    public
      procedure Reorder(const AStartIndex: integer); overload; override;
    end;
    TModelsClass = class of TModels;

TModels TVector
```
<TModel>
```
.
TModels ( : FreeObjects := true false).

  procedure TModels.InnerSetAutomate(const AModel: TModel);
  begin
    AModel.Automate := Owner;
  end;

, , .

( Insert):

  function TModels.Insert(const AIndex: longint; const AModel: TModel): int64;
  begin
    if (AModel.Name.Trim().IsEmpty()) then exit(-1);
    Result := inherited Insert(AIndex, AModel);
    if (AModel.ObjectID < 0) then
      begin
        AModel.ObjectID := GetObjectId();
      end;
    try
      if (AModel.ObjectID < 0) then
        raise Exception.Create(RSErrorIncorrectAutomate);
      FMapById.Add(AModel.ObjectID, Result);
      FMapByName.Add(AModel.Name, Result);
      InnerSetAutomate(AModel);
      Reorder(AIndex);
    except
      Result := -1;
    end;
  end;

  function FindById(const AModelId: int64): TModel; overload; virtual;
  function FindByName(const AModelName: string): TModel; overload; virtual;

. :

FMapById: TMap<int64, int64>;
FMapByName: TMap<string, int64>;

GUID $i$ -.

  function TModels.Extract(const AModel: TModel): TModel;
  var
    AIndexOf: int64;
    AModelGroup: TModelGroup;
    ASubmodel: TSubmodel;
    AIndexSubmodelOf: integer;
  begin
    Result := inherited Extract(AModel);
    if (FIsTerminated) then exit;
    if (Assigned(AModel)) then
      begin
        if (FMapById.TryGetValue(AModel.ObjectID, AIndexOf)) then
          begin
            FMapById.Remove(AModel.ObjectID);
            FMapByName.Remove(AModel.Name);
            Reorder(AIndexOf);
          end;
      end;
  end;
  procedure TModels.Delete(const AIndex: longint);
  begin
    FMapById.Remove(this[AIndex].ObjectID);
    FMapByName.Remove(this[AIndex].Name);
    inherited Delete(AIndex);
    Reorder(AIndex);
  end;

ObjectId :

  function GetObjectId(): int64; overload; virtual;

    property Owner: TAutomate read GetOwner;

, - ( ), , - ( – -):

  function TModels.GetObjectId(): int64;
  begin
    Result := Owner.GetSequence().NextVal();
  end;

, - - .

  procedure Reorder(const AStartIndex: integer); overload; override;

, $i$ -, $i$ - .

i-

$i$ -.

- , $i$ -:

– – $i$ -, – TPercept,

– (qualia) – $i$ -, $i$ - – TQualia,

– – $i$ -, – TEffector.

(qualia)

TModel . TModel , Threshold Arousal ( ):

    TQualia = class(TModel)
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    published
[XMLAttribute('Threshold')]
        property Threshold;
[XMLAttribute('Arousal')]
        property Arousal;
    end;

(TPercept) (TEffector) TQualia:

    TPercept = class(TQualia)
    private
        FPlatform: TPlatform;
    protected
      function GetPlatform(): TPlatform; overload; override;
      procedure SetPlatform(AValue: TPlatform); overload; override;
    protected
      function InternalExec(): boolean; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      function Exec(): boolean; overload; override;
    published
        property Platform;
    end;

    TEffector = class(TQualia)
    private
        FPlatform: TPlatform;
    protected
      function GetPlatform(): TPlatform; overload; override;
      procedure SetPlatform(AValue: TPlatform); overload; override;
    protected
      function InternalExec(): boolean; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      function Exec(): boolean; overload; override;
    published
        property Platform;
    end;

, Platform, () «» ( ):

    private
        FPlatform: TPlatform;
    protected
      function GetPlatform(): TPlatform; overload; override;
      procedure SetPlatform(AValue: TPlatform); overload; override;
    protected
..................................
    public
..................................
    public
..................................
    published
        property Platform;
    end;

      function Exec(): boolean; overload; override;

«» «» , TPercept:

      function TPercept.Exec(): boolean;
      begin
        try
          if (not Assigned(Platform)) then
            raise Exception.Create('      !');
          Result := InternalExec();
        except
          Result := false;
        end;
      end;

TEffector:

      function TEffector.Exec(): boolean;
      begin
        try
          if (not Assigned(Platform)) then
            raise Exception.Create('   !');
          Result := InternalExec();
        except
          Result := false;
        end;
      end;

$i$ - InternalExec(). , , TPercept TEffector.

« » , $i$ -, .

i-

, $i$ - :

– () – $i$ -, $i$ -

– – $i$ -, - () $i$ -, («» $i$ -), $i$ - (, , - ..). .. , ( [3] : . , ). , (.. $i$ -). . , . .

$i$ -

– (, ) – $i$ - $i$ -. , -, , -;

– (, , , , -, , , - .) – $i$ -, () ( ) .

() i-

,

, .. $i$ -, $i$ - (), $i$ -, $i$ -, $i$ -. $i$ -: .. , $i$ - , «» ( , ).

«» / :

– TModel;

– TGroupModel;

– TSubmodel, TSubmodels.

TSubmodel :

1. TSubmodel () TModel ();

2. TModel TSubmodel ( : () TModel);

3. -;

4. ;

5. ;

5.1. - ,

5.2. $i$ - () / ,

6. / $i$ - ();

7. .

, :

:

1. . , ; . 1, 2, 4, 5.1, 5.2 ( ). : 3, 6 7; TModel TInterfacedObject .

2. . .

3. - ( ). . : .

4. - . :

1. TSubmodel, :

– , – Prototype: TModel;

– – Refer: int64;

– $i$ -; $i$ - – Prev: TSubmodel Next: TSubmodel;

– $i$ - ;

– . OrderId: int64, .

2. TModel:

– (HeadSubmodel: TSubmodel) $i$ -. , $i$ -;

– -, ;

– FreeSubmodel(…) ;

– OnAfterDisposeSubmodel, . CheckFreeModel(ASubmodel: TSubmodel): boolean.

3. TSubmodels :

3.1. TSubmodel -;

3.2. Insert TSubmodels:

– BindSubmodel -; :

      procedure TAutomate.BindSubmodel(ASubmodel: TSubmodel);
      begin
        if (not Ready) then exit;
        if (not Assigned(ASubmodel.Prototype)) then
          ASubmodel.Prototype := FindById(ASubmodel.Refer);
        if (not Assigned(ASubmodel.Owner)) then
          raise Exception.CreateFmt(' .    : %d',[ASubmodel.Refer]);
        ASubmodel.Prototype.HeadSubmodel := ASubmodel;
      end;

– ( . 8). , ;

– .

3.2. BindSubmodel -:

– Prototype , Refer;

– HeadSubmodel ( – ) .

4. () - ( - ):

4.1. -.

4.2. : -: Ready = false.

4.3. -; BindSubmodel.

4.4.

– -

– - (. ).

5. :

5.1. Delete(…) :

– ( );

– - ( FreeSubmodel).

– ( inherited Delete(…));

– - ( FreeSubmodel) – FreePrototype -.

5.2. - ( FreeSubmodel TModel):

– HeadSubmodel -;

– ;

– -

– .

6. -?

6.1. - . :

6.1.1. HeadSubmodel;

6.1.2. (Extract) ;

6.1.3. (Prev) ;

6.1.4. Prev nil: «» Prev.Next;

6.1.5. ACurrSubmodel;

6.1.6. .

6.2. .

7. -, , () FreeSubmodel ( - ) . .

8. () - ( – ) . «» . , , :

, - , .. .

8.1. ;

8.2. (not Submodels.IsEmpty()). « » , ;

8.3. ;

8.4. « »: « ». , – . , , «» , .

« …! …! …!». ? ? – …

8.5. : - , – , !

? : , «» « » . «» , / . :

8.5.1. « » « (DAG, directed acyclic graph)» «» ;

8.5.2. «» ;

8.5.3. – — :

– «» ;

– «» .

«» . , , – .

8.5.4. : – «» ? : , , , . .

8.6. , . 8.1-8.5 / .

8.7. . 8.5. , . 8.3. 8.4.

:

//.......................................................................
      function TSubmodel.IsEqualsChild(AModel: TModel): boolean;
      begin
        // 8.3.
        if (Prototype.Equals(AModel)) then exit(false);
        // 8.4.
        if ((Prototype as TModelGroup).Contains(AModel.ObjectID)) then exit(false);
        Result := true;
      end;
//.......................................................................
      function TSubmodels.CyclicDependencyCheck(ASubmodel: TSubmodel): boolean;
      var
        AParent: TModel;
        ACurrSubmodel: TSubmodel;
        AMapUnique: TMapUnique;
        AModelQueue: Queue<TModel>;
      begin
        if (not Assigned(Owner.Automate)) then exit(true);
        if (not Owner.Automate.Ready) then exit(true); //    !
      // 8.1.
        if (not (ASubmodel.Prototype is TModelGroup)) then exit(true);
      // 8.2.    ,          !
        if ((ASubmodel.Prototype as TModelGroup).Submodels.IsEmpty()) then exit(true);
      // 8.5.     !
        AMapUnique := TMapUnique.Create();
        try
          AModelQueue.Enqueue(Owner);
          Result := true;
          while (not AModelQueue.IsEmpty()) do
            begin
              AParent := AModelQueue.Dequeue();
              Result := ASubmodel.IsEqualsChild(AParent);
              if (not Result) then break;
              ACurrSubmodel := AParent.HeadSubmodel;
// Assigned(ACurrSubmodel) = false -   AParent -  !
              while (Assigned(ACurrSubmodel)) do
                begin //    !    !
                  if (ACurrSubmodel.Owner is TModelGroup) then
                    begin
                      if (not AMapUnique.ContainsKey(ACurrSubmodel.Refer)) then
                        begin
                          AMapUnique.Add(ACurrSubmodel.Refer,0);
                          AModelQueue.Enqueue(ACurrSubmodel.Owner);
                        end;
                    end;
                  ACurrSubmodel := ACurrSubmodel.Prev;
                end;
            end;
          while (not AModelQueue.IsEmpty()) do
            AModelQueue.Dequeue();
        finally
          System.SysUtils.FreeAndNil(AMapUnique);
        end;
      end;

« » « » ( , ).

9. $i$ -; : ( ) , , .

: , – , – . , . .

. 1 TSubmodel :

[XMLROOT('Submodel')]
    TSubmodel = class(TReference<TModel>)
    private
        FOwner: TModel;
        FOrderId: int64;
        FSubmodelName: string;
    private
        FPrevSubmodel: TSubmodel;
        FNextSubmodel: TSubmodel;
    protected
      function GetRefer(): int64; overload; override;
    protected
      function GetOrderId(): int64; overload; virtual;
      procedure SetOrderId(const AValue: int64); overload; virtual;
      function GetName(): string; overload; virtual;
      procedure SetName(const AValue: string); overload; virtual;
    protected
      function GetOwner(): TModel; overload; virtual;
      procedure SetOwner(const AValue: TModel); overload; virtual;
    protected
      function GetPrevSubmodel(): TSubmodel;
      procedure SetPrevSubmodel(const AValue: TSubmodel);
      function GetNextSubmodel(): TSubmodel;
      procedure SetNextSubmodel(const AValue: TSubmodel);
    public
      constructor Create(); overload; override;
      constructor Create(APrototype: TModel); overload; virtual;
      destructor Destroy(); override;
    public
      function IsEqualsChild(AModel: TModel): boolean; overload; virtual;
    public
        property Prototype;
    public
        property Prev: TSubmodel read GetPrevSubmodel write SetPrevSubmodel;
        property Next: TSubmodel read GetNextSubmodel write SetNextSubmodel;
    published
        property Owner: TModel read GetOwner write SetOwner;
    published
[XMLAttribute('Refer')]
        property Refer;
[XMLAttribute('OrderId')]
        property OrderId: int64 read GetOrderId write SetOrderId;
[XMLAttribute('Name')]
        property Name: string read GetName write SetName;
    end;
    TSubmodelClass = class of TSubmodel;

TSubmodel TReference<T: class, constructor>. , :

    TReference<T: class, constructor> = class
    private
        FRefer: int64;
        FPrototype: T;
    protected
      function GetPrototype(): T; overload; virtual;
      procedure SetPrototype(const AValue: T); overload; virtual;
      function GetRefer(): int64; overload; virtual;
      procedure SetRefer(const AValue: int64); overload; virtual;
    protected
        property Prototype: T read GetPrototype write SetPrototype;
        property Refer: int64 read GetRefer write SetRefer;
    public
      constructor Create(); overload; virtual;
      destructor Destroy(); override;
    end;

, TSubmodel.

TModel

4, . 2 (. ), TModel.

1. , . :

– ,

– ,

– .

, FreePrototype() -.

, :

   TModeFreePrototype =
     (
         mdpFreePrototype              // 1- .
       , mdpUseRequestFreePrototype    // 2- .
       , mdpUseDefaultMode             // 3- .
     );
   TModesFreePrototype = set of TModeFreePrototype;

2. :

   TOnAfterDisposeSubmodel = function (APrototypeModel: TModel; ASubmodel: TSubmodel): boolean of object;

, , TModel (. ):

TModel

[XMLROOT('Model')]
    TModel = class(TNamedObject)
    private
        FAutomate: TAutomate;
        FOwner: TModel;
        FModesFreePrototype: TModesFreePrototype;
        FHeadSubmodel: TSubmodel;
        FOnAfterDisposeSubmodel: TOnAfterDisposeSubmodel;
    private
        FArousal: double;
        FActivateEffect: double;
        FInhibitEffect: double;
    private
        FThreshold: double;
        FActivateCoeff: double;
        FResidualActivateCoeff: double;
    private
        FOutputs: TOutputs;
        FInputs: TInputs;
    protected
      function GetThis(): TObject; overload; virtual;
    protected
      procedure SetObjectName(const AValue: TNameObject); overload; override;
      procedure SetObjectNameShort(const AValue: TNameShort); overload; override;
      procedure SetObjectCode(const AValue: TObjectName); overload; override;
    protected
      function GetOwner(): TModel; overload; virtual;
      procedure SetOwner(const AValue: TModel); overload; virtual;
    protected
      function GetThreshold(): double; overload; virtual;
      procedure SetThreshold(const AValue: double); overload; virtual;
      function GetArousal(): double; overload; virtual;
      procedure SetArousal(const AValue: double); overload; virtual;
      function GetActivateEffect(): double; overload; virtual;
      procedure SetActivateEffect(const AValue: double); overload; virtual;
      function GetInhibitEffect(): double; overload; virtual;
      procedure SetInhibitEffect(const AValue: double); overload; virtual;
      function GetActivateCoeff(): double; overload; virtual;
      procedure SetActivateCoeff(const AValue: double); overload; virtual;
      function GetResidualActivateCoeff(): double; overload; virtual;
      procedure SetResidualActivateCoeff(const AValue: double); overload; virtual;
    protected
      function GetOutputs(): TOutputs; overload; virtual;
      procedure SetOutputs(const AValue: TOutputs); overload; virtual;
      function GetInputs(): TInputs; overload; virtual;
      procedure SetInputs(const AValue: TInputs); overload; virtual;
    protected
      function GetAutomate(): TAutomate; overload; virtual;
      procedure SetAutomate(const AValue: TAutomate); overload; virtual;
      function GetPlatform(): TPlatform; overload; virtual;
      procedure SetPlatform(AValue: TPlatform); overload; virtual;
    protected
      procedure InternalExtract(); overload; virtual;
      procedure FreeHeadSubmodels(); overload; virtual;
    protected
      function CheckFreeModel(ASubmodel: TSubmodel): boolean;
      function FreeSubmodel(ASubmodel: TSubmodel): boolean; overload; virtual;
    protected
      function GetHeadSubmodel(): TSubmodel; overload; virtual;
      procedure SetHeadSubmodel(const AValue: TSubmodel); overload; virtual;
      function GetModesFreePrototype(): TModesFreePrototype; overload; virtual;
      procedure SetModesFreePrototype(const AValue: TModesFreePrototype); overload; virtual;
    protected
      function GetOnAfterDisposeSubmodel: TOnAfterDisposeSubmodel;
      procedure SetOnAfterDisposeSubmodel(const AValue: TOnAfterDisposeSubmodel); overload; virtual;
    protected
//  : R (4.2).
      function Winding(AR: TRelation): TRelation; overload; virtual;
//  : R_1 (4.3).
      function Setting(AR: TRelation): TRelation; overload; virtual;
//  : (4.4, 4.4, 4.5  4.5).
      function Attenuation(AR: TRelation): TRelation; overload; virtual;
    protected
//    (9).
      function Ativation(): double; overload; virtual;
//  : (7).
      function Inhibit(): double; overload; virtual;
//     (8).
      function Attenuation(): double; overload; virtual;
//    (10).
      function Overgrowth(): double; overload; virtual;
//    (10).
      function Adaptation(): double; overload; virtual;
    protected
//     -  .
        property Arousal: double read GetArousal write SetArousal;
//  : (4.6).
        property ActivateEffect: double read GetActivateEffect write SetActivateEffect;
//  : (4.6).
        property InhibitEffect: double read GetInhibitEffect write SetInhibitEffect;
//   .
        property Threshold: double read GetThreshold write SetThreshold;
//   .
        property ActivateCoeff: double read GetActivateCoeff write SetActivateCoeff;
//  ()   .
        property ResidualActivateCoeff: double read GetResidualActivateCoeff write SetResidualActivateCoeff;
    protected
        property HeadSubmodel: TSubmodel read GetHeadSubmodel write SetHeadSubmodel;
    protected
      class function GetClassInputs(): TInputsClass; overload; virtual;
      class function GetClassOutputs(): TOutputsClass; overload; virtual;
    protected
      function InternalExec(): boolean; overload; virtual;
      procedure ChangeArousal(AActivateInhibiteSystem: TActivateInhibiteSystem); overload; virtual;
    public
      constructor Create(); overload; override;
      constructor Create(const AObjectId: int64; const AName: string; const ANameShort: string = ''; const ACode: string = ''); overload; virtual;
      destructor Destroy(); override;
    public
      function Exec(): boolean; overload; virtual;
      function Perform(): boolean; overload; virtual;
    public
      procedure Reset(); overload; virtual;
    public
      function Connect(ATarget: TModel; AConnection: TConnection): TModel; overload; virtual;
    public
        property Owner: TModel read GetOwner write SetOwner;
    published
        property Outputs: TOutputs read GetOutputs write SetOutputs;
        property Inputs: TInputs read GetInputs write SetInputs;
    published
        property Automate: TAutomate read GetAutomate write SetAutomate;
        property Platform: TPlatform read GetPlatform write SetPlatform;
    published
        property ModesFreePrototype: TModesFreePrototype read GetModesFreePrototype write SetModesFreePrototype;
    published
        property OnAfterDisposeSubmodel: TOnAfterDisposeSubmodel read GetOnAfterDisposeSubmodel write SetOnAfterDisposeSubmodel;
    end;
    TModelClass = class of TModel;

, :

– CheckFreeModel – , :

      function TModel.CheckFreeModel(ASubmodel: TSubmodel): boolean;
      begin
        Result := false;
        if (TModeFreePrototype.mfpUseRequestFreePrototype in ModesFreePrototype) then
          begin
            if (Assigned(OnAfterDisposeSubmodel)) then
              begin
                Result := OnAfterDisposeSubmodel(Self, ASubmodel);
              end
            else if (TModeFreePrototype.mfpUseDefaultMode in ModesFreePrototype) then
              begin
                Result := (TModeFreePrototype.mfpFreePrototype in FModesFreePrototype);
              end;
          end
        else
          begin
            Result := (TModeFreePrototype.mfpFreePrototype in ModesFreePrototype);
          end;
      end;

– FreeSubmodel – :

      function TModel.FreeSubmodel(ASubmodel: TSubmodel): boolean;
      var
        APrevSubmodel: TSubmodel;
        ANextSubmodel: TSubmodel;
      begin
        Result := false;
        if (ASubmodel.Equals(FHeadSubmodel)) then
          begin
            FHeadSubmodel := ASubmodel.Prev;
            ASubmodel.Prev := nil;
            if (Assigned(FHeadSubmodel)) then
              begin
                FHeadSubmodel.FNextSubmodel := nil;
              end
            else
              begin //     -!
//     !
                Result := ASubmodel.Owner.CheckFreeModel(ASubmodel);
                exit;
              end;
          end
        else
          begin
            Result := false;
//     !
            if (Assigned(ASubmodel.Prev)) then
              begin
                ASubmodel.Prev.Next := ASubmodel.Next;
                if (Assigned(ASubmodel.Next)) then
                  begin
                    ASubmodel.Next.Prev := ASubmodel.Prev;
                  end;
              end
            else
              begin
                if (Assigned(ASubmodel.Next)) then
                  begin
                    ASubmodel.Next.Prev := nil;
                  end;
//   not Assigned(ASubmodel.Next) -   
//    (ASubmodel = FHeadSubmodel),     
//  !
              end;
//  !
            ASubmodel.Prev := nil;
            ASubmodel.Next := nil;
          end;
      end;

– SetHeadSubmodel – :

      procedure TModel.SetHeadSubmodel(const AValue: TSubmodel);
      begin
        if (not Assigned(FHeadSubmodel)) then
          begin //      !
            FHeadSubmodel := AValue;
//   !
            FHeadSubmodel.Prev := nil;
          end
        else
          begin
            if (FHeadSubmodel.Equals(AValue)) then exit;
            FHeadSubmodel.Next := AValue;
            AValue.Prev := FHeadSubmodel;
            FHeadSubmodel := AValue;
          end;
  //   !
          FHeadSubmodel.Next := nil;
      end;

, Destroy() – , :

      destructor TModel.Destroy();
      begin
        InternalExtract();
        FResidualActivateCoeff := 0.0;
        FActivateCoeff := 0.0;
        FInhibitEffect := 0.0;
        FActivateEffect := 0.0;
        FArousal := 0.0;
        FThreshold := 0.0;
        System.SysUtils.FreeAndNil(FOutputs);
        System.SysUtils.FreeAndNil(FInputs);
        FHeadSubmodel := nil;
        FModesFreePrototype := [TModeFreePrototype.mfpFreePrototype];
        FOwner := nil;
        FOnAfterDisposeSubmodel := nil;
        inherited Destroy();
      end;

, TModelGroup:

[XMLROOT('Group')][CINC(10,'')][ClassVarInherited()]
    TModelGroup = class(TQualia)
    private
        FSubmodels: TSubmodels;
    protected
      function GetSubmodels(): TSubmodels; overload; virtual;
      procedure SetSubmodels(const AValue: TSubmodels); overload; virtual;
    protected
      class function GetClassSubmodels(): TSubmodelsClass; overload; virtual;
    protected
      function InternalExec(): boolean; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      procedure Prepare(); overload; virtual;
    public
      function Exec(): boolean; overload; override;
      procedure Reset(); overload; override;
    public
      function Add(AModel: TModel): TModel; overload; virtual;
      procedure Clear(); overload; virtual;
    public
      function FindById(const AModelId: int64): TSubmodel; overload; virtual;
      function FindByName(const AModelName: string): TSubmodel; overload; virtual;
      function Contains(const ASubmodel: int64): boolean; overload; virtual;
    published
[XMLARRAY('Submodels','Submodel')]
        property Submodels: TSubmodels read GetSubmodels write SetSubmodels;
    end;
    TModelGroupClass = class of TModelGroup;

TModelGroup:

1. TModelGroup – TQualia.

2. , , .

3. :

//.......................................................
    public
      function Add(AModel: TModel): TModel; overload; virtual;
      procedure Clear(); overload; virtual;
    public
      function FindById(const AModelId: int64): TModel; overload; override;
      function FindByName(const AModelName: string): TModel; overload; override;
//.......................................................
    end;

4. Prepare():

//......................................................
    public
//......................................................
      procedure Prepare(); overload; virtual;
//......................................................
    end;

. – , , .

InternalExec(…) Exec(…):

..............................
protected
  function InternalExec(): boolean; overload; virtual;
..............................
..............................
..............................
public
..............................
..............................
public
  function Exec(): boolean; overload; override;
..............................
..............................
end;

  function TModelGroup.InternalExec(): boolean;
  var
    AModel: TModel;
  begin
    for AModel in Models do
      begin
        Result := AModel.Exec();
        if (not Result) then break;
      end;
  end;
  function TModelGroup.Exec(): boolean;
  begin
    Result := InternalExec();
  end;

, InternalExec(): $i$ - , . $i$ - - «» – false. , $i$ -, , InternalExec().

( InternalExec(…)) :

2.

  function TModelGroup.InternalExec(): boolean;
  var
    AModel: TModel;
  begin
    for AModel in Models do
      begin
        Result := AModel.Exec();
        Result := AIS.Exec(Result, AModel);
        if (not Result) then break;
      end;
  end;

  function TModelGroup.InternalExec(): boolean;
  var
    AModel: TModel;
  begin
    for AModel in Models do
      begin
        Result := AModel.Exec();
        if (not Result) then break;
      end;
    Result := AIS.Exec(Result);
  end;

  function TModelGroup.Exec(): boolean;
  begin
    Result := InternalExec();
    Result := AIS.Exec(Result);
  end;

- , InternalExec(…) Exec(…).

-

$i$ - – -.

- :

    TActivateInhibiteSystem = class(TModelGroup)
    private
        FClamping: double;
        FQueuePerformModels: TQueuePerformModels;
    protected
      function GetClamping(): double; overload; virtual;
      procedure SetClamping(const AValue: double); overload; virtual;
    protected
      function InternalExec(const AStatus: boolean): boolean; overload; virtual;
      function InternalExec(const AStatus: boolean; AModel: TModel): boolean; overload; virtual;
    protected
      class function GetClassSubmodels(): TSubmodelsClass; overload; override;
    protected
      function Check(ASubmodel: TSubmodel): boolean; overload; virtual;
      procedure BeforePerform(); overload; virtual;
      function EnqueuePerformModels(): TQueuePerformModels; overload; virtual;
      function Accept(ASubmodel: TSubmodel): boolean; overload; virtual;
      function InternalExec(): boolean; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      procedure OrderBy(AIndexStart: longint = 0; AIndexFinish: longint = -1); overload; virtual;
      procedure OrderBy(AComparer: JOBLIB.Core.Comparers.IComparer<TSubmodel>; AIndexStart: longint = 0; AIndexFinish: longint = -1); overload; virtual;
    public
      function Perform(): boolean; overload; override;
    public
      function Exec(const AStatus: boolean): boolean; overload; virtual;
      function Exec(const AStatus: boolean; AModel: TModel): boolean; overload; virtual;
    published
        property Clamping: double read GetClamping write SetClamping;
    end;

, :

1. ( TModelGroup).

2. Clamping – , $i$ -. .. (Arousal), $i$ -: $i$ - ( ) , . , Clamping . - Clamping .

3. QueuePerformModels: TQueuePerformModels. .

4. 4- () :

    TActivateInhibiteSystem = class(TModelGroup)
..............................
..............................
    protected
      function InternalExec(const AStatus: boolean): boolean; overload; virtual;
      function InternalExec(const AStatus: boolean; AModel: TModel): boolean; overload; virtual;
..............................
..............................
    public
..............................
..............................
    public
      function Exec(const AStatus: boolean): boolean; overload; virtual;
      function Exec(const AStatus: boolean; AModel: TModel): boolean; overload; ..............................
..............................
virtual;
    published
..............................
..............................
    end;

5. , , :

5.1. $i$ -, , «». $i$ - «» $i$ -, - «» . $i$ -, « » .

5.2. , . , ModesFreePrototype, [] ( «- »). , TActivateInhibiteSystem :

      constructor TActivateInhibiteSystem.Create();
      begin
        inherited Create();
// -       !
        FModesFreePrototype := [];
        FClamping := 0.0;
        FQueuePerformModels := TQueuePerformModels.Create();
      end;

SetModesFreePrototype :

      procedure TActivateInhibiteSystem.SetModesFreePrototype(const AValue: TModesFreePrototype);
      begin
      end;

, « ».

«» . $i$ -.

6. . :

procedure OrderBy(AIndexStart: longint = 0; AIndexFinish: longint = -1); overload; virtual;
procedure OrderBy(AComparer: JOBLIB.Core.Comparers.IComparer<TModel>; AIndexStart: longint = 0; AIndexFinish: longint = -1); overload; virtual;

6.1. (, (Arousal) $i$ -). $i$ - -. , -.

6.2. - $i$ - . :

    TDefaultAISModelComparer = class(TComparer<TSubmodel>)
    protected
      function Equal(const ALeft, ARight: TSubmodel): boolean; overload; override;
      function LessThan(const ALeft, ARight: TSubmodel): boolean; overload; override;
      function GreaterThan(const ALeft, ARight: TSubmodel): boolean; overload; override;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    end;
    TDefaultAISModelComparerClass = class of TDefaultAISModelComparer;

- TComparer<TSubmodel> : Equal, LessThan GreaterThan. System.Generics.Defaults.

:

      function TDefaultAISModelComparer.Equal(const ALeft, ARight: TSubmodel): boolean;
      begin
//  ,       !
//       .
        Result := (Abs(ALeft.Prototype.Arousal - ARight.Prototype.Arousal) < 1.0e-5);
      end;
      function TDefaultAISModelComparer.LessThan(const ALeft, ARight: TSubmodel): boolean;
      begin
        Result := (ALeft.Prototype.Arousal < ARight.Prototype.Arousal);
      end;
      function TDefaultAISModelComparer.GreaterThan(const ALeft, ARight: TSubmodel): boolean;
      begin
        Result := (ALeft.Prototype.Arousal > ARight.Prototype.Arousal);
      end;

7. - - $i$ -, $i$ - ! , :

      constructor TAISSubmodels.Create();
      begin
        inherited Create(TDefaultAISModelComparer.Create());
      end;
      constructor TAISSubmodels.Create(AOwner: TModel);
      begin
        Create();
        FOwner := AOwner;
      end;

:

7.1. TActivateInhibiteSystem

      class function GetClassSubmodels(): TSubmodelsClass; overload; override;

      class function TActivateInhibiteSystem.GetClassSubmodels(): TSubmodelsClass;
      begin
        Result := TAISSubmodels; // inherited GetClassSubmodels();
      end;

7.2. $i$ - ObjectId : .

7.3. :

– ;

      procedure TAISModels.InnerSetOwner(const AModel: TSubmodel);
      begin
      end;

– ObjectId

      function TAISModels.FindById(const AModelId: int64): TSubmodel;
      var
        AIndexOf: int64;
      begin
        if (not FMapById.TryGetValue(AModelId, AIndexOf)) then exit(nil);
        Result := this[AIndexOf];
      end;
      function TAISModels.FindByName(const AModelName: string): TSubmodel;
      var
        AIndexOf: int64;
      begin
        if (not FMapByName.TryGetValue(AModelName, AIndexOf)) then exit(nil);
        Result := this[AIndexOf];
      end;

–

      procedure TAISModels.Reorder(const AStartIndex: integer);
      var
        AIndexOf: integer;
      begin
        for AIndexOf := AStartIndex to Count - 1 do
          begin
            FMapById.AddOrSetValue(this[AIndexOf].ObjectID, AIndexOf);
            FMapByName.AddOrSetValue(this[AIndexOf].Name, AIndexOf);
          end;
        end;
      end;

AStartIndex, 0!

7.3. , - :

    TAISSubmodels = class(TSubmodels)
    protected
      procedure InnerSetOwner(const AModel: TSubmodel); overload; override;
    protected
        property Owner: TModel read GetOwner;
    public
      constructor Create(); overload; override;
      constructor Create(AOwner: TModel); overload; override;
      destructor Destroy(); override;
    public
      function FindById(const AModelId: int64): TSubmodel; overload; override;
      function FindByName(const AModelName: string): TSubmodel; overload; override;
    public
      procedure Reorder(const AStartIndex: integer); overload; override;
   end;
   TAISSubmodelsClass = class of TAISSubmodels;

1. .

.. $i$ -

      function TModelGroup.InternalExec(): boolean;
      var
        AModel: TModel;
      begin
        for AModel in Models do
          begin
            Result := AModel.Exec();
            if (not Result) then break;
          end;
      end;

:

– $i$ -;

– $i$ - (arousal) / Clamping - ( ),

– ( );

– ( ) () $i$ - ( – );

– ( ) - ;

– -.

2. ,

2.1. TModel Perform(…)

      TModel = class(................)
//.......................................................
      public
//.......................................................
        function Perform(): boolean; overload; virtual;
//.......................................................
      end;

$i$ - . - . , true, – false. – true.

: Exec(…) $i$ -, Perform() «» – $i$ - .

2.2. $i$ - TQueuePerformModels ( - )

    TQueuePerformModels = class(TQueue<TModel>)
    public
//.......................................................
      constructor Create(); overload; override;
      destructor Destroy(); override;
//.......................................................
    end;
//.......................................................
      constructor TQueuePerformModels.Create();
      begin
        inherited Create();
        FreeObjects := false;
      end;
      destructor TQueuePerformModels.Destroy();
      begin
        inherited Destroy();
      end;
//.......................................................

TActivateInhibiteSystem FQueuePerformModels, , EnqueuePerformModels(…), , , :

    TActivateInhibiteSystem = class(TModelGroup)
    private
//.......................................................
        FQueuePerformModels: TQueuePerformModels;
    protected
//.......................................................
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
//.......................................................
    public
      function Perform(): boolean; overload; override;
//.......................................................
    end;
//.......................................................
    TActivateInhibiteSystem = class(TModelGroup)
    private
//.......................................................
        FQueuePerformModels: TQueuePerformModels;
    protected
//.......................................................
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      function Perform(): boolean; overload; override;
//.......................................................
    end;
//.......................................................
      constructor TActivateInhibiteSystem.Create();
      begin
        inherited Create();
        Models.FreeObjects := false;
        FClamping := 0.0;
        FQueuePerformModels := TQueuePerformModels.Create();
      end;
      destructor TActivateInhibiteSystem.Destroy();
      begin
        System.SysUtils.FreeAndNil(FQueuePerformModels);
        FClamping := 0.0;
        Models.FreeObjects := false;
        inherited Destroy();
      end;
//.......................................................
      function TActivateInhibiteSystem.EnqueuePerformModels(): TQueuePerformModels;
      var
        ASubmodel: TSubmodel;
      begin
        Result := FQueuePerformModels;
//   .
        OrderBy();
//  .
        Submodels.Reorder();
//  
        for ASubmodel in Submodels do
          begin
//    ,    
//       .
            if (not Check(ASubmodel)) then break;
            Result.Enqueue(ASubmodel);
          end;
      end;
//.......................................................

Perform() :

//.......................................................
      procedure TActivateInhibiteSystem.BeforePerform();
      var
        ASubmodel: TSubmodel;
      begin
        for ASubmodel in Submodels do
          begin
            ASubmodel.Prototype.ChangeArousal(Self);
          end;
      end;
//.......................................................
      function TActivateInhibiteSystem.Perform(): boolean;
      var
        AModel: TModel;
      begin
        Result := true;
        BeforePerform();
//  
        EnqueuePerformModels();
//     .
        while (not FQueuePerformModels.IsEmpty()) do
          begin
            if (Accept(FQueuePerformModels.Dequeue())) then continue;
            Result := false;
            break;
          end;
//    ,    .
        while (not FQueuePerformModels.IsEmpty()) do
          FQueuePerformModels.Dequeue();
      end;
//.......................................................

2.3. Check(…), BeforePerform(…) Accept(…). Check – . :

//.......................................................
      function TActivateInhibiteSystem.Check(ASubmodel: TSubmodel): boolean;
      begin
//   !
        Result := (ASubmodel.Prototype.Arousal >= Clamping);
      end;
//.......................................................

Accept ,

//.......................................................
Result := AModel.Perform();
//.......................................................

, $i$ - , . true, , – false . .

TActivateInhibiteSystem.Perform $i$ - .

BeforePerform(…) $i$ -

      procedure TActivateInhibiteSystem.BeforePerform();
      var
        ASubmodel: TSubmodel;
      begin
        for ASubmodel in Submodels do
          begin
            ASubmodel.Prototype.ChangeArousal(Self);
          end;
      end;

, TModel ChangeArousal(…)

      procedure TModel.ChangeArousal(AActivateInhibiteSystem: TActivateInhibiteSystem);
      begin
      end;

- $i$ -. , , .

-

-.

- :

    TModelsNet = class(TModelGroup)
    private
        FPlatform: TPlatform;
    private
// 
        Fontentment: double;
        FAIS: TActivateInhibiteSystem;
    protected
      function Getontentment(): double; overload; virtual;
      procedure Setontentment(const AValue: double); overload; virtual;
      function GetPlatform(): TPlatform; overload; override;
      procedure SetPlatform(AValue: TPlatform); overload; override;
    protected
        property Contentment: double read Getontentment write Setontentment;
    protected
        property AIS: TActivateInhibiteSystem read FAIS;
        property Platform: TPlatform read GetPlatform write SetPlatform;
    protected
      class function GetClassSubmodels(): TSubmodelsClass; overload; virtual;
      class function GetClassAIS(): TActivationInhibitionSystemClass; overload; virtual;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      function Exec(): boolean; overload; override;
    end;
    TModelsNetClass = class of TModelsNet;

      constructor TModelsNet.Create();
      begin
        inherited Create();
        Fontentment := 0.0;
        FAIS := GetClassAIS().Create(Self);
        FAIS.Owner := Self;
        FPlatform := nil;
        AIS.Prepare();
      end;
      destructor TModelsNet.Destroy();
      begin
        FPlatform := nil;
        System.SysUtils.FreeAndNil(FAIS);
        Fontentment := 0.0;
        inherited Destroy();
      end;
      class function TModelsNet.GetClassSubmodels(): TSubmodelsClass;
      begin
        Result := TSubmodels;
      end;
      class function TModelsNet.GetClassAIS(): TActivationInhibitionSystemClass;
      begin
        Result := TActivateInhibiteSystem;
      end;
      function TModelsNet.Exec(): boolean;
      begin
        Result := InternalExec();
//     ,     
//     InternalExec().
        Result := AIS.Perform();
      end;
      function TModelsNet.Getontentment(): double;
      begin
        Result := Fontentment;
      end;
      procedure TModelsNet.Setontentment(const AValue: double);
      begin
//        FVitality := AValue;
      end;
      function TModelsNet.GetPlatform(): TPlatform;
      begin
        Result := FPlatform;
      end;
      procedure TModelsNet.SetPlatform(AValue: TPlatform);
      var
        ASubmodel: TSubmodel;
      begin
        FPlatform := AValue;
        for ASubmodel in Submodels do
          begin
            ASubmodel.Prototype.Platform := Self.Platform;
          end;
      end;

Prepare(…):

//.......................................................
    AIS.Prepare();
//.......................................................

- . Prepare(…),

//.......................................................
    TSpeedyAIS = class(TActivateInhibiteSystem)
//.......................................................
    public
      procedure Prepare(); overload; overrride; 
//.......................................................
    end;
//.......................................................
      procedure TSpeedyAIS.Prepare(); 
      begin
//.......................................................
        Submodels.Add(TSubmodel.Create(Owner.Automate.FindByName('')));
        Submodels.Add(TSubmodel.Create(Owner.Automate.FindByName('')));
//.......................................................
      end;
//.......................................................

, , -, .

Prepare(…) , – - , , - . !

- :

1. - , - .

2. - - () .

3. - .

- , …

-

- – , - .

- :

1. .

2. $i$ - () () () -.

3. $i$ -

4. .

:

1. $i$ - -;

2. $i$ - ();

3. $i$ - ;

4. - ( - , - – );

5. -;

6. -;

-:

[XMLROOT('TAutomate')][XMLSerializerMode([soOrderSerialize])]
    TAutomate = class(TDesignate)
    private
//   i-.
        FSequence: TSequence;
    private
        FReady: boolean;
    private
//   "".
        Fontentment: double;
    private
//   i-.
        FModels: TModels;
        FMNet: TModelsNet;
//    i-.
        FConnections: TConnections;
    private
//    i-.
        FEngine: TEngineConveyor;
    private
//  - .
        FPlatform: TPlatform;
    private
        FOnBeforeExecute: TOnAutomateExecuteBefore;
        FOnAutomateBeforeAction: TOnActionExecuteBefore;
        FOnAutomateAfterAction: TOnActionExecuteAfter;
        FOnAfterExecute: TOnAutomateExecuteAfter;
    private
      function GetObjectName(): TNameObject; overload; override;
      procedure SetObjectName(const AValue: TNameObject); overload; override;
      function GetObjectNameShort(): TNameShort; overload; override;
      procedure SetObjectNameShort(const AValue: TNameShort); overload; override;
      function GetObjectCode(): TObjectName; overload; override;
      procedure SetObjectCode(const AValue: TObjectName); overload; override;
    protected
      function GetSequence(): TSequence; overload; virtual;
      procedure SetSequence(const AValue: TSequence); overload; virtual;
    protected
      function GetReady(): boolean; overload; virtual;
      procedure SetReady(const AValue: boolean); overload; virtual;
    protected
      function Getontentment(): double; overload; virtual;
      procedure Setontentment(const AValue: double); overload; virtual;
      function GetModels(): TModels; overload; virtual;
      procedure SetModels(const AValue: TModels); overload; virtual;
      function GetConnections: TConnections; overload; virtual;
      procedure SetConnections(const AValue: TConnections); overload; virtual;
      function GetEngine(): TEngineConveyor; overload; virtual;
      procedure SetEngine(const AValue: TEngineConveyor); overload; virtual;
      function GetPlatform(): TPlatform; overload; virtual;
      procedure SetPlatform(const AValue: TPlatform); overload; virtual;
    protected
      function GetOnAutomateBeforeExecute(): TOnAutomateExecuteBefore; overload; virtual;
      procedure SetOnAutomateBeforeExecute(const AValue: TOnAutomateExecuteBefore); overload; virtual;
      function GetOnBeforeAction(): TOnActionExecuteBefore; overload; virtual;
      procedure SetOnBeforeAction(const AValue: TOnActionExecuteBefore); overload; virtual;
      function GetOnAfterAction(): TOnActionExecuteAfter; overload; virtual;
      procedure SetOnAfterAction(const AValue: TOnActionExecuteAfter); overload; virtual;
      function GetOnAutomateAfterExecute(): TOnAutomateExecuteAfter; overload; virtual;
      procedure SetOnAutomateAfterExecute(const AValue: TOnAutomateExecuteAfter); overload; virtual;
    protected
      class function GetClassModels(): TModelsClass; overload; virtual;
      class function GetClassConnections(): TConnectionsClass; overload; virtual;
      class function GetClassEngineConveyor(): TEngineConveyorClass; overload; virtual;
      class function GetClassModelNet(): TModelsNetClass; overload; virtual;
    protected
      procedure Binding(); overload; virtual;
      procedure BindSubmodel(ASubmodel: TSubmodel); overload; virtual;
    protected
      function ExecBeforeExecute(): boolean; overload; virtual;
      function ExecBeforeAction(): boolean; overload; virtual;
      procedure ExecAfterAction(var AStatus: boolean); overload; virtual;
      procedure ExecAfterExecute(var AStatus: boolean); overload; virtual;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      procedure Clear(); overload; virtual;
    public
      function FindById(const AModelId: int64): TModel; overload; virtual;
      function FindByName(const AModelName: string): TModel; overload; virtual;
    public
      procedure LoadFromFile(const AFileName: string); overload; virtual;
      procedure SaveToFile(const AFileName: string); overload; virtual;
    public
      function Next(): boolean; overload; virtual;
      function Exec(): boolean; overload; virtual;
      procedure Reset(); overload; virtual;
    public
      function Connect(ASourceId, ATargetId: int64): boolean; overload; virtual;
      function Disconnect(ASourceId, ATargetId: int64): boolean; overload; virtual;
      function ConnectBy(ASourceId, ATargetId: int64): boolean; overload; virtual;
    public
        property Ready: boolean read GetReady write SetReady;
    public
        property Platform: TPlatform read GetPlatform write SetPlatform;
    published
[XMLEmbedding('Sequence')]
        property Sequence: TSequence read GetSequence write SetSequence;
    published
[XMLARRAY('Models','Model')]
        property Models: TModels read GetModels write SetModels;
[XMLARRAY('Connections','Connection')]
        property Connections: TConnections read GetConnections write SetConnections;
[XMLARRAY('Conveyor','Model')]
        property Engine: TEngineConveyor read GetEngine write SetEngine;
    published
[XMLAttribute('Vitality')]
        property Contentment: double read Getontentment write Setontentment;
    published
        property OnBeforeExecute: TOnAutomateExecuteBefore read GetOnAutomateBeforeExecute write SetOnAutomateBeforeExecute;
        property OnBeforeAction: TOnActionExecuteBefore read GetOnBeforeAction write SetOnBeforeAction;
        property OnAfterAction: TOnActionExecuteAfter read GetOnAfterAction write SetOnAfterAction;
        property OnAfterExecute: TOnAutomateExecuteAfter read GetOnAutomateAfterExecute write SetOnAutomateAfterExecute;
    end;
    TAutomateClass = class of TAutomate;

-:

1. TDesignate, ;

2. , ,

3. ontentment – «» -, «» - ;

4. Ready, - ( ).

5. - :

– OnBeforeExecute (OnAfterExecute) – () / -;

– OnBeforeAction (OnAfterAction) – () / $i$ -.

.

6. / - :

– Next(): boolean – / -:

      function TAutomate.Next(): boolean;
      begin
        if (not ExecBeforeAction()) then exit(false);
        Result := Exec();
        ExecAfterAction(Result);
      end;

– Exec(): boolean – / - , «» -:

      function TAutomate.Exec(): boolean;
      begin
        if (not ExecBeforeExecute()) then exit(false);
        repeat
          Result := Next();
        until (not Result);
        ExecAfterExecute(Result);
      end;

7. :

– Clear() – -;

– FindById(const AModelId: int64) – ;

– FindByName(const AModelName: string) – ;

– LoadFromFile(const AFileName: string) – - :

      procedure TAutomate.LoadFromFile(const AFileName: string);
      var
        AlterPath: string;
        ANameFile: JOBLIB.FileName.TFileName;
      begin
        ANameFile := AFileName;
        if (TFile.Exists(ANameFile)) then
          begin
            Ready := false;
            TSerializer.LoadFromFile(Self, AFileName);
            Ready := true;
            Binding();
            Modified := false;
            exit;
          end;
        Modified := true;
        TSerializer.SaveToFile(Self, AFileName);
        Modified := false;
      end;

– SaveToFile(const AFileName: string) – - ;

– Reset() – - ;

– Binding() – - :

      procedure TAutomate.Binding();
      var
        AModel: TModel;
        ASubmodel: TSubmodel;
        AGroupModels: TModelGroup;
        AConnection: TConnection;
      begin
        Fontentment := 0.0;
//     !
        for AModel in Models do
          begin
            AModel.Automate := Self;
            if (not (AModel is TModelGroup)) then continue;
            AGroupModels := (AModel as TModelGroup);
            for ASubmodel in AGroupModels.Submodels do
              begin
                BindSubmodel(ASubmodel);
              end;
          end;
//    !
        for AConnection in Connections do
          begin
            with AConnection do
              begin
                FindById(SourceId).Connect(FindById(TargetId), AConnection);
              end;
          end;
      end;

– BindSubmodel(ASubmodel: TSubmodel) – () - ( ).

8. -, -, – .

. -,

– $i$ -

– /.

TEngineConveyor:

    TEngineConveyor = class(TModelGroup)
    private
        FCurrModel: int64;
    protected
      procedure SetModesFreePrototype(const AValue: TModesFreePrototype); overload; override;
    public
      constructor Create(); overload; override;
      constructor Create(AOwner: TAutomate); overload; virtual;
      destructor Destroy(); override;
    public
      procedure Reset(); overload; virtual;
      function Next(): boolean; overload; virtual;
      function Perform(): boolean; overload; override;
      function Exec(): boolean; overload; override;
    end;
    TEngineConveyorClass = class of TEngineConveyor;

, :

      procedure TEngineConveyor.Reset();
      begin
        FCurrModel := 0;
      end;
      function TEngineConveyor.Next(): boolean;
      begin
        if (not Automate.ExecBeforeAction()) then exit(false);
        Result := false;
        if (FCurrModel < Submodels.Count) then
          begin
            Result := Submodels[FCurrModel].Prototype.Exec();
            System.Inc(FCurrModel);
          end;
        Automate.ExecAfterAction(Result);
      end;
      function TEngineConveyor.Exec(): boolean;
      begin
        Reset();
        if (not Automate.ExecBeforeExecute()) then exit(false);
        repeat
          Result := Next();
        until (not Result);
        Automate.ExecAfterExecute(Result);
      end;
      function TEngineConveyor.Perform(): boolean;
      begin
      end;

, Exec Next -

      function TAutomate.Next(): boolean;
      begin
        Result := Engine.Next();
      end;
      function TAutomate.Exec(): boolean;
      begin
        Result := Engine.Exec();
      end;

      procedure TEngineConveyor.SetModesFreePrototype(const AValue: TModesFreePrototype);
      begin
      end;

- ( TEngineConveyor FModesFreePrototype := []).

()

() -

– ,

– , .

, , , . :

    TPlatform = class(TModel)
    private
        FOnBeforeExecute: TOnAutomateExecuteBefore;
        FOnAutomateBeforeAction: TOnActionExecuteBefore;
        FOnAutomateAfterAction: TOnActionExecuteAfter;
        FOnAfterExecute: TOnAutomateExecuteAfter;
    protected
      function GetOnAutomateBeforeExecute(): TOnAutomateExecuteBefore; overload; virtual;
      procedure SetOnAutomateBeforeExecute(const AValue: TOnAutomateExecuteBefore); overload; virtual;
      function GetOnBeforeAction(): TOnActionExecuteBefore; overload; virtual;
      procedure SetOnBeforeAction(const AValue: TOnActionExecuteBefore); overload; virtual;
      function GetOnAfterAction(): TOnActionExecuteAfter; overload; virtual;
      procedure SetOnAfterAction(const AValue: TOnActionExecuteAfter); overload; virtual;
      function GetOnAutomateAfterExecute(): TOnAutomateExecuteAfter; overload; virtual;
      procedure SetOnAutomateAfterExecute(const AValue: TOnAutomateExecuteAfter); overload; virtual;
    protected
      function HandleBeforeExecute(AAutomate: TAutomate): boolean; overload; virtual;
      function HandleAutomateBeforeAction(AAutomate: TAutomate): boolean; overload; virtual;
      function HandleAutomateAfterAction(AAutomate: TAutomate; const AStatus: boolean): boolean; overload; virtual;
      function HandleAfterExecute(AAutomate: TAutomate; const AStatus: boolean): boolean; overload; virtual;
    public
      constructor Create(); overload; override;
      destructor Destroy(); override;
    public
      procedure Prepare(); overload; virtual;
    public
      function Exec(): boolean; overload; override;
    published
        property OnBeforeExecute: TOnAutomateExecuteBefore read GetOnAutomateBeforeExecute write SetOnAutomateBeforeExecute;
        property OnBeforeAction: TOnActionExecuteBefore read GetOnBeforeAction write SetOnBeforeAction;
        property OnAfterAction: TOnActionExecuteAfter read GetOnAfterAction write SetOnAfterAction;
        property OnAfterExecute: TOnAutomateExecuteAfter read GetOnAutomateAfterExecute write SetOnAutomateAfterExecute;
    end;
    TPlatformClass = class of TPlatform;

1. () -;

2. ;

3. Exec:

      function TPlatform.Exec(): boolean;
      begin
        Prepare();
        Result := Automate.Exec();
      end;

4. , - («») . …

, -, , , – . , :

1. «», () -.

2. :

2.1. -.

2.2. () - $i$ - .

2.3. (, ) $i$ - .

2.4. -.

2.5.1. - ( ).

2.5.2. - ( ).

3. () - - ().

4. () -.

5. () $i$ -, ().

6.1. () (DLL / BPL), .

6.2. $i$ - , , (, ZeroMQ), .

7. «» - .

, .. .

1. , [3] .. . :

– « »,

– -, (M- ).

2. , , [3], [2, 4]. , .. , , [3] , : [4], [1] [2].

3. , «» , -.

4. [3] «» , .. , - , , «-» . !

5. , [3] . () .. : , $i$ - . .. , , , .. [7] .. [8].

6. $i$ - – (, ) – , ( , , ) .

7. - . - . , , , - « » . , - - . . .

, , , , !

, .

(Ustas) open-source , .

1. .. . – , 1965.

2. .. . – , 1969.

3. .., .., .., .. : . – , 1973.

4. .. – , 1979.

5. .. . – ., 1981.

6. .. . – ., 1987.

7. .., .., .. – «» — . , « ». ., 1975; . 152–171 « ». ., 2010; . 61-81.

8. Demin A.V., Vityaev E.E. Das auf der Theorie der Funktionssysteme von P.K. Anokhina

9. Rabinovich M.I., Myezinolu M.K. Nichtlineare Dynamik des Gehirns: Emotionen und intellektuelle Aktivität - Physics ± Uspekhi, vol. 180 (2010), p. 371-387

Automaten und intelligentes Verhalten. Die wichtigsten Bestimmungen des Konzepts (Ansatz) Amosova N.M.

1.

-

-

Formale Definition eines M-Netzes

– ()

Grundeigenschaften

Ensembles $i$ -Modelle

-

-

-

-

2.

TRelation

i-

i-

i-

i-

(qualia)

i-

() i-

,

, :

TModel

-

-

-

-

()

More articles:

Automaten und intelligentes Verhalten. Die wichtigsten Bestimmungen des Konzepts (Ansatz) Amosova N.M.

1.

-

-

Formale Definition eines M-Netzes

– ()

Grundeigenschaften

Ensembles ichi-Modelle

-

-

-

-

2.

TRelation

i-

i-

i-

i-

(qualia)

i-

() i-

,

, :

TModel

-

-

-

-

()

More articles:

Ensembles $i$ -Modelle