view examples/mds/mds.scm @ 8:5e3cbbf173aa tip

Reorganise some more

(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")