emacs:brb: update qpr formula

d12frosted · Sep 16, 2024 · 5565367 · 5565367
1 parent e9488a0
commit 5565367
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/emacs/lisp/lib-brb.el b/emacs/lisp/lib-brb.el
@@ -67,19 +67,21 @@ PRICE is a positive number in `brb-currency'.
 VOLUME is a positive number in ml (default 750).
 
 QPR is adjusted to account for VOLUME."
-  (when (and score price (> price 0))
+  (when (and score price (> price 0) (> score 0))
     (setq volume (or volume 750))
     (setq price (* price (/ 750.0 volume)))
     (setq p (calc-from-number (float price)))
     (setq s (calc-from-number (float score)))
     (calc-to-number
      (math-div
-      (math-mul
-       1400
-       (math-mul (math-pow (calcFunc-fact s) (math-add 1 (math-phi)))
-                 (calcFunc-ln (math-add (calc-from-number 1.1) s))))
-      p))))
-
+      (math-sqrt
+       (math-div
+        (math-mul
+         1400
+         (math-mul (math-pow (calcFunc-fact s) (math-add 1 (math-phi)))
+                   (calcFunc-ln (math-add (calc-from-number 1.1) s))))
+        p))
+      100))))
 
 ;; * Candidates for deletion