samer@0: 
samer@0: (define (joints x min max)
samer@0: 	(define nd (.getNode x))
samer@0: 	(define dir (java.io.File. (.getName nd)))
samer@0: 
samer@0:  	(Shell.push nd)
samer@0: 
samer@0: 	; could just make a map and put it
samer@0: 	(put "joint.histogram.map.symmetric" #f)
samer@0: 	(put "joint.histogram.map.maximum" max)
samer@0: 	(put "joint.histogram.map.minimum" min)
samer@0: 	(put "joint.histogram.vector" x)
samer@0: 	(put "joint.histogram.bins.dir" dir)
samer@0: )
samer@0: 
samer@0: (define (joint a b)
samer@0: 	; need to set:
samer@0: 	;	map domain
samer@0: 	;	filename for saved histogram
samer@0: 	;	node for this histogram
samer@0: 
samer@0: 	(define x (get "joint.histogram.vector"))
samer@0: 	(define dir (get "joint.histogram.bins.dir"))
samer@0: 	(define name (string-append "j" (.toString a) "v"  (.toString b)))
samer@0: 	(.mkdirs dir)
samer@0: 	(put "joint.histogram.bins.file" (java.io.File. dir name))
samer@0: 	(addtask
samer@0: 	;	(node name
samer@0: 			(JointHistogram. x 128 a b)
samer@0: 	;	)
samer@0: 	)
samer@0: )
samer@0: 
samer@0: 
samer@0: (define s (.output ica))
samer@0: (define e (viewable "prior.e"))
samer@0: (define log_s (vecfn s (LogAbs.) "log_s"))
samer@0: (define energy (vecfn s (Square.) "energy"))
samer@0: 
samer@0: (joints s -60 60)
samer@0: (joint 79 229)
samer@0: (joint 237 229)
samer@0: (Shell.pop)
samer@0: 
samer@0: (joints e 0 12)  ; was 10
samer@0: (joint 79 229)
samer@0: (joint 237 229)
samer@0: ;(Shell.pop)
samer@0: 
samer@0: (joints log_s -8 8)  ; was -6 8 i think
samer@0: (joint 79 229)
samer@0: (joint 237 229)
samer@0: ;(Shell.pop)
samer@0: 
samer@0: (joints energy 0 3600)
samer@0: (joint 79 229)
samer@0: (joint 237 229)
samer@0: (Shell.pop)