Объясните, как эта функция stochastik работает

Question

В книге «Clojure финансов» Я нашел такую ​​функцию, что:

(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: Это дает нам наш процент движения цены по высокой/низкой цене.

(Quote и код от "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 отличается от средней цены в диапазоне.