anchor.diff:          (initKArray (loop for i from 0 to (1- K) collect
                                (array-slice matrix (random rowNum *random-state*)))))
       (do* ((i 1 (incf i))
  -          (poitsList initKArray  
  +          (poitsList initKArray ()
   
  +|#
  
positive.code:                    (expt (- (elt p1 i) (elt p2 i)) 2))))))
  
  (defmacro point-distance-multi (pn)
    (let* ((len (length pn))
           (symbols (loop for i from 1 to len collect
                         (gensym)))) ;(print len) (print symbols)
      `(map 'SIMPLE-VECTOR (lambda (,@symbols) (/ (+ ,@symbols) ,len))
              ,@pn)))
  
  (defun org-matrix (matrix arrayList)
    (let* ((len (length arrayList))
  
negative.code:            ;(print distanceList) (print po)(print arraysReList)
             ))
      arraysReList))
  #|
  (defun K-mean (matrix K &key (iterTime 1000))
    "matrix is input matrix included all train data set, K is cluster number"
    (let ((result '())   ;result is a list for all cluster center point
  