U
    ZÊ¹jà  ã                   @   sn   d Z ddlmZ ddlmZ ddlmZ ddlmZ	m
ZmZ ddd„Zdd	d
„Zddd„Z
dddœdd„ZdS )z,Functions returning normal forms of matricesé    )ÚZZ)ÚPoly)ÚDomainMatrix)Úsmith_normal_formÚinvariant_factorsÚhermite_normal_formNc                 C   sB   t | ddƒ}|  dd„ ¡} t | ¡}|p*|}|dk	r>| |¡}|S )zConvert Matrix to DomainMatrixÚringNc                 S   s   t | tƒr|  ¡ S | S ©N)Ú
isinstancer   Zas_expr)Úe© r   úY/var/www/html/bwave/python/venv/lib/python3.8/site-packages/sympy/matrices/normalforms.pyÚ<lambda>   ó    z_to_domain.<locals>.<lambda>)ÚgetattrZ	applyfuncr   Zfrom_MatrixZ
convert_to)ÚmÚdomainr   ÚdMr   r   r   Ú
_to_domain   s    

r   c                 C   s   t | |ƒ}t|ƒ ¡ S )a«  
    Return the Smith Normal Form of a matrix `m` over the ring `domain`.
    This will only work if the ring is a principal ideal domain.

    Examples
    ========

    >>> from sympy import Matrix, ZZ
    >>> from sympy.matrices.normalforms import smith_normal_form
    >>> m = Matrix([[12, 6, 4], [3, 9, 6], [2, 16, 14]])
    >>> print(smith_normal_form(m, domain=ZZ))
    Matrix([[1, 0, 0], [0, 10, 0], [0, 0, -30]])

    )r   Ú_snfÚ	to_Matrix)r   r   r   r   r   r   r      s    
r   c                    sf   t | |ƒ‰tˆƒ}t‡fdd„|D ƒƒ}t| dƒrb| jjrb| j‰ ‡ fdd„‰t‡fdd„|D ƒƒ}|S )a9  
    Return the tuple of abelian invariants for a matrix `m`
    (as in the Smith-Normal form)

    References
    ==========

    .. [1] https://en.wikipedia.org/wiki/Smith_normal_form#Algorithm
    .. [2] https://web.archive.org/web/20200331143852/https://sierra.nmsu.edu/morandi/notes/SmithNormalForm.pdf

    c                 3   s   | ]}ˆ j  |¡V  qd S r	   )r   Zto_sympy©Ú.0Úf)r   r   r   Ú	<genexpr><   s     z$invariant_factors.<locals>.<genexpr>r   c                    s   t | ˆ jˆ jd�S )N)r   )r   Úsymbolsr   )r   )ÚKr   r   r   A   r   z#invariant_factors.<locals>.<lambda>c                 3   s   | ]}ˆ |ƒV  qd S r	   r   r   )Úto_polyr   r   r   B   s     )r   Ú_invfÚtupleÚhasattrr   Zis_PolynomialRing)r   r   Zfactorsr   )r   r   r   r   r   .   s    

r   F©ÚDÚ
check_rankc                C   s2   |dk	rt  |¡st t|ƒƒ}t| j||d� ¡ S )a  
    Compute the Hermite Normal Form of a Matrix *A* of integers.

    Examples
    ========

    >>> from sympy import Matrix
    >>> from sympy.matrices.normalforms import hermite_normal_form
    >>> m = Matrix([[12, 6, 4], [3, 9, 6], [2, 16, 14]])
    >>> print(hermite_normal_form(m))
    Matrix([[10, 0, 2], [0, 15, 3], [0, 0, 2]])

    Parameters
    ==========

    A : $m \times n$ ``Matrix`` of integers.

    D : int, optional
        Let $W$ be the HNF of *A*. If known in advance, a positive integer *D*
        being any multiple of $\det(W)$ may be provided. In this case, if *A*
        also has rank $m$, then we may use an alternative algorithm that works
        mod *D* in order to prevent coefficient explosion.

    check_rank : boolean, optional (default=False)
        The basic assumption is that, if you pass a value for *D*, then
        you already believe that *A* has rank $m$, so we do not waste time
        checking it for you. If you do want this to be checked (and the
        ordinary, non-modulo *D* algorithm to be used if the check fails), then
        set *check_rank* to ``True``.

    Returns
    =======

    ``Matrix``
        The HNF of matrix *A*.

    Raises
    ======

    DMDomainError
        If the domain of the matrix is not :ref:`ZZ`.

    DMShapeError
        If the mod *D* algorithm is used but the matrix has more rows than
        columns.

    References
    ==========

    .. [1] Cohen, H. *A Course in Computational Algebraic Number Theory.*
       (See Algorithms 2.4.5 and 2.4.8.)

    Nr!   )r   Zof_typeÚintÚ_hnfZ_repr   )ÚAr"   r#   r   r   r   r   F   s    7r   )N)N)N)Ú__doc__Zsympy.polys.domains.integerringr   Zsympy.polys.polytoolsr   Zsympy.polys.matricesr   Z sympy.polys.matrices.normalformsr   r   r   r   r   r%   r   r   r   r   r   Ú<module>   s   


