Erklären Sie, wie diese Stochastik Funktion

Question

In dem Buch „Clojure für Finanzen“ arbeitet fand ich eine Funktion wie folgt aus:

(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))) 

Der Autor beschreibt sie als:

stochastischen-k: Dies gibt uns unser Prozentsatz der Preisbewegung des Hoch-/Niedrigpreises.

(Zitat und Code von "Clojure for Finance" von Timothy Washington)

habe ich versucht, die Funktion in der REPL, aber es ist Ausgabe macht keinen Sinn für mich machen:

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

Also das Ergebnis ist 1.3, aber ich würde eigentlich 1.0 erwarten, denn 18 ist der Mittelpunkt des Bereichs von 13 bis 23, soweit ich das beurteilen kann.

Kann mir jemand erklären, wie die Funktion funktionieren soll?

Answer 1

Es scheint, ein Fehler in der Implementierung meiner Meinung nach. Ich denke, der Zähler soll wie:

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

Und dann würde die Funktion einen Bruchteil produzieren darstellt, wie viel kostet die last-price aus dem Durchschnittspreis im Bereich unterscheiden.