anchor.diff:                 (1+ rowNum))))
       result))
   
  +
  +;; Sbcl dont have the fminunc function which in matlab, so I need figure out the new
  +;; method to fix that
  +;; the answer is theta = -24.9330 0.2044 0.1996 cost = 0.2035
   (defun gradient-descent-lr (X theta y alpha iterTime)
     "use some functions get mini value"
     (let ((thetaRe)
           (miniV))
  -    (dotimes (i iterTime thetaRe)
  +    (dotimes (i iterTime)
         (let ((pd (partial-derivative-lr X theta y))
  -            (pp "ii")
  -            #|(pppp (print X))
  -            (ppppp (print theta))
  -            (pppppp (print y))|#
               (temp (compute-cost X theta y)))
  -        (print i) (print temp) (print pp)
  +        (print i)
           (setf miniV 
                 (cond ((= i 0) (setf miniV temp))
                       ((< temp miniV) (setf miniV temp))
  
positive.code:               (cond ((= i 0) (setf thetaRe theta))
                      ((< temp miniV) (setf thetaRe theta))
                      (t thetaRe)))
          (print miniV)
          (loop for ind from 0 to (1- (length theta)) do
               (setf (elt theta ind)
                     (- (elt theta ind) (* alpha (elt pd ind)))))))
      ))
  
  ;;; exercise below
  
  
negative.code: (defvar *theta*)
  (setf *theta* (make-array 3 :initial-element 0))
  
  ;(compute-cost *X* *theta* *y*)
  ;(partial-derivative-lr *X* *theta* *y*)
  