a
    7Sic*                  	   @   s   d Z ddgZddlmZ ddlZddlmZ ddlmZm	Z	 dd	l
mZmZ deeee ee edddZdeee ee ee eeeef dddZdeee ee ee eeeef dddZdeee eeeeeef dddZdS )zCImplement various linear algebra algorithms for low rank matrices.
svd_lowrankpca_lowrank    )TensorN   )_linalg_utils)has_torch_functionhandle_torch_function)OptionalTuple   )AqniterMreturnc                 C   s  |du rdn|}| j dd \}}t| }tj}tj|||| jd}t| }	|du rtj	|| |j
}
t|D ],}tj	||	|
j
}
tj	|| |
j
}
qtnrt|}tj	|| |||| j
}
t|D ]@}tj	||	|
|||
 j
}
tj	|| |
|||
 j
}
q|
S )a8  Return tensor :math:`Q` with :math:`q` orthonormal columns such
    that :math:`Q Q^H A` approximates :math:`A`. If :math:`M` is
    specified, then :math:`Q` is such that :math:`Q Q^H (A - M)`
    approximates :math:`A - M`.

    .. note:: The implementation is based on the Algorithm 4.4 from
              Halko et al, 2009.

    .. note:: For an adequate approximation of a k-rank matrix
              :math:`A`, where k is not known in advance but could be
              estimated, the number of :math:`Q` columns, q, can be
              choosen according to the following criteria: in general,
              :math:`k <= q <= min(2*k, m, n)`. For large low-rank
              matrices, take :math:`q = k + 5..10`.  If k is
              relatively small compared to :math:`min(m, n)`, choosing
              :math:`q = k + 0..2` may be sufficient.

    .. note:: To obtain repeatable results, reset the seed for the
              pseudorandom number generator

    Args::
        A (Tensor): the input tensor of size :math:`(*, m, n)`

        q (int): the dimension of subspace spanned by :math:`Q`
                 columns.

        niter (int, optional): the number of subspace iterations to
                               conduct; ``niter`` must be a
                               nonnegative integer. In most cases, the
                               default value 2 is more than enough.

        M (Tensor, optional): the input tensor's mean of size
                              :math:`(*, 1, n)`.

    References::
        - Nathan Halko, Per-Gunnar Martinsson, and Joel Tropp, Finding
          structure with randomness: probabilistic algorithms for
          constructing approximate matrix decompositions,
          arXiv:0909.4061 [math.NA; math.PR], 2009 (available at
          `arXiv <http://arxiv.org/abs/0909.4061>`_).
    Nr   dtypedevice)shape_utilsget_floating_dtypematmultorchrandnr   ZtransjugatelinalgqrQrange)r   r   r   r   mnr   r   RZA_Hr   iZM_H r#   J/var/www/html/django/DPS/env/lib/python3.9/site-packages/torch/_lowrank.pyget_approximate_basis   s"    /


 r%      c                 C   s\   t j sL| |f}ttt|t jtdfsLt|rLt	t
|| |||dS t| |||dS )a_  Return the singular value decomposition ``(U, S, V)`` of a matrix,
    batches of matrices, or a sparse matrix :math:`A` such that
    :math:`A \approx U diag(S) V^T`. In case :math:`M` is given, then
    SVD is computed for the matrix :math:`A - M`.

    .. note:: The implementation is based on the Algorithm 5.1 from
              Halko et al, 2009.

    .. note:: To obtain repeatable results, reset the seed for the
              pseudorandom number generator

    .. note:: The input is assumed to be a low-rank matrix.

    .. note:: In general, use the full-rank SVD implementation
              :func:`torch.linalg.svd` for dense matrices due to its 10-fold
              higher performance characteristics. The low-rank SVD
              will be useful for huge sparse matrices that
              :func:`torch.linalg.svd` cannot handle.

    Args::
        A (Tensor): the input tensor of size :math:`(*, m, n)`

        q (int, optional): a slightly overestimated rank of A.

        niter (int, optional): the number of subspace iterations to
                               conduct; niter must be a nonnegative
                               integer, and defaults to 2

        M (Tensor, optional): the input tensor's mean of size
                              :math:`(*, 1, n)`.

    References::
        - Nathan Halko, Per-Gunnar Martinsson, and Joel Tropp, Finding
          structure with randomness: probabilistic algorithms for
          constructing approximate matrix decompositions,
          arXiv:0909.4061 [math.NA; math.PR], 2009 (available at
          `arXiv <https://arxiv.org/abs/0909.4061>`_).

    N)r   r   r   )r   jitis_scriptingsetmaptypeissubsetr   r   r   r   _svd_lowrank)r   r   r   r   Z
