Upgrade to Pro — share decks privately, control downloads, hide ads and more …

Creative machines by Joseph Wilk

Creative machines by Joseph Wilk

Watch the talk here: https://vimeo.com/68755532

Railsberry

April 23, 2013
Tweet

More Decks by Railsberry

Other Decks in Technology

Transcript

  1. Creative Machines
    Friday, 26 April 13

    View full-size slide

  2. Creative
    Friday, 26 April 13

    View full-size slide

  3. Historical
    Creative
    Psychological
    Friday, 26 April 13

    View full-size slide

  4. Transformation
    Combination Exploration
    Friday, 26 April 13

    View full-size slide

  5. Transformation
    Combination Exploration
    Friday, 26 April 13

    View full-size slide

  6. Transformation
    Combination Exploration
    Friday, 26 April 13

    View full-size slide

  7. Creative Machines
    Friday, 26 April 13

    View full-size slide

  8. Entropy
    Death =
    Chaos
    Friday, 26 April 13

    View full-size slide

  9. Friday, 26 April 13

    View full-size slide

  10. Friday, 26 April 13

    View full-size slide

  11. Friday, 26 April 13

    View full-size slide

  12. Friday, 26 April 13

    View full-size slide

  13. Friday, 26 April 13

    View full-size slide

  14. Friday, 26 April 13

    View full-size slide

  15. Music
    Friday, 26 April 13

    View full-size slide

  16. https://vimeo.com/64895689
    Friday, 26 April 13

    View full-size slide

  17. Friday, 26 April 13

    View full-size slide

  18. Turing test
    Friday, 26 April 13

    View full-size slide

  19. Haikus
    Friday, 26 April 13

    View full-size slide

  20. by would drops under
    the knees autumn journey it
    the butterfly end
    Lexicon
    my and autumn all
    white walk my god it night but
    of on changes this song
    of traveling wild
    from he all all butterfly
    shelter of face knife
    Life work of Matsuo Bashō
    ...
    ...
    ...
    Friday, 26 April 13

    View full-size slide

  21. by would drops under
    the knees autumn journey it
    the butterfly end
    Rank: 1-10
    Neural Network
    Friday, 26 April 13

    View full-size slide

  22. Features
    Friday, 26 April 13

    View full-size slide

  23. by would drops under
    the knees autumn journey it
    the butterfly end
    by
    Syllable Extractor
    would drops un-der
    Phonemes Encoder
    D - ER
    josephwilk/pronounce
    Friday, 26 April 13

    View full-size slide

  24. [0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
    0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
    D
    "D": {"manner": "stop",
    "stress": "stop",
    "point": "alveolar"}
    "ER": {"manner":
    "vowel",
    "stress": "none"}
    ER
    BinaryEncoder
    Friday, 26 April 13

    View full-size slide

  25. 1,0,1,1,0,1,0,1,0,1,1,0,1,0,
    0,0,0,1,0,1,0,1,0,1,1,0,1,0,
    1,0,0,1,0,1,0,1,0,1,1,0,1,0,
    0,0,1,1,0,1,0,1,0,1,1,0,1,0,
    0,0,0,1,1,1,0,1,0,1,1,0,1,0,
    1,0,1,0,0,1,0,1,0,1,1,0,1,0,
    1,0,1,0,0,1,1,1,0,1,1,0,1,0,
    0,0,1,0,0,1,0,1,0,1,1,0,0,1,
    1,0,1,0,0,1,1,1,0,1,1,0,1,0,
    1,0,1,1,0,1,0,1,0,1,1,0,1,0,
    1,0,1,1,0,1,0,1,1,1,1,0,1,0,
    1,0,1,1,0,1,0,1,0,1,1,0,1,0,
    0,0,1,1,0,1,0,1,0,0,1,0,1,1,
    0,1,1,1,0,1,0,1,0,1,1,0,1,0,
    0,1,1,1,0,1,0,1,0,0,1,0,1,0,
    1,0,1,1,0,1,0,1,0,1,1,0,1,0,
    1,0,1,1,0,1,0,1,0,1,1,0,1,1,
    1,0,0,1,0,1,0,1,0,0,1,0,1,1,
    1,0,1,0,0,1,0,1,0,1,1,0,1,0,
    1,0,1,1,0,1,1,1,1,0,1,0,1,0,
    0,1,1,1,0,1,0,1,1,1,1,0,1,0,
    0,0,0,0,0,1,0,1,0,1,1,0,1,0,
    Rank: 1-10
    TLearn
    josephwilk/tlearn-rb
    Friday, 26 April 13

    View full-size slide

  26. Neural Network
    input
    hidden
    out
    "mon" "key"
    "o" "key" "do" "key"
    Friday, 26 April 13

    View full-size slide

  27. Neural Network
    input
    hidden
    out
    "mon"
    "key"
    "o"
    "key"
    "do"
    "key"
    Friday, 26 April 13

    View full-size slide

  28. "mon" "key"
    "o" "key" "do" "key"
    Recurrent Network
    input
    hidden
    out
    Friday, 26 April 13

    View full-size slide

  29. Recurrent Network
    "mon" "key"
    "o" "key" "do" "key"
    input
    hidden
    out
    Friday, 26 April 13

    View full-size slide

  30. Learning
    Friday, 26 April 13

    View full-size slide

  31. by would drops under
    the knees autumn journey it
    the butterfly end
    Mutate
    by would drops under
    the knees autumn journey it
    the butterfly end
    by would drops under
    the knees autumn journey it
    the butterfly end
    Crossover
    Population n Population n+1
    by would drops under
    the knees autumn journey it
    the butterfly end
    it would rise under
    a knees autumn journey it
    the butterfly end
    by would drops under
    a knees autumn journey be
    the butterfly end
    Friday, 26 April 13

    View full-size slide

  32. Misty chestnut moon,
    wild embrace that changes night,
    like heat on the snow.
    Spring morning marvel,
    lovely nameless little hill ,
    on a sea of mist.
    Friday, 26 April 13

    View full-size slide

  33. Creative Machines
    Friday, 26 April 13

    View full-size slide

  34. “it can do whatever we know how to
    order it to perform”
    “it has no pretensions whatever to
    originate anything”
    Friday, 26 April 13

    View full-size slide

  35. Not Conscious
    Friday, 26 April 13

    View full-size slide

  36. (ns ^{:doc "The semi-sweet representation of provided forms."}
    midje.parsing.3-from-lexical-maps.from-fake-maps
    (:use midje.clojure.core
    midje.checking.core
    [midje.checkers :only [exactly]]
    [midje.checking.checkers.defining :only [checker?]]
    [midje.parsing.arrow-symbols])
    (:require [midje.util.exceptions :as exceptions]))
    (defn- mkfn:arg-matcher
    "Based on an expected value, generates a function that returns
    true if the actual value matches it."
    [expected]
    (if (and (extended-fn? expected)
    (not (checker? expected)))
    (fn [actual] (extended-= actual (exactly expected)))
    (fn [actual] (extended-= actual expected))))
    (defn mkfn:arg-matchers-with-arity
    "Generates a function that returns true if all the matchers return true for the actual args its passed."
    [matchers]
    (fn [actual-args]
    (let [arg-matchers (map mkfn:arg-matcher matchers)]
    (and (= (count actual-args) (count arg-matchers))
    (extended-list-= actual-args arg-matchers)))))
    (defn mkfn:arg-matchers-without-arity
    "Generates a function that returns true if all the matchers return true but it ignores arity matching."
    [matchers]
    (fn [actual-args]
    (let [arg-matchers (map mkfn:arg-matcher matchers)]
    (extended-list-= actual-args arg-matchers))))
    (defmulti mkfn:result-supplier (fn [arrow & _] arrow))
    (defmethod mkfn:result-supplier => [_arrow_ result] (constantly result))
    (defmethod mkfn:result-supplier =streams=> [_arrow_ result-stream]
    (let [the-stream (atom result-stream)]
    (fn []
    (when (empty? @the-stream)
    (throw (exceptions/user-error "Your =stream=> ran out of values.")))
    (let [current-result (first @the-stream)]
    (swap! the-stream rest)
    current-result))))
    (defmethod mkfn:result-supplier =throws=> [_arrow_ throwable]
    (fn []
    (when-not (instance? Throwable throwable)
    (throw (exceptions/user-error "Right side of =throws=> should extend Throwable.")))
    Empty program
    Friday, 26 April 13

    View full-size slide

  37. Non human
    Friday, 26 April 13

    View full-size slide

  38. Subconscious
    Joseph Wilk
    Friday, 26 April 13

    View full-size slide

  39. Subconscious
    Joseph Wilk
    Friday, 26 April 13

    View full-size slide