;;; ---------------------------------------------------------------------------
(defun poisson-vertex-degree-distribution (z k)
- (/ (* (expt z k) (expt +e+ (- z)))
+ (/ (* (expt z k) (expt cl-mathstats:+e+ (- z)))
(factorial k)))
#|
;;; ---------------------------------------------------------------------------
(defun power-law-vertex-degree-distribution (kappa k)
- (* (- 1 (expt +e+ (- (/ kappa)))) (expt +e+ (- (/ k kappa)))))
+ (* (- 1 (expt cl-mathstats:+e+ (- (/ kappa))))
+ (expt cl-mathstats:+e+ (- (/ k kappa)))))
;;; ---------------------------------------------------------------------------