tensor_opsr#   r#   r$   r   U   s
    )
&c                 C   s  |d u rdn|}| j dd  \}}tj}|d u r6d }n
t|}t| }||k s\||krt||||d}	t|	}
|d u r|| |
}n|| |
|||
 }|j d |ksJ |j |f|j d |ksJ |j |f|j d |j d ksJ |j tjj|dd\}}}|j	}|	|}nt| |||d}	t|	}
|d u rL|||
}n|||
|||
 }t|}|j d |ksJ |j |f|j d |ksJ |j |f|j d |j d ksJ |j tjj|dd\}}}|j	}|	|}|||fS )Nr&   r   r   r   F)full_matrices)
r   r   r   	transposer%   	conjugater   r   svdmH)r   r   r   r   r   r    r   ZM_tZA_tr   ZQ_cZB_tUSVhVBr#   r#   r$   r-      s@    





 
r-   T)r   r   centerr   r   c                 C   s  t j s8t| t jur8t| fr8tt| f| |||dS | jdd \}}|du r`t	d||}n,|dkrv|t	||kst
d|t	|||dkst
d|t| }|st| ||ddS t| rt| jd	krt
d
t jj| dd| }| d }t jd	t||j|jd}	||	d< t j|	| |df|| jd}
t j| jdd d|f || jd}tt j|
|}t| |||dS | jddd}t| | ||ddS dS )a  Performs linear Principal Component Analysis (PCA) on a low-rank
    matrix, batches of such matrices, or sparse matrix.

    This function returns a namedtuple ``(U, S, V)`` which is the
    nearly optimal approximation of a singular value decomposition of
    a centered matrix :math:`A` such that :math:`A = U diag(S) V^T`.

    .. note:: The relation of ``(U, S, V)`` to PCA is as follows:

                - :math:`A` is a data matrix with ``m`` samples and
                  ``n`` features

                - the :math:`V` columns represent the principal directions

                - :math:`S ** 2 / (m - 1)` contains the eigenvalues of
                  :math:`A^T A / (m - 1)` which is the covariance of
                  ``A`` when ``center=True`` is provided.

                - ``matmul(A, V[:, :k])`` projects data to the first k
                  principal components

    .. note:: Different from the standard SVD, the size of returned
              matrices depend on the specified rank and q
              values as follows:

                - :math:`U` is m x q matrix

                - :math:`S` is q-vector

                - :math:`V` is n x q matrix

    .. note:: To obtain repeatable results, reset the seed for the
              pseudorandom number generator

    Args:

        A (Tensor): the input tensor of size :math:`(*, m, n)`

        q (int, optional): a slightly overestimated rank of
                           :math:`A`. By default, ``q = min(6, m,
                           n)``.

        center (bool, optional): if True, center the input tensor,
                                 otherwise, assume that the input is
                                 centered.

        niter (int, optional): the number of subspace iterations to
                               conduct; niter must be a nonnegative
                               integer, and defaults to 2.

    References::

        - Nathan Halko, Per-Gunnar Martinsson, and Joel Tropp, Finding
          structure with randomness: probabilistic algorithms for
          constructing approximate matrix decompositions,
          arXiv:0909.4061 [math.NA; math.PR], 2009 (available at
          `arXiv <http://arxiv.org/abs/0909.4061>`_).

    )r   r:   r   r   Nr&   r   zEq(={}) must be non-negative integer and not greater than min(m, n)={}z'niter(={}) must be non-negative integerr.   r   z8pca_lowrank input is expected to be 2-dimensional tensor)r   )dimr   r   T)r;   keepdim)r   r'   r(   r+   r   r   r   r   r   min
ValueErrorformatr   r   r-   	is_sparselensparsesumindiceszerosr   r   sparse_coo_tensorvaluesonesr1   mmmean)r   r   r:   r   r   r    r   cZcolumn_indicesrD   ZC_tZ	ones_m1_tr   Cr#   r#   r$   r      sF    >


$)r   N)r&   r   N)r&   r   N)NTr   )__doc____all__r   r    r   r   	overridesr   r   typingr	   r
   intr%   r   r-   boolr   r#   r#   r#   r$   <module>   s:     H  0  /  