U
    »mœdÖg  ã                	   @   s¾   d Z ddlmZ ddlmZ ddlZddddd	d
gZG dd„ de	ƒZ
d*dd„Zd+dd„ZeZd,dd„Zd-dd	„Zdd„ Zdd„ Zdd„ Zd.dd
„Zd/dd „Zd0d!d"„Zd1d%d&„Zd2d(d)„ZdS )3z·
Functions
---------
.. autosummary::
   :toctree: generated/

    line_search_armijo
    line_search_wolfe1
    line_search_wolfe2
    scalar_search_wolfe1
    scalar_search_wolfe2

é    )Úwarn)Ú	_minpack2NÚLineSearchWarningÚline_search_wolfe1Úline_search_wolfe2Úscalar_search_wolfe1Úscalar_search_wolfe2Úline_search_armijoc                   @   s   e Zd ZdS )r   N)Ú__name__Ú
__module__Ú__qualname__© r   r   úS/home/sam/Atlas/atlas_env/lib/python3.8/site-packages/scipy/optimize/_linesearch.pyr      s   r   ç-Cëâ6?çÍÌÌÌÌÌì?é2   ç:Œ0âŽyE>ç›+¡†›„=c                    sœ   |dkrˆˆfˆ žŽ }|g‰dg‰dg‰‡ ‡‡‡‡fdd„}‡ ‡‡‡‡‡fdd„}t  |ˆ¡}t|||||||	|
||d�
\}}}|ˆd ˆd ||ˆd fS )aÞ  
    As `scalar_search_wolfe1` but do a line search to direction `pk`

    Parameters
    ----------
    f : callable
        Function `f(x)`
    fprime : callable
        Gradient of `f`
    xk : array_like
        Current point
    pk : array_like
        Search direction

    gfk : array_like, optional
        Gradient of `f` at point `xk`
    old_fval : float, optional
        Value of `f` at point `xk`
    old_old_fval : float, optional
        Value of `f` at point preceding `xk`

    The rest of the parameters are the same as for `scalar_search_wolfe1`.

    Returns
    -------
    stp, f_count, g_count, fval, old_fval
        As in `line_search_wolfe1`
    gval : array
        Gradient of `f` at the final point

    Nr   c                    s&   ˆd  d7  < ˆˆ| ˆ  fˆ žŽ S ©Nr   é   r   ©Ús©ÚargsÚfÚfcÚpkÚxkr   r   ÚphiI   s    zline_search_wolfe1.<locals>.phic                    s:   ˆˆ| ˆ  fˆ žŽ ˆd< ˆd  d7  < t  ˆd ˆ¡S r   ©ÚnpÚdotr   )r   ÚfprimeÚgcÚgvalr   r   r   r   ÚderphiM   s    z"line_search_wolfe1.<locals>.derphi)Úc1Úc2ÚamaxÚaminÚxtol)r    r!   r   )r   r"   r   r   ÚgfkÚold_fvalÚold_old_fvalr   r&   r'   r(   r)   r*   r   r%   Úderphi0ÚstpZfvalr   )r   r   r   r"   r#   r$   r   r   r   r      s*    #        þc
                 C   s  |dkr| dƒ}|dkr |dƒ}|dk	rT|dkrTt dd||  | ƒ}
|
dk rXd}
nd}
|}|}t dtj¡}t dt¡}d}d	}t|ƒD ]T}t |
|||||	|||||¡\}}}}|dd
… dkrÚ|}
| |ƒ}||ƒ}qŠ qäqŠd}|dd… dk�s|dd… dk�rd}|||fS )a,  
    Scalar function search for alpha that satisfies strong Wolfe conditions

    alpha > 0 is assumed to be a descent direction.

    Parameters
    ----------
    phi : callable phi(alpha)
        Function at point `alpha`
    derphi : callable phi'(alpha)
        Objective function derivative. Returns a scalar.
    phi0 : float, optional
        Value of phi at 0
    old_phi0 : float, optional
        Value of phi at previous point
    derphi0 : float, optional
        Value derphi at 0
    c1 : float, optional
        Parameter for Armijo condition rule.
    c2 : float, optional
        Parameter for curvature condition rule.
    amax, amin : float, optional
        Maximum and minimum step size
    xtol : float, optional
        Relative tolerance for an acceptable step.

    Returns
    -------
    alpha : float
        Step size, or None if no suitable step was found
    phi : float
        Value of `phi` at the new point `alpha`
    phi0 : float
        Value of `phi` at `alpha=0`

    Notes
    -----
    Uses routine DCSRCH from MINPACK.

    Nç        r   ç      ð?ç)\�Âõ( @)é   )é   s   STARTéd   r3   s   FGé   s   ERRORé   s   WARN)Úminr    ZzerosZintcÚfloatÚrangeÚminpack2Zdcsrch)r   r%   Úphi0Úold_phi0r.   r&   r'   r(   r)   r*   Úalpha1Úphi1Zderphi1ZisaveZdsaveÚtaskÚmaxiterÚir/   r   r   r   r   [   sF    ,
      þ
