view src/scheme/genmodel.scm @ 1:5df24c91468d

Oh my what a mess.

; Test noisy linear mixtures
; first version using NoisyLinearSource

(put "mix.p" 0.08)
(put "mix.gauss.mean" 0)
(put "mix.gauss.variance" 0.1)
(put "noise.mean" 0)
(put "noise.variance" 0.05)

(node "v1"
	(addtask	(NoisyLinearSource. 8 16))

	(load-generator (viewable "noise"))
	(load-generator (viewable "source"))
)

; scheme version

(node "v2"
	(let* 
		(	(n	8)
			(m 16)
			(x (VVector. "x" n))
			(A (Matrix.  "A" m n))
			(e (VVector. "e" m))
			(y (VVector. "y" m))
			(g1 (VGenerator. "source"))
			(g2 (VGenerator. "noise"))
		)	
		(addtasks
			(GenerateVector. x g1)
			(GenerateVector. e g2)
			(MatrixTimesVector. y A x)
			(VectorPlusEqualsVector. y e)
			(Ops.update x)
			(Ops.update y)
			(Ops.update e)
		)
	)
	(load-generator (viewable "noise"))
	(load-generator (viewable "source"))
)