o
    ohE                      @   s   d Z ddlmZ ddlm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	lmZ d
d ZdddZdd Ze
dddZdS )z,Computing integral bases for number fields.     )Poly)AlgebraicField)ZZ)QQ)public   )ModuleEndomorphismModuleHomomorphism
PowerBasis) extract_fundamental_discriminantc                 C   s   | j }t| |d}| \}}|dksJ td||d}|D ]\}}||9 }q|| }	t|td}
t|	td}|
| |  | }t||d}|}||	fD ]}||}qK|| }| }||fS )zz
    Apply the "Dedekind criterion" to test whether the order needs to be
    enlarged relative to a given prime *p*.
    modulusr   domain)genr   factor_listr   gcddegree)TpxT_barlcflg_barti_bar_h_barghff_barZ_barbU_barm r&   r/var/www/html/construction_image-detection-poc/venv/lib/python3.10/site-packages/sympy/polys/numberfields/basis.py_apply_Dedekind_criterion   s$   
r(   Nc                    sH   | j } du r|  |k r |9   |k st|  fdd}|j|dS )a  
    Compute the nilradical mod *p* for a given order *H*, and prime *p*.

    Explanation
    ===========

    This is the ideal $I$ in $H/pH$ consisting of all elements some positive
    power of which is zero in this quotient ring, i.e. is a multiple of *p*.

    Parameters
    ==========

    H : :py:class:`~.Submodule`
        The given order.
    p : int
        The rational prime.
    q : int, optional
        If known, the smallest power of *p* that is $>=$ the dimension of *H*.
        If not provided, we compute it here.

    Returns
    =======

    :py:class:`~.Module` representing the nilradical mod *p* in *H*.

    References
    ==========

    .. [1] Cohen, H. *A Course in Computational Algebraic Number Theory*.
    (See Lemma 6.1.6.)

    Nc                    s   |   S Nr&   r   qr&   r'   <lambda>K   s    z"nilradical_mod_p.<locals>.<lambda>r   )nr   kernel)Hr   r,   r.   phir&   r+   r'   nilradical_mod_p%   s   !r2   c           
         s   t | ||d}| jj| j|j | jd}|||   }|  t|   fdd}|j|d}| jj| j|j | j| d}||  }	|	|fS )zD
    Perform the second enlargement in the Round Two algorithm.
    r+   )denomc                    s
     | S r)   )inner_endomorphismr*   Er&   r'   r-   W   s   
 z%_second_enlargement.<locals>.<lambda>r   )r2   parentsubmodule_from_matrixmatrixr3   endomorphism_ringr	   r/   )
r0   r   r,   IpBCr1   gammaGH1r&   r5   r'   _second_enlargementO   s   rA   c                 C   s  d}t | tr| | j }} | jr| jr| jttfvr t	d| 
 \} }|  }|  }tt|}t|\}}t|p?| }| }	d}
|r| \}}t| |\}}|dkr[qG|t|td}|	j|| |	 |d}	||krtqG|}||k r||9 }||k szt|	||\}}
||	kr|}	t|	||\}}
||	ks|sI|
durt |tr|
||< |	}d|_d|_||j d  |jd|   }||fS )a  
    Zassenhaus's "Round 2" algorithm.

    Explanation
    ===========

    Carry out Zassenhaus's "Round 2" algorithm on an irreducible polynomial
    *T* over :ref:`ZZ` or :ref:`QQ`. This computes an integral basis and the
    discriminant for the field $K = \mathbb{Q}[x]/(T(x))$.

    Alternatively, you may pass an :py:class:`~.AlgebraicField` instance, in
    place of the polynomial *T*, in which case the algorithm is applied to the
    minimal polynomial for the field's primitive element.

    Ordinarily this function need not be called directly, as one can instead
    access the :py:meth:`~.AlgebraicField.maximal_order`,
    :py:meth:`~.AlgebraicField.integral_basis`, and
    :py:meth:`~.AlgebraicField.discriminant` methods of an
    :py:class:`~.AlgebraicField`.

    Examples
    ========

    Working through an AlgebraicField:

    >>> from sympy import Poly, QQ
    >>> from sympy.abc import x
    >>> T = Poly(x ** 3 + x ** 2 - 2 * x + 8)
    >>> K = QQ.alg_field_from_poly(T, "theta")
    >>> print(K.maximal_order())
    Submodule[[2, 0, 0], [0, 2, 0], [0, 1, 1]]/2
    >>> print(K.discriminant())
    -503
    >>> print(K.integral_basis(fmt='sympy'))
    [1, theta, theta/2 + theta**2/2]

    Calling directly:

    >>> from sympy import Poly
    >>> from sympy.abc import x
    >>> from sympy.polys.numberfields.basis import round_two
    >>> T = Poly(x ** 3 + x ** 2 - 2 * x + 8)
    >>> print(round_two(T))
    (Submodule[[2, 0, 0], [0, 2, 0], [0, 1, 1]]/2, -503)

    The nilradicals mod $p$ that are sometimes computed during the Round Two
    algorithm may be useful in further calculations. Pass a dictionary under
    `radicals` to receive these:

    >>> T = Poly(x**3 + 3*x**2 + 5)
    >>> rad = {}
    >>> ZK, dK = round_two(T, radicals=rad)
    >>> print(rad)
    {3: Submodule[[-1, 1, 0], [-1, 0, 1]]}

    Parameters
    ==========

    T : :py:class:`~.Poly`, :py:class:`~.AlgebraicField`
        Either (1) the irreducible polynomial over :ref:`ZZ` or :ref:`QQ`
        defining the number field, or (2) an :py:class:`~.AlgebraicField`
        representing the number field itself.

    radicals : dict, optional
        This is a way for any $p$-radicals (if computed) to be returned by
        reference. If desired, pass an empty dictionary. If the algorithm
        reaches the point where it computes the nilradical mod $p$ of the ring
        of integers $Z_K$, then an $\mathbb{F}_p$-basis for this ideal will be
        stored in this dictionary under the key ``p``. This can be useful for
        other algorithms, such as prime decomposition.

    Returns
    =======

    Pair ``(ZK, dK)``, where:

        ``ZK`` is a :py:class:`~sympy.polys.numberfields.modules.Submodule`
        representing the maximal order.

        ``dK`` is the discriminant of the field $K = \mathbb{Q}[x]/(T(x))$.

    See Also
    ========

    .AlgebraicField.maximal_order
    .AlgebraicField.integral_basis
    .AlgebraicField.discriminant

    References
    ==========

    .. [1] Cohen, H. *A Course in Computational Algebraic Number Theory.*

    NzDRound 2 requires an irreducible univariate polynomial over ZZ or QQ.r   r   )hnf_modulusT   )
isinstancer   extminpoly_of_elementis_univariateis_irreducibler   r   r   
ValueError)make_monic_over_integers_by_scaling_rootsr   discriminant
from_sympyabsr   r
   whole_submodulepopitemr(   element_from_polyr   addrA   dict_starts_with_unity_is_sq_maxrank_HNFr9   detr3   )r   radicalsKr   r.   D	D_modulusFZthetar0   nilradr   er$   r%   Ur,   r@   ZKdKr&   r&   r'   	round_two^   sT   `
  ra   r)   )__doc__sympy.polys.polytoolsr   "sympy.polys.domains.algebraicfieldr   sympy.polys.domains.integerringr   !sympy.polys.domains.rationalfieldr   sympy.utilities.decoratorr   modulesr   r	   r
   	utilitiesr   r(   r2   rA   ra   r&   r&   r&   r'   <module>   s    
*