diff src/scheme/genmodel.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/scheme/genmodel.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,43 @@
+; 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"))
+)
+