view src/scheme/ica/train.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

(import "samer.models.*")


(define (preflush) null)
(define (alt-train-ica ica)
	(define ica-train
		(node (Node. "learn" (.getNode ica))
			(.getDiffTrainer ica)))

	(addtasks
		ica-train
		(sub 6 (task	(.diffFlush ica-train)))
		(sub (* 6 256)
			(seq
				(task (preflush) (.flush ica-train))
				(sub 16 (task (exec ica "basis")))
			)
		)
	)
	ica-train
)