OverviewFilesCommitsIssuesDocsReleasesPeers

opencog-atomese-simd / examples / dot-product-bad.scm

26 lines · scm ref: 
;
; dot-product-bad.scm
;
; An example of taking dot products between a pair of vectors.
; Its "bad" in that this example does not quite work yet, at least,
; not in the way in which it's desired to work.
;
(use-modules (opencog) (opencog exec))

(cog-set-value! (Anchor "location") (Predicate "vector-pairs")
	(LinkValue
		(FloatValue 1 2 3 4 5)
		(FloatValue 1 1 1 2 2)))

(define pair-location
	(FloatValueOf (Anchor "location") (Predicate "vector-pairs")))

(cog-execute! (Plus pair-location))

(cog-execute! (ElementOf (Number 0) pair-location))
(cog-execute! (ElementOf (Number 1) pair-location))

(cog-execute! (Plus
	(ElementOf (Number 0) pair-location)
	(ElementOf (Number 1) pair-location)))