gpdZddlZddlZddlmZmZmZmZm Z ddl m Z m Z m Z ddlmZddlmZddlmZdd lmZdd lmZdd lmZdd lmZgd ZdZdZeZdZ dZ!ddZ"ddZ#ddZ$ddZ%dS)zMatrix equation solver routinesN)inv LinAlgErrornormcondsvd)solvesolve_triangularmatrix_balance)get_lapack_funcs)schur)lu)qr)ordqz)_asarray_validated) block_diag)solve_sylvestersolve_continuous_lyapunovsolve_discrete_lyapunovsolve_lyapunovsolve_continuous_aresolve_discrete_arec||jdks |jdkrktjtjtjtjd}t d|||f\}tj|j||j St|d\}}t| d\}}tj tj | ||} t d||| f\} | td | ||| d \} } } | | z} | dkrtd | fztj tj || | S) a Computes a solution (X) to the Sylvester equation :math:`AX + XB = Q`. Parameters ---------- a : (M, M) array_like Leading matrix of the Sylvester equation b : (N, N) array_like Trailing matrix of the Sylvester equation q : (M, N) array_like Right-hand side Returns ------- x : (M, N) ndarray The solution to the Sylvester equation. Raises ------ LinAlgError If solution was not found Notes ----- Computes a solution to the Sylvester matrix equation via the Bartels- Stewart algorithm. The A and B matrices first undergo Schur decompositions. The resulting matrices are used to construct an alternative Sylvester equation (``RY + YS^T = F``) where the R and S matrices are in quasi-triangular form (or, when R, S or F are complex, triangular form). The simplified equation is then solved using ``*TRSYL`` from LAPACK directly. .. versionadded:: 0.11.0 Examples -------- Given `a`, `b`, and `q` solve for `x`: >>> import numpy as np >>> from scipy import linalg >>> a = np.array([[-3, -2, 0], [-1, -1, 3], [3, -5, -1]]) >>> b = np.array([[1]]) >>> q = np.array([[1],[2],[3]]) >>> x = linalg.solve_sylvester(a, b, q) >>> x array([[ 0.0625], [-0.5625], [ 0.6875]]) >>> np.allclose(a.dot(x) + x.dot(b), q) True rsdcztrsylarraysdtyperealoutputNzQLAPACK implementation does not contain a proper Sylvester equation solver (TRSYL)Ctranbz(Illegal value encountered in the %d term)sizenpfloat32float64 complex64 complex128r emptyshapetypecoder conj transposedot RuntimeErrorr)abqtdictfuncrurvfr yscaleinfos K/granary/edev/quantum/lib/python3.11/site-packages/scipy/linalg/_solvers.pyrrsl v{{afkkjrzl88 Q1I>>>xuT]';<<<< 6 " " "DAq ##%%f 5 5 5DAq rvaffhh((**A..22Aj1a) 4 4FE }?@@ @U1a#...NAud aA axx(,05(344 4 6"&A,, 2 2 4 4 5 55ctjt|d}tjt|d}t}t ||fD]L\}}tj|rt }tj|jstdd|dM|j|jkrtd|j dkrjtj tj tj tjd}td ||f \}tj|j||j St%|d \}}|j||} td|| f} |turdnd} | ||| | \} } }|dkrtd| d|dkrt-jdt0d| | z} || |jS)a Solves the continuous Lyapunov equation :math:`AX + XA^H = Q`. Uses the Bartels-Stewart algorithm to find :math:`X`. Parameters ---------- a : array_like A square matrix q : array_like Right-hand side square matrix Returns ------- x : ndarray Solution to the continuous Lyapunov equation See Also -------- solve_discrete_lyapunov : computes the solution to the discrete-time Lyapunov equation solve_sylvester : computes the solution to the Sylvester equation Notes ----- The continuous Lyapunov equation is a special form of the Sylvester equation, hence this solver relies on LAPACK routine ?TRSYL. .. versionadded:: 0.11.0 Examples -------- Given `a` and `q` solve for `x`: >>> import numpy as np >>> from scipy import linalg >>> a = np.array([[-3, -2, 0], [-1, -1, 0], [0, -5, -1]]) >>> b = np.array([2, 4, -1]) >>> q = np.eye(3) >>> x = linalg.solve_continuous_lyapunov(a, q) >>> x array([[ -0.75 , 0.875 , -3.75 ], [ 0.875 , -1.375 , 5.3125], [ -3.75 , 5.3125, -27.0625]]) >>> np.allclose(a.dot(x) + x.dot(a.T), q) True T check_finiteMatrix aq should be square.*Matrix a and q should have the same shape.rrrr!r#r%r&r Tr(r)zH?TRSYL exited with the internal error "illegal value in argument number z8.". See LAPACK documentation for the ?TRSYL error codes.rzInput "a" has an eigenvalue pair whose sum is very close to or exactly zero. The solution is obtained via perturbing the coefficients.) stacklevel)r, atleast_2drfloat enumerate iscomplexobjcomplexequalr2 ValueErrorr+r-r.r/r0r r1r3r r4rMr6warningswarnRuntimeWarning)r8r:r_or_cind_r;r<r=r>r@r dtype_stringrArBrCs rDrrssSd (>>>??A (>>>??A FQF##FFQ ?1   Fx! FDtCyDDDEE E F w!'EFFF v{{jrzl88 QF;;;xuT]';<<<< 6 " " "DAq  quuQxx  A Wq!f - -E E//33sLU1a,777NAud axxL?CeLLLMM M  B% 4 4 4 4JA 5588<< # ##rEc tj||}tj|jd|z }t ||}tj||jS)z Solves the discrete Lyapunov equation directly. This function is called by the `solve_discrete_lyapunov` function with `method=direct`. It is not supposed to be called directly. r)r,kronr4eyer2r flattenreshape)r8r:lhsxs rD_solve_discrete_lyapunov_directresb '!QVVXX  C &1   $C c199;;A :a ! !!rEc tj|jd}|}t ||z}tj||z |}dtjtjt ||z||z}t|| S)z Solves the discrete Lyapunov equation using a bilinear transformation. This function is called by the `solve_discrete_lyapunov` function with `method=bilinear`. It is not supposed to be called directly. rrN)r,r`r2r4r5rr6r)r8r:r`aHaHI_invr9rs rD!_solve_discrete_lyapunov_bilinearris &  C     B"s(mmG rCx!!A "&AG a((' 2 22A !&&((,,.. 3 33rEc.tj|}tj|}||jddkrd}nd}|}|dkrt ||}n)|dkrt ||}nt d||S)a Solves the discrete Lyapunov equation :math:`AXA^H - X + Q = 0`. Parameters ---------- a, q : (M, M) array_like Square matrices corresponding to A and Q in the equation above respectively. Must have the same shape. method : {'direct', 'bilinear'}, optional Type of solver. If not given, chosen to be ``direct`` if ``M`` is less than 10 and ``bilinear`` otherwise. Returns ------- x : ndarray Solution to the discrete Lyapunov equation See Also -------- solve_continuous_lyapunov : computes the solution to the continuous-time Lyapunov equation Notes ----- This section describes the available solvers that can be selected by the 'method' parameter. The default method is *direct* if ``M`` is less than 10 and ``bilinear`` otherwise. Method *direct* uses a direct analytical solution to the discrete Lyapunov equation. The algorithm is given in, for example, [1]_. However, it requires the linear solution of a system with dimension :math:`M^2` so that performance degrades rapidly for even moderately sized matrices. Method *bilinear* uses a bilinear transformation to convert the discrete Lyapunov equation to a continuous Lyapunov equation :math:`(BX+XB'=-C)` where :math:`B=(A-I)(A+I)^{-1}` and :math:`C=2(A' + I)^{-1} Q (A + I)^{-1}`. The continuous equation can be efficiently solved since it is a special case of a Sylvester equation. The transformation algorithm is from Popov (1964) as described in [2]_. .. versionadded:: 0.11.0 References ---------- .. [1] "Lyapunov equation", Wikipedia, https://en.wikipedia.org/wiki/Lyapunov_equation#Discrete_time .. [2] Gajic, Z., and M.T.J. Qureshi. 2008. Lyapunov Matrix Equation in System Stability and Control. Dover Books on Engineering Series. Dover Publications. Examples -------- Given `a` and `q` solve for `x`: >>> import numpy as np >>> from scipy import linalg >>> a = np.array([[0.2, 0.5],[0.7, -0.9]]) >>> q = np.eye(2) >>> x = linalg.solve_discrete_lyapunov(a, q) >>> x array([[ 0.70872893, 1.43518822], [ 1.43518822, -2.4266315 ]]) >>> np.allclose(a.dot(x).dot(a.T)-x, -q) True Nr bilineardirectzUnknown solver )r,asarrayr2lowerrerirV)r8r:methodmethrds rDrrsL 1 A 1 A ~ 71:  FFF <<>>D x +Aq 1 1    -a 3 33633444 HrETc  t||||||d\ }}}}}}}}} } tjd|z|zd|z|zf| } || d|d|f<d| d||d|zf<|| d|d|zdf<| | |d|zd|f<|j | |d|z|d|zf<|dn| | |d|zd|zdf<|dn|j| d|zdd|f<|j| d|zd|d|zf<|| d|zdd|zdf<| r?|=t ||jtj|| } n9t tjd|ztj|| } |r tj| tj| z} tj | dt| dd\}\}}tj |tj |stj |}tj||d|z|d|z dz }dtj|| |d|zdfz}|dddftj|z}| |z} | |z} t#| dd| df\}}|dd|dfj| dddd|zf} |dd|z|dfj| dd|zdd|zf} | t&urd nd }t)| | d d d d |\}}}}}}|Qt#tj||d|d|f||dd|ff\}}|d|d|f}||dd|f}t-|\}}}dt/|z tjdkrt3dt5|jt5|j|jd d j|j}|r||d|df|d|zz}|j|}t7|d}||jz }tjtjdd|zg}t7|d|krt3d||jzdz S)a Solves the continuous-time algebraic Riccati equation (CARE). The CARE is defined as .. math:: X A + A^H X - X B R^{-1} B^H X + Q = 0 The limitations for a solution to exist are : * All eigenvalues of :math:`A` on the right half plane, should be controllable. * The associated hamiltonian pencil (See Notes), should have eigenvalues sufficiently away from the imaginary axis. Moreover, if ``e`` or ``s`` is not precisely ``None``, then the generalized version of CARE .. math:: E^HXA + A^HXE - (E^HXB + S) R^{-1} (B^HXE + S^H) + Q = 0 is solved. When omitted, ``e`` is assumed to be the identity and ``s`` is assumed to be the zero matrix with sizes compatible with ``a`` and ``b``, respectively. Parameters ---------- a : (M, M) array_like Square matrix b : (M, N) array_like Input q : (M, M) array_like Input r : (N, N) array_like Nonsingular square matrix e : (M, M) array_like, optional Nonsingular square matrix s : (M, N) array_like, optional Input balanced : bool, optional The boolean that indicates whether a balancing step is performed on the data. The default is set to True. Returns ------- x : (M, M) ndarray Solution to the continuous-time algebraic Riccati equation. Raises ------ LinAlgError For cases where the stable subspace of the pencil could not be isolated. See Notes section and the references for details. See Also -------- solve_discrete_are : Solves the discrete-time algebraic Riccati equation Notes ----- The equation is solved by forming the extended hamiltonian matrix pencil, as described in [1]_, :math:`H - \lambda J` given by the block matrices :: [ A 0 B ] [ E 0 0 ] [-Q -A^H -S ] - \lambda * [ 0 E^H 0 ] [ S^H B^H R ] [ 0 0 0 ] and using a QZ decomposition method. In this algorithm, the fail conditions are linked to the symmetry of the product :math:`U_2 U_1^{-1}` and condition number of :math:`U_1`. Here, :math:`U` is the 2m-by-m matrix that holds the eigenvectors spanning the stable subspace with 2-m rows and partitioned into two m-row matrices. See [1]_ and [2]_ for more details. In order to improve the QZ decomposition accuracy, the pencil goes through a balancing step where the sum of absolute values of :math:`H` and :math:`J` entries (after removing the diagonal entries of the sum) is balanced following the recipe given in [3]_. .. versionadded:: 0.11.0 References ---------- .. [1] P. van Dooren , "A Generalized Eigenvalue Approach For Solving Riccati Equations.", SIAM Journal on Scientific and Statistical Computing, Vol.2(2), :doi:`10.1137/0902010` .. [2] A.J. Laub, "A Schur Method for Solving Algebraic Riccati Equations.", Massachusetts Institute of Technology. Laboratory for Information and Decision Systems. LIDS-R ; 859. Available online : http://hdl.handle.net/1721.1/1301 .. [3] P. Benner, "Symplectic Balancing of Hamiltonian Matrices", 2001, SIAM J. Sci. Comput., 2001, Vol.22(5), :doi:`10.1137/S1064827500367993` Examples -------- Given `a`, `b`, `q`, and `r` solve for `x`: >>> import numpy as np >>> from scipy import linalg >>> a = np.array([[4, 3], [-4.5, -3.5]]) >>> b = np.array([[1], [-1]]) >>> q = np.array([[9, 6], [6, 4.]]) >>> r = 1 >>> x = linalg.solve_continuous_are(a, b, q, r) >>> x array([[ 21.72792206, 14.48528137], [ 14.48528137, 9.65685425]]) >>> np.allclose(a.T.dot(x) + x.dot(a)-x.dot(b).dot(b.T).dot(x), -q) True carerNr#Nrrseparatepermuter%rTlhpTFsort overwrite_a overwrite_brHr'?!Failed to find a finite solution.ro unit_diagonal@@皙?zQThe associated Hamiltonian pencil has eigenvalues too close to the imaginary axis)_are_validate_argsr,r1r4rMr zeros_liker`abs fill_diagonalr allclose ones_likelog2roundr_ reciprocalrr6rQrvstackrrspacingrr rmax)r8r9r:r=erbalancedmnrZgen_areHJMr\sca elwisescaleout_strr>u00u10upuluurdu_symn_u_sym sym_thresholds rDrrSsp/A561aAv/O/O+Aq!Q1aFG !A#a%1Qv...AAbqb"1"fIAbqb!AaC%iLAbqb!A#$$hK2Aa!eRaRiLvvxxzkAa!eQqsUlO9RR1"Aa!eQqSTTkN ""qvvxxzAacddBQBhKVVXXZAacddAacEkNAacddAaCDDjMD1= q!&&((*bmAV&D&D&D E E rvac{{BM!6$B$B$B C C F1IIq ! B$QA>>> 8C{3 S 1 122 '#,,C#a!e*s2A2w.122AruQC!I-..Caaag,s););;K  A  A aA233i==DAq !!!QRR% a4AaC4j))A $1Q3$(   4AaC4!A#://A%ffYGQ4)-E$+---Aq!Q1  }")QUU1RaR!V9--qRaRy9::;;1 BQBF)C ABBF)CCJBBbzBJrNN""=>>> )"''))+*-((**,04666(,      466!CC $4$4  % S!T]S!W $$ HHJJL  S ! !E5!nnG EJJLLN "EFBJu--s7{;<>> import numpy as np >>> from scipy import linalg as la >>> a = np.array([[0, 1], [0, -1]]) >>> b = np.array([[1, 0], [2, 1]]) >>> q = np.array([[-4, -4], [-4, 7]]) >>> r = np.array([[9, 3], [3, 1]]) >>> x = la.solve_discrete_are(a, b, q, r) >>> x array([[-4., -4.], [-4., 7.]]) >>> R = la.solve(r + b.T.dot(x).dot(b), b.T.dot(x).dot(a)) >>> np.allclose(a.T.dot(x).dot(a) - x - a.T.dot(x).dot(b).dot(R), -q) True darerNr#Nrtrrrur%rTiucTFryr}r~rrrrzMThe associated symplectic pencil has eigenvalues too close to the unit circle)rr,zerosr`r4rMrrrr rrrrrrrr6rQrrrrrrr rr)r8r9r:r=rrrrrrZrrrrr\rrq_of_qrrr>rrrrrrdrrrs rDrr st/A561aAv/O/O+Aq!Q1aFG !A#a%1Qv...AAbqb"1"fIAbqb!A#$$hK2Aa!eRaRiL#$9bfQiii!&&((*Aa!eQqsUlO9RR1"Aa!eQqSTTkN ""qvvxxzAacddBQBhKAacddAaCDDjM av&&&AYq AAbqb"1"fIffhhjAa!eQqsUlOffhhj[AacddAacEkN F1IIq ! B$QA>>> 8C{3 S 1 122 '#,,C#a!e*s2A2w.122AruQC!I-..Caaag,s););;K  A  AAaaa!fIJGQ122##Aaaa!A#gJ//A122##Aaaa!A#gJ//A%ffYGQ)-)-*/$+ ---Aq!Q1 }")QUU1RaR!V9--qRaRy9::;;1 BQBF)C ABBF)CCJBBbzBJrNN""=>>> )"''))+*-((**,04666(,      466!CC $4$4  % S!T]S!W $$ HHJJL  S ! !E5!nnG EJJLLN "EFBJu--s7{;<>>??A (>>>??A (>>>??A (>>>??A** 5WWFq!Qi((GGS ?3   Fx# GEuSzEEEFF F G 7DAqAGAJNOOOAGAJEFFFAGAJNOOOq!f%%SSS chhjjl"A & &DaLL)A)A#)E E EQtCyQQQRR R F&Q5)))"- R<<6BJrNN41::$===@AA A}5 ! = 0FFFGGA8QW% ? !=>>>AGAJ !MNNNu---b1F||v 2a(CCC !DEEEq!! !  = 0FFFGGAw!'!! !MNNNq!! !  aAq!Q6+; ;;rE)N)NNT)rs)&__doc__rWnumpyr, numpy.linalgrrrrr_basicr r r lapackr _decomp_schurr _decomp_lur _decomp_qrr _decomp_qzr_decompr_special_matricesr__all__rrrrerirrrrrErDrs%%::::::::::::::;;;;;;;;;;$$$$$$ '''''')))))) 9 9 9 R6R6R6j`$`$`$H+ " " " 4 4 4X X X X vJJJJZNNNNbh<h<h<h<h<h