Updates paper draft for final chi2 table

papers/resources/adj.l

@@ -0,0 +1,28 @@
+(defun get-temperature-adjusted-probability (prob &aux low-prob-factor
+						       result)
+; This function is a filter:  it inputs a value (from 0 to 100) and returns
+; a probability (from 0 - 1) based on that value and the temperature.  When
+; the temperature is 0, the result is (/ value 100), but at higher 
+; temperatures, values below 50 get raised and values above 50 get lowered
+; as a function of temperature.
+; I think this whole formula could probably be simplified.
+
+  (setq result
+	(cond ((= prob 0) 0)
+	      ((<= prob .5)
+               (setq low-prob-factor (max 1 (truncate (abs (log prob 10)))))
+               (min (+ prob 
+		       (* (/ (- 10 (sqrt (fake-reciprocal *temperature*))) 
+			     100) 
+			  (- (expt 10 (- (1- low-prob-factor))) prob)))
+		    .5))
+		     
+   	      ((= prob .5) .5)
+	      ((> prob .5)
+               (max (- 1
+		        (+ (- 1 prob) 
+		           (* (/ (- 10 (sqrt (fake-reciprocal *temperature*))) 
+			         100)
+			      (- 1 (- 1 prob)))))
+	            .5))))
+  result)