$é
   c                    sæ   dg‰dg‰dg‰dg‰‡ ‡‡‡	‡
fdd„}|‰‡ ‡‡‡‡‡	‡
fdd„‰|dkr^ˆˆ
fˆ žŽ }t  |ˆ	¡}ˆdk	rŠ‡‡‡‡‡	‡
fdd„}nd}t|ˆ|||||	|
||d	�
\}}}}|dkrÆtd
tƒ nˆd }|ˆd ˆd |||fS )a‡  Find alpha that satisfies strong Wolfe conditions.

    Parameters
    ----------
    f : callable f(x,*args)
        Objective function.
    myfprime : callable f'(x,*args)
        Objective function gradient.
    xk : ndarray
        Starting point.
    pk : ndarray
        Search direction.
    gfk : ndarray, optional
        Gradient value for x=xk (xk being the current parameter
        estimate). Will be recomputed if omitted.
    old_fval : float, optional
        Function value for x=xk. Will be recomputed if omitted.
    old_old_fval : float, optional
        Function value for the point preceding x=xk.
    args : tuple, optional
        Additional arguments passed to objective function.
    c1 : float, optional
        Parameter for Armijo condition rule.
    c2 : float, optional
        Parameter for curvature condition rule.
    amax : float, optional
        Maximum step size
    extra_condition : callable, optional
        A callable of the form ``extra_condition(alpha, x, f, g)``
        returning a boolean. Arguments are the proposed step ``alpha``
        and the corresponding ``x``, ``f`` and ``g`` values. The line search
        accepts the value of ``alpha`` only if this
        callable returns ``True``. If the callable returns ``False``
        for the step length, the algorithm will continue with
        new iterates. The callable is only called for iterates
        satisfying the strong Wolfe conditions.
    maxiter : int, optional
        Maximum number of iterations to perform.

    Returns
    -------
    alpha : float or None
        Alpha for which ``x_new = x0 + alpha * pk``,
        or None if the line search algorithm did not converge.
    fc : int
        Number of function evaluations made.
    gc : int
        Number of gradient evaluations made.
    new_fval : float or None
        New function value ``f(x_new)=f(x0+alpha*pk)``,
        or None if the line search algorithm did not converge.
    old_fval : float
        Old function value ``f(x0)``.
    new_slope : float or None
        The local slope along the search direction at the
        new value ``<myfprime(x_new), pk>``,
        or None if the line search algorithm did not converge.


    Notes
    -----
    Uses the line search algorithm to enforce strong Wolfe
    conditions. See Wright and Nocedal, 'Numerical Optimization',
    1999, pp. 59-61.

    Examples
    --------
    >>> import numpy as np
    >>> from scipy.optimize import line_search

    A objective function and its gradient are defined.

    >>> def obj_func(x):
    ...     return (x[0])**2+(x[1])**2
    >>> def obj_grad(x):
    ...     return [2*x[0], 2*x[1]]

    We can find alpha that satisfies strong Wolfe conditions.

    >>> start_point = np.array([1.8, 1.7])
    >>> search_gradient = np.array([-1.0, -1.0])
    >>> line_search(obj_func, obj_grad, start_point, search_gradient)
    (1.0, 2, 1, 1.1300000000000001, 6.13, [1.6, 1.4])

    r   Nc                    s&   ˆd  d7  < ˆˆ| ˆ  fˆ žŽ S r   r   ©Úalphar   r   r   r     s    zline_search_wolfe2.<locals>.phic                    sB   ˆd  d7  < ˆˆ| ˆ  fˆ žŽ ˆd< | ˆd< t  ˆd ˆ¡S r   r   rD   )r   r"   r#   r$   Ú
