view org/genesis_demonstration.clj @ 540:def6f62831df

misc fixes.
author Robert McIntyre <rlm@mit.edu>
date Sun, 27 Apr 2014 21:57:05 -0400
parents ac747fa0a678
children 9647f0168287
line wrap: on
line source
1 (ns org.aurellem.genesis_demonstration
2 (:use clojure.java.shell)
3 (:use org.aurellem.worm-learn)
4 (:use org.aurellem.self-organizing-touch)
5 (:use cortex.test)
6 (:use cortex.import)
7 (:use cortex.util))
9 (mega-import-jme3)
10 (def play (comp dorun (partial sh "mplayer" "-fs")))
13 (comment
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15 ;;;;;; CORTEX ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 ;; show some bodies
20 (.start (cortex.test.body/test-hand-3))
21 (play "/home/r/proj/cortex/video/full-hand.ogg")
24 ;; hearing
25 ;; interactive hearing
26 (run-test #'cortex.test.hearing/test-worm-hearing)
27 ;; multiple listeners
28 (run-test #'cortex.test.hearing/test-java-hearing)
29 (play "/home/r/proj/cortex/video/java-hearing-test.ogg")
31 ;; touch
32 (run-test #'cortex.test.touch/test-basic-touch)
33 (play "/home/r/proj/cortex/video/basic-touch.ogg")
35 ;; proprioception
36 (run-test #'cortex.test.proprioception/test-proprioception)
38 ;; movement
39 (run-test #'cortex.test.movement/test-worm-movement)
41 ;; instrumented hand
42 (play "/home/r/proj/cortex/video/hand-fixed.mkv")
45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
46 ;;;;;; EMPATH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
50 ;; init system with a basic training script
51 (init)
52 ;; demonstrate basic empathy; view phi-space
53 (empathy-experiment-1 false)
54 ;; init system with an interactive training session
55 (init-interactive)
56 ;; empathy is much better with more training
57 (empathy-experiment-2)
59 ;;;;; Learning touch
61 ;; small worm segment that learns its topology
62 (learn-and-view-touch-regions)
66 )