cortex: thesis/garbage_cortex.org comparison

comparison

equal deleted inserted replaced

-:1e51263afdc0
+:90b236381642
 - This is test1 \cite{Tappert77}.
 \cite{Tappert77}
 lol
 \cite{Tappert77}
+#+caption: This sensory predicate detects when the worm is resting on the
+#+caption: ground using the worm's sense of touch.
+#+name: resting-intro
+#+begin_listing clojure
+#+begin_src clojure
+(defn resting?
+"Is the worm resting on the ground?"
+[experiences]
+(every?
+(fn [touch-data]
+(< 0.9 (contact worm-segment-bottom touch-data)))
+(:touch (peek experiences))))
+#+end_src
+#+end_listing
+#+caption: Even complicated actions such as ``wiggling'' are fairly simple
+#+caption: to describe with a rich enough language.
+#+name: wiggling-intro
+#+begin_listing clojure
+#+begin_src clojure
+(defn wiggling?
+"Is the worm wiggling?"
+[experiences]
+(let [analysis-interval 0x40]
+(when (> (count experiences) analysis-interval)
+(let [a-flex 3
+a-ex   2
+muscle-activity
+(map :muscle (vector:last-n experiences analysis-interval))
+base-activity
+(map #(- (% a-flex) (% a-ex)) muscle-activity)]
+(= 2
+(first
+(max-indexed
+(map #(Math/abs %)
+(take 20 (fft base-activity))))))))))
+#+end_src
+#+end_listing

Mercurial > cortex