(defun intgral-rayleigh (time endTime)
  ;Return the so far availible capitl until time
  (let ((midTime (/ endTime 2))
	(skew 0))
    (setf skew (/ 1 (* midTime midTime)))
    (- 1 (exp (- (* skew time time))))))

(defun rayleigh (time endTime)
  ;Trunkate the cure at 2 beacuse after 2 there is max 3.5% activated 
  (let ((fracTime (* (/ time endTime)  2))
	(skew 1))
    ;(setf skew (/ 1 (* midTime midTime)))
    (* fracTime (exp (- (* skew fracTime fracTime))))))

;Returns how big part of the team that is activated
(defun activePart (time endTime)
  (* 2.331643982 (rayleigh time endTime)))