このstochastik機能は、私はそのような機能を発見した著書「財政のためのClojure」で

Question

をどのように機能するかを説明：

(defn stochastic-k [last-price low-price high-price] 
    (let [hlrange (- high-price low-price) 
     hlmidpoint (/ hlrange 2) 
     numerator (if (> last-price hlmidpoint) 
        (- last-price hlmidpoint) 
        (- hlmidpoint low-price))] 
    (/ numerator hlrange))) 

作者としてそれを説明します

確率的-K：これは私たちを与えます高値/安値の価格変動率。

（ティモシー・ワシントンによる "Clojure for Finance" からの引用とコード、）

私はREPLで機能を試してみましたが、それは私には意味がありません出力です：

user=> (println (stochastic-k 18 13 23)) 
13/10 

結果は1.3ですが、実際には1.0と期待しています。なぜなら、私が知る限り、18が13から23までの中間点であるからです。

誰も関数がどのように動作するはずですか？

Answer 1

私の意見では実装にバグがあるようです。

numerator (if (> last-price hlmidpoint) 
        (- last-price hlmidpoint) 
        (- hlmidpoint last-price)) 

そして機能がlast-priceの範囲の平均価格と異なるんどのくらい表す割合を生成します：私は、分子は以下のようにすべきだと思います。