gval_alphar   r   r   r   r%     s    z"line_search_wolfe2.<locals>.derphic                    s2   ˆd | krˆ | ƒ ˆ| ˆ  }ˆ| ||ˆd ƒS )Nr   r   )rE   r   Úx)r%   Úextra_conditionr$   rF   r   r   r   r   Úextra_condition2%  s    z,line_search_wolfe2.<locals>.extra_condition2)rA   ú*The line search algorithm did not converge)r    r!   r   r   r   )r   Zmyfprimer   r   r+   r,   r-   r   r&   r'   r(   rH   rA   r   r.   rI   Ú
alpha_starÚphi_starÚderphi_starr   )r   r%   rH   r   r   r"   r#   r$   rF   r   r   r   r   µ   s:    X        þc
                 C   s  |dkr| dƒ}|dkr |dƒ}d}
|dk	rL|dkrLt dd||  | ƒ}nd}|dk r\d}|dk	rnt ||ƒ}| |ƒ}|}|}|dkrŽdd„ }t|	ƒD �]P}|dks´|dk	rî|
|krîd}|}|}d}|dkrÒd}nd	d
|  }t|tƒ  �q |dk}|||| |  k�s||k�rF|�rFt|
||||| ||||||ƒ\}}} �q ||ƒ}t|ƒ| | k�r€|||ƒ�r€|}|}|} �q |dk�r´t||
|||| ||||||ƒ\}}} �q d| }|dk	�rÐt ||ƒ}|}
|}|}| |ƒ}|}q–|}|}d}tdtƒ ||||fS )a­  Find alpha that satisfies strong Wolfe conditions.

    alpha > 0 is assumed to be a descent direction.

    Parameters
    ----------
    phi : callable phi(alpha)
        Objective scalar function.
    derphi : callable phi'(alpha)
        Objective function derivative. Returns a scalar.
    phi0 : float, optional
        Value of phi at 0.
    old_phi0 : float, optional
        Value of phi at previous point.
    derphi0 : float, optional
        Value of derphi at 0
    c1 : float, optional
        Parameter for Armijo condition rule.
    c2 : float, optional
        Parameter for curvature condition rule.
    amax : float, optional
        Maximum step size.
    extra_condition : callable, optional
        A callable of the form ``extra_condition(alpha, phi_value)``
        returning a boolean. The line search accepts the value
        of ``alpha`` only if this callable returns ``True``.
        If the callable returns ``False`` for the step length,
        the algorithm will continue with new iterates.
        The callable is only called for iterates satisfying
        the strong Wolfe conditions.
    maxiter : int, optional
        Maximum number of iterations to perform.

    Returns
    -------
    alpha_star : float or None
        Best alpha, or None if the line search algorithm did not converge.
    phi_star : float
        phi at alpha_star.
    phi0 : float
        phi at 0.
    derphi_star : float or None
        derphi at alpha_star, or None if the line search algorithm
        did not converge.

    Notes
    -----
    Uses the line search algorithm to enforce strong Wolfe
    conditions. See Wright and Nocedal, 'Numerical Optimization',
    1999, pp. 59-61.

    Nr0   r   r1   r2   c                 S   s   dS )NTr   )rE   r   r   r   r   Ú<lambda>�  ó    z&scalar_search_wolfe2.<locals>.<lambda>z7Rounding errors prevent the line search from convergingz4The line search algorithm could not find a solution zless than or equal to amax: %sr3   rJ   )r8   r:   r   r   Ú_zoomÚabs)r   r%   r<   r=   r.   r&   r'   r(   rH   rA   Úalpha0r>   Úphi_a1Úphi_a0Z	derphi_a0rB   rK   rL   rM   ÚmsgZnot_first_iterationZ	derphi_a1Úalpha2r   r   r   r   =  s¦    9
ÿ
ÿÿ       þÿ
       þÿ


c              
   C   s6  t jdddd���
 zà|}||  }||  }	||	 d ||	  }
t  d¡}|	d |d< |d  |d< |	d  |d< |d |d	< t  |t  || ||  || ||	  g¡ ¡ ¡\}}||
 }||
 }|| d| |  }| | t  |¡ d|   }W n" tk
�r   Y W 5 Q R £ d
S X W 5 Q R X t  |¡�s2d
S |S )z¾
    Finds the minimizer for a cubic polynomial that goes through the
    points (a,fa), (b,fb), and (c,fc) with derivative at a of fpa.

    If no minimizer can be found, return None.

    Úraise©ÚdivideZoverÚinvalidr3   )r3   r3   )r   r   )r   r   é   )r   r   )r   r   N)	r    ÚerrstateÚemptyr!   ZasarrayÚflattenÚsqrtÚArithmeticErrorÚisfinite)ÚaÚfaÚfpaÚbÚfbÚcr   ÚCÚdbZdcÚdenomZd1ÚAÚBÚradicalÚxminr   r   r   Ú	_cubicminÎ  s.    

ÿ ro   c           
   	   C   s�   t jdddd��h z@|}|}|| d  }|| ||  ||  }| |d|   }	W n  tk
rr   Y W 5 Q R £ dS X W 5 Q R X t  |	¡sŒdS |	S )z†
    Finds the minimizer for a quadratic polynomial that goes through
    the points (a,fa), (b,fb) with derivative at a of fpa.

    rW   rX   r1   ç       @N)r    r\   r`   ra   )
rb   rc   rd   re   rf   ÚDrh   ri   rl   rn   r   r   r   Ú_quadminð  s    
rr   c                 C   s¢  d}d}d}d}|}d}||  }|dk r4||  }}n
| | }}|dkrb|| }t | ||||||ƒ}|dksŠ|dksŠ||| ksŠ||| k rÎ|| }t| ||||ƒ}|dksÂ||| ksÂ||| k rÎ| d|  }||ƒ}|||	| |  ksô||k�r|}|}|}|}np||ƒ}t|ƒ|
 | k�r>|||ƒ�r>|}|}|}�q˜|||   dk�rb|}|}| }|}n|}| }|} |}|}|d7 }||krd}d}d}�q˜q|||fS )a  Zoom stage of approximate linesearch satisfying strong Wolfe conditions.
    
    Part of the optimization algorithm in `scalar_search_wolfe2`.
    
    Notes
    -----
    Implements Algorithm 3.6 (zoom) in Wright and Nocedal,
    'Numerical Optimization', 1999, pp. 61.

    rC   r   gš™™™™™É?çš™™™™™¹?Nç      à?r   )ro   rr   rQ   )Za_loZa_hiZphi_loZphi_hiZ	derphi_lor   r%   r<   r.   r&   r'   rH   rA   rB   Zdelta1Zdelta2Zphi_recZa_recZdalpharb   re   ZcchkZa_jZqchkZphi_ajZ	derphi_ajZa_starZval_starZvalprime_starr   r   r   rP     sd    	

 ÿ(  rP   r   c                    sj   t  ˆ¡‰dg‰‡ ‡‡‡‡fdd„}|dkr6|dƒ}	n|}	t  |ˆ¡}
t||	|
||d�\}}|ˆd |fS )a  Minimize over alpha, the function ``f(xk+alpha pk)``.

    Parameters
    ----------
    f : callable
        Function to be minimized.
    xk : array_like
        Current point.
    pk : array_like
        Search direction.
    gfk : array_like
        Gradient of `f` at point `xk`.
    old_fval : float
        Value of `f` at point `xk`.
    args : tuple, optional
        Optional arguments.
    c1 : float, optional
        Value to control stopping criterion.
    alpha0 : scalar, optional
        Value of `alpha` at start of the optimization.

    Returns
    -------
    alpha
    f_count
    f_val_at_alpha

    Notes
    -----
    Uses the interpolation algorithm (Armijo backtracking) as suggested by
    Wright and Nocedal in 'Numerical Optimization', 1999, pp. 56-57

    r   c                    s&   ˆd  d7  < ˆˆ| ˆ  fˆ žŽ S r   r   )r>   r   r   r   r   …  s    zline_search_armijo.<locals>.phiNr0   )r&   rR   )r    Z
atleast_1dr!   Úscalar_search_armijo)r   r   r   r+   r,   r   r&   rR   r   r<   r.   rE   r?   r   r   r   r	   `  s    "


ÿ
c           	   
   C   s0   t | |||||||d�}|d |d d|d fS )z8
    Compatibility wrapper for `line_search_armijo`
    )r   r&   rR   r   r   r3   )r	   )	r   r   r   r+   r,   r   r&   rR   Úrr   r   r   Úline_search_BFGS”  s    ÿrw   c                 C   s–  | |ƒ}|||| |  kr$||fS | |d  d || ||   }| |ƒ}|||| |  krj||fS ||k�rŽ|d |d  ||  }	|d || ||   |d || ||    }
|
|	 }
|d  || ||   |d || ||    }||	 }| t  t|d d|
 |  ƒ¡ d|
  }| |ƒ}|||| |  k�rP||fS || |d k�std||  dk �r||d }|}|}|}|}qjd|fS )a(  Minimize over alpha, the function ``phi(alpha)``.

    Uses the interpolation algorithm (Armijo backtracking) as suggested by
    Wright and Nocedal in 'Numerical Optimization', 1999, pp. 56-57

    alpha > 0 is assumed to be a descent direction.

    Returns
    -------
    alpha
    phi1

    r3   rp   r[   g      @r   g¸…ëQ¸î?N)r    r_   rQ   )r   r<   r.   r&   rR   r)   rT   r>   rS   Úfactorrb   re   rV   Zphi_a2r   r   r   ru   �  s8    "
ÿÿ,$ru   rs   rt   c                 C   s  |d }t |ƒ}	d}
d}d}||
|  }| |ƒ\}}||	| ||
d  |  krX|
}�q|
d | |d|
 d |   }|||  }| |ƒ\}}||	| ||d  |  kr¶| }�q|d | |d| d |   }t |||
 ||
 ¡}
t ||| || ¡}q||||fS )a@  
    Nonmonotone backtracking line search as described in [1]_

    Parameters
    ----------
    f : callable
        Function returning a tuple ``(f, F)`` where ``f`` is the value
        of a merit function and ``F`` the residual.
    x_k : ndarray
        Initial position.
    d : ndarray
        Search direction.
    prev_fs : float
        List of previous merit function values. Should have ``len(prev_fs) <= M``
        where ``M`` is the nonmonotonicity window parameter.
    eta : float
        Allowed merit function increase, see [1]_
    gamma, tau_min, tau_max : float, optional
        Search parameters, see [1]_

    Returns
    -------
    alpha : float
        Step length
    xp : ndarray
        Next position
    fp : float
        Merit function value at next position
    Fp : ndarray
        Residual at next position

    References
    ----------
    [1] "Spectral residual method without gradient information for solving
        large-scale nonlinear systems of equations." W. La Cruz,
        J.M. Martinez, M. Raydan. Math. Comp. **75**, 1429 (2006).

    éÿÿÿÿr   r3   )Úmaxr    Úclip)r   Úx_kÚdZprev_fsÚetaÚgammaÚtau_minÚtau_maxÚf_kZf_barÚalpha_pÚalpha_mrE   ÚxpÚfpÚFpÚalpha_tpÚalpha_tmr   r   r   Ú_nonmonotone_line_search_cruzÛ  s(    (  rŠ   ç333333ë?c                 C   s(  d}d}d}|||  }| |ƒ\}}||| ||d  |  krF|}qð|d | |d| d |   }|||  }| |ƒ\}}||| ||d  |  kr¢| }qð|d | |d| d |   }t  ||| |	| ¡}t  ||| |	| ¡}q|
| d }|
| ||  | | }|}||||||fS )aŠ  
    Nonmonotone line search from [1]

    Parameters
    ----------
    f : callable
        Function returning a tuple ``(f, F)`` where ``f`` is the value
        of a merit function and ``F`` the residual.
    x_k : ndarray
        Initial position.
    d : ndarray
        Search direction.
    f_k : float
        Initial merit function value.
    C, Q : float
        Control parameters. On the first iteration, give values
        Q=1.0, C=f_k
    eta : float
        Allowed merit function increase, see [1]_
    nu, gamma, tau_min, tau_max : float, optional
        Search parameters, see [1]_

    Returns
    -------
    alpha : float
        Step length
    xp : ndarray
        Next position
    fp : float
        Merit function value at next position
    Fp : ndarray
        Residual at next position
    C : float
        New value for the control parameter C
    Q : float
        New value for the control parameter Q

    References
    ----------
    .. [1] W. Cheng & D.-H. Li, ''A derivative-free nonmonotone line
           search and its application to the spectral residual
           method'', IMA J. Numer. Anal. 29, 814 (2009).

    r   r3   )r    r{   )r   r|   r}   r‚   rh   ÚQr~   r   r€   r�   Únurƒ   r„   rE   r…   r†   r‡   rˆ   r‰   ZQ_nextr   r   r   Ú_nonmonotone_line_search_cheng#  s*    /  rŽ   )	NNNr   r   r   r   r   r   )NNNr   r   r   r   r   )	NNNr   r   r   NNrC   )NNNr   r   NNrC   )r   r   r   )r   r   r   )r   r   r   )r   rs   rt   )r   rs   rt   r‹   )Ú__doc__Úwarningsr   Zscipy.optimizer   r;   Únumpyr    Ú__all__ÚRuntimeWarningr   r   r   Zline_searchr   r   ro   rr   rP   r	   rw   ru   rŠ   rŽ   r   r   r   r   Ú<module>   s|    þ              ý
<         þ
S             þ
 	            ý
 "[
4
	
?     ÿ
I      þ