diff examples/mds/mds.scm @ 1:5df24c91468d

Oh my what a mess.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/mds/mds.scm	Fri Apr 05 16:26:00 2019 +0100
@@ -0,0 +1,37 @@
+(import "samer.mds.*")
+
+(put "colormap" (redgreen))
+(put "oz.background" (Color. 0 0 0))
+
+(define N 16)
+(define D (Matrix. "D" N N))
+(define P (Matrix. "P" N 4))
+(define s (VVector. "s" N))
+(Mathx.set (.array s) (Constant. 0.5))
+
+;(MatrixBall.setBallSize 16 16)
+(define mds (MDS. P))
+(addtasks 
+	(CovarianceTask. mds D)
+	mds
+)
+(.setDimensionality mds 2)
+(expose)
+
+(define gauss (samer.maths.random.NormalisedGaussian.))
+(define uniform (samer.maths.random.Uniform.))
+(define raleigh (samer.maths.random.Raleigh.))
+(define (rndP) (.set P gauss) (.changed P))
+(define (rndD) (.set D uniform) (.changed D))
+
+;(matexec D "load")
+(matexec D "image")
+;(.setColumn (RowColumn. (Node. "Px") P) 0)
+;(.setColumn (RowColumn. (Node. "Py") P) 1)
+(rndD)
+(rndP)
+
+(define oz (node "oz" (MatrixPointViewer2. P s)))
+(expose oz "Oz")
+
+