Michael Schimmel
32 lines
533 B
Plaintext
32 lines
533 B
Plaintext
(do
|
|
(def med (pipe [[dax [:Close :Open]]]
|
|
(fn [cs os]
|
|
(do
|
|
(def o (get os 0))
|
|
(def c (get cs 0))
|
|
(def mm (* 0.5 (+ o c)))
|
|
{:m mm}
|
|
)
|
|
)
|
|
))
|
|
|
|
(def v 0)
|
|
|
|
(def xxx (pipe [[dax [:High :Low]] [med [:m]]]
|
|
(fn [hs ls ms]
|
|
(do
|
|
(def h (round (get hs 0)))
|
|
(def l (round (get ls 0)))
|
|
(def m (get ms 0))
|
|
(watch "h=" h " l=" l " m=" m)
|
|
(assign v (+ v h))
|
|
{:ah v}
|
|
)
|
|
)
|
|
))
|
|
|
|
(pipe [[xxx [:ah]]]
|
|
(fn [a] (do (print (get a 0)) ...))
|
|
)
|
|
|
|
) |