generate/examples/basic-network.scm at master · opencog/generate · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
;
; basic-network.scm
;
; Example of a lexis that can be used to generate random networks.
; The lexis contains only one node type and one edge type, and so
; the generated network will consist of only these two. Six sections
; are defined, having one through six connectors on them. These are
; given a weighting, so that when the network is assembled, the
; weights determine the probability that a node will be used.
;
(use-modules (srfi srfi-1))
(use-modules (opencog) (opencog exec))

; Six burrs with arities one through six.
(define b1
(Section
	(Concept "burr-1")
	(ConnectorSeq
		(Connector (Concept "E") (ConnectorDir "*")))))

(define b2
(Section
	(Concept "burr-2")
	(ConnectorSeq
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*")))))

(define b3
(Section
	(Concept "burr-3")
	(ConnectorSeq
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*")))))

(define b4
(Section
	(Concept "burr-4")
	(ConnectorSeq
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*")))))

(define b5
(Section
	(Concept "burr-5")
	(ConnectorSeq
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*")))))

(define b6
(Section
	(Concept "burr-6")
	(ConnectorSeq
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*"))
		(Connector (Concept "E") (ConnectorDir "*")))))

; Give each of them a weight; this will be the probaility of
; their being drawn (selected) when assempling the graph.
(define weights (PredicateNode "weights"))

(cog-set-value! b1 weights (FloatValue 1))
(cog-set-value! b2 weights (FloatValue (/ 1.0 2)))
(cog-set-value! b3 weights (FloatValue (/ 1.0 3)))
(cog-set-value! b4 weights (FloatValue (/ 1.0 4)))
(cog-set-value! b5 weights (FloatValue (/ 1.0 5)))
(cog-set-value! b6 weights (FloatValue (/ 1.0 6)))

; Place the six burrs into a common lexis
(define lexis (Concept "six burrs"))
(Member b1 lexis)
(Member b2 lexis)
(Member b3 lexis)
(Member b4 lexis)
(Member b5 lexis)
(Member b6 lexis)

; Define the connectable directions (poles). In this case, the
; connectors are all the same, and the direction (or "pole")
; connects to itself (rather than having opposite polarity).
; Furthermore, the connections are symmetric (creating undirected
; edges.) Thus, the pole-pair set is very simple.
(define polarity-set (Concept "any to any"))
(Member (Set (ConnectorDir "*") (ConnectorDir "*")) polarity-set)

; Be silent when loading this file.
*unspecified*