o
    GZŽhiL  ã                   @   s„  d dl mZ d dlmZmZ d dlmZmZmZm	Z	 d dl
mZ d dlmZmZ d dlmZmZ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 d dlmZ d dlm Z  d dl!m"Z"m#Z#m$Z$m%Z%m&Z&m'Z'm(Z(m)Z)m*Z*m+Z+m,Z,m-Z-m.Z. d dl/m0Z0 d dl1m2Z2 d dl3m4Z4 d dlm5Z5 d dl6m7Z7 edƒZ8dd„ Z9dd„ Z:dd„ Z;dd„ Z<dd„ Z=dd „ Z>d!d"„ Z?d#d$„ Z@d%d&„ ZAd'S )(é    )ÚSum)Ú
DerivativeÚdiff)ÚRationalÚooÚpiÚzoo)ÚS)ÚDummyÚSymbol)ÚRisingFactorialÚbinomialÚ	factorial)Ú	conjugate)Úexp)Úfloor)Úsqrt)Úcos)Úgamma)Úhyper)Úassoc_laguerreÚassoc_legendreÚ
chebyshevtÚchebyshevt_rootÚ
chebyshevuÚchebyshevu_rootÚ
gegenbauerÚhermiteÚhermite_probÚjacobiÚjacobi_normalizedÚlaguerreÚlegendre)Úlaguerre_poly)Úroots)Ú	unchanged)ÚArgumentIndexError)ÚraisesÚxc               
      s8  t dƒ‰t dƒ‰ t dƒ‰tdˆ ˆtƒdksJ ‚tdˆ ˆtƒˆ d ˆd  tˆ d ˆd  d   ks4J ‚tˆˆ ˆ tƒtˆ d ˆƒtˆˆ tj tƒ tdˆ  d ˆƒ ksVJ ‚tˆˆ ˆ  tƒdˆ  t d ˆ  d   td ˆ d   tˆˆ tƒ tˆ  ˆ ƒ t	ˆ ˆ d ƒ tˆ ˆ ƒt	ˆd ƒ  ks—J ‚tˆˆ ˆtƒt d ˆd  td ˆ d   tˆˆtƒ t	ˆ ˆ d ƒ t	ˆd ƒ ksÈJ ‚tˆddtƒt
ˆtƒksÖJ ‚tˆtjtjtƒttddƒˆƒtˆtƒ tˆd ƒ ksôJ ‚tˆtddƒtddƒtƒttjˆƒtˆtƒ tˆƒ ksJ ‚tˆˆ ˆtƒ} t| tƒs"J ‚tˆˆ ˆt ƒdˆ tˆˆˆ tƒ ks8J ‚tˆˆ ˆdƒdˆ  t	ˆ ˆ d ƒ tˆ ˆ ˆ fˆ d fdƒ tˆƒt	ˆ d ƒ  kshJ ‚tˆˆ ˆdƒtˆ d ˆƒtˆƒ ks}J ‚t d	d
d}t|ˆ ˆtƒttˆ ˆ | d |ƒ ksšJ ‚ttˆˆ ˆtƒs¥J ‚tt|ˆ ˆtƒƒt|tˆ ƒtˆƒttƒƒks¾J ‚tdƒ}ttˆˆ ˆtƒˆƒttˆˆ ˆtƒˆƒksÙJ ‚ttˆˆ ˆtƒˆ ƒ ttˆˆ ˆtƒd| ˆ  ˆ d t|ˆ d | ˆ ƒ t|ˆ ˆtƒ | ˆ t|ˆ  ˆ d | ˆ ƒ   |ˆ  ˆ ˆ d  |dˆd fƒ¡s0J ‚ttˆˆ ˆtƒˆƒ td| ˆ  d| ˆ  ˆ d  t|ˆ  d | ˆ ƒ t|ˆ ˆtƒ | ˆ t|ˆ  ˆ d | ˆ ƒ  tˆˆ ˆtƒ |ˆ  ˆ ˆ d  |dˆd fƒ¡sŽJ ‚ttˆˆ ˆtƒtƒˆ d ˆd  ˆd  tj tˆd ˆ d ˆd tƒ ks·J ‚tˆˆ ˆtƒtˆˆ ˆtƒtdˆ ˆ d  t	ˆ ˆ d ƒ t	ˆˆ d ƒ ˆ ˆ dˆ  d tˆƒ t	ˆ ˆ ˆ d ƒ  ƒ ksúJ ‚tt‡ ‡fdd„ƒ ttdd„ ƒ tˆˆ ˆtƒ t¡ ttjtd  | tˆ |ƒ t|ˆ  d | ˆ ƒ tˆ ˆ ˆ d |ƒ t|ƒ |dˆfƒtˆƒ ¡sMJ ‚tˆˆ ˆtƒ d¡ ttjtd  | tˆ |ƒ t|ˆ  d | ˆ ƒ tˆ ˆ ˆ d |ƒ t|ƒ |dˆfƒtˆƒ ¡sJ ‚tt‡ ‡‡fdd„ƒ d S )NÚnÚaÚbr   é   é   éÿÿÿÿé   ÚmT©ÚpositiveÚkc                      s   t dˆ ˆtƒS ©NgÍÌÌÌÌÌ À)r   r(   © )r*   r+   r5   úb/var/www/auris/lib/python3.10/site-packages/sympy/functions/special/tests/test_spec_polynomials.pyÚ<lambda>N   s    ztest_jacobi.<locals>.<lambda>c                   S   s   t tdddddtƒS )NT)r2   Úintegerr,   r-   )r   r
   r   r5   r5   r5   r6   r7   O   s    Ú
polynomialc                      s   t ˆˆ ˆtƒ d¡S )Né   )r   r(   Úfdiffr5   ©r*   r+   r)   r5   r6   r7   W   s    )r   r   r(   r   r   r	   ÚHalfr   r   r   r"   r   r   r   Ú
isinstancer   r   r%   r   r
   r   r   Údummy_eqr   r    r   r'   Ú
ValueErrorÚrewriter&   ©ÚXr0   Ú_kr5   r<   r6   Útest_jacobi   s  :ÿÿ
ÿDÿÿ
ÿ<ÿ

ÿ
ÿÿ

ÿÿÿÿ,&ÿÿ*.
ÿ."0ÿ$ÿÿÿÿÿþý(ÿÿÿÿÿ$þÿþýý6
ÿ<.ÿ
ÿ"ÿ
ÿÿþþþþ"ÿ
ÿÿþþþþrE   c               	      sô  t dƒ‰t dƒ‰ tdˆ tƒdksJ ‚tdˆ tƒdˆ  t ks J ‚tdˆ tƒˆ  td dˆ d  dˆ     ks9J ‚tdˆ tƒtd dˆ d  d dˆ d   ˆ tddƒ   td	ˆ d  dˆ     ksfJ ‚td
ˆ tƒdkspJ ‚tˆtjtƒtˆtƒks~J ‚tˆdtƒtˆtƒks‹J ‚tˆd
tƒdks•J ‚tˆˆ tƒ} t| tƒs¢J ‚tˆˆ t ƒd
ˆ tˆˆ tƒ ksµJ ‚tˆˆ dƒdˆ t	t
ƒ tˆ ˆd  ƒ tˆ ƒtˆ d tj ƒ tˆd ƒ  ksáJ ‚tˆˆ dƒtdˆ  ˆ ƒtdˆ  ƒtˆd ƒ  ksýJ ‚tˆtddƒd
ƒtu sJ ‚tˆtddƒd
ƒt	dƒtt
ˆtjd   ƒ tˆtj ƒ t	t
ƒtˆd ƒ  ks7J ‚t ddd}t|ˆ tƒttˆ |ƒ ksMJ ‚ttˆˆ tƒsWJ ‚ttˆˆ tƒƒtˆtˆ ƒttƒƒkslJ ‚tdƒ}ttˆˆ tƒˆƒttˆˆ tƒˆƒks…J ‚ttˆˆ tƒˆ ƒ tdd
| ˆ   d |ˆ   t|ˆ tƒ | ˆ |dˆ   ˆ   d| d |dˆ   d| dˆ   d   d|dˆ   ˆ   tˆˆ tƒ  |dˆd fƒ¡sâJ ‚ttˆˆ tƒtƒdˆ  tˆd ˆ d tƒ ksüJ ‚tˆˆ tƒ t¡ td
| dt d	| ˆ   tˆ | ˆ ƒ t|ƒtd	| ˆ ƒ  |dtˆd ƒfƒ¡s5J ‚tˆˆ tƒ d¡ td
| dt d	| ˆ   tˆ | ˆ ƒ t|ƒtd	| ˆ ƒ  |dtˆd ƒfƒ¡snJ ‚tt‡ ‡fdd„ƒ d S )Nr)   r*   r   r,   r-   r/   é   é   éþÿÿÿr.   r0   Tr1   r3   r9   c                      ó   t ˆˆ tƒ d¡S ©NrF   )r   r(   r;   r5   ©r*   r)   r5   r6   r7   ‹   ó    z!test_gegenbauer.<locals>.<lambda>)r   r   r(   r   r	   r=   r"   r   r>   r   r   r   r   r   ZOner   r   r%   r   r
   r   r   r?   r   rA   r   r   r'   r&   rB   r5   rK   r6   Útest_gegenbauerZ   sŒ   2
Hÿ&ÿ&
ÿ8,ÿÿ **(ÿ
ÿÿÿÿÿÿÿÿý4,ÿÿ
ÿ,ÿÿ
ÿrM   c                     sè  t dtƒdks	J ‚t dtƒtksJ ‚t dtƒdtd  d d  ¡ ks%J ‚t dtƒdtd  dt  d  ¡ ks:J ‚t dtƒdtd  dtd   d d	  ¡ ksSJ ‚t dtƒd
td  dtd   dt  d	  ¡ ksnJ ‚t dtƒdtd  dtd   dtd   d d  ¡ ksJ ‚t ddƒdks–J ‚t ddƒdksŸJ ‚t ddƒdks¨J ‚t ddƒdks±J ‚t ddƒdksºJ ‚t ddƒdksÃJ ‚t dtƒdksÌJ ‚tdƒ} t d|  tƒ | d¡dtd  dt  d  ¡ ksëJ ‚tt dtƒtƒttddƒtddƒtdƒ  ƒdttddƒtddƒtdƒ  ƒ dttddƒtddƒtdƒ  ƒdttddƒtddƒtdƒ  ƒ diks:J ‚tdƒ‰ t ˆ tƒ}t|t ƒsKJ ‚t	t ˆ tƒsTJ ‚t ˆ dƒtt
ƒttjˆ d  ƒtˆ d d ƒ  ksqJ ‚t ˆ dƒdks{J ‚t ˆ tƒtu s…J ‚t ˆ  tƒt ˆ d tƒks•J ‚t ˆ t ƒdˆ  t ˆ tƒ ks§J ‚t	t ˆ  |  tƒs³J ‚tt ˆ tƒƒt ˆ ttƒƒksÄJ ‚tt ˆ tƒtƒˆ tt ˆ tƒ t ˆ d tƒ  td d  ksåJ ‚tt ˆ tƒˆ ƒtt ˆ tƒˆ ƒksøJ ‚tdƒ}t ˆ tƒ t¡ td| tjtd  |  td tj | ˆ    tˆ |ƒd  |dˆ fƒ¡s.J ‚t ˆ tƒ d¡ td| tjtd  |  td tj | ˆ    tˆ |ƒd  |dˆ fƒ¡s`J ‚tt‡ fdd„ƒ tt‡ fdd„ƒ d S )Nr   r,   r-   r/   r:   rF   é#   é   rG   é?   éF   é   é   éç   i;  éi   é   é
   r.   é   r3   é   r)   r9   c                      ó   t ˆ tƒ d¡S ©Nr,   ©r"   r(   r;   r5   ©r)   r5   r6   r7   Á   ó    ztest_legendre.<locals>.<lambda>c                      rZ   ©Nr/   r\   r5   r]   r5   r6   r7   Â   r^   )r"   r(   Úexpandr   Úsubsr$   r   r   r>   r%   r   r   r	   r=   r   r   r   r   r
   rA   r   r?   r   r'   r&   )r3   rC   rD   r5   r]   r6   Útest_legendreŽ   s|   &*26>6 " "ü
: $"*
ÿ&ÿÿÿÿÿÿÿÿÿÿrb   c                     sü  t ‰ tdtd  ƒ} ˆ ddtƒdksJ ‚ˆ ddtƒtksJ ‚ˆ ddtƒ|  ks)J ‚ˆ ddtƒdtd  d d ks;J ‚ˆ ddtƒdt |  ksIJ ‚ˆ ddtƒd| d  ksWJ ‚ˆ ddtƒdtd  dt  d kskJ ‚ˆ ddtƒ ¡ dddtd    d  ¡ |   ¡ ks‡J ‚ˆ ddtƒdt | d  ks—J ‚ˆ ddtƒd| d  ks¥J ‚ˆ dd	tƒˆ ddtƒ d ks¶J ‚ˆ dd
tƒˆ ddtƒd ksÆJ ‚ˆ dd	tƒˆ ddtƒ d ks×J ‚ˆ ddtƒˆ ddtƒ d ksèJ ‚ˆ dd
tƒˆ ddtƒd ksøJ ‚ˆ dd	tƒˆ ddtƒ d ks
J ‚tdƒ‰tdƒ‰ˆ ˆˆtƒ}t|t ƒs J ‚ˆ ˆdtƒtˆtƒks.J ‚ˆ ˆˆdƒdˆ ttƒ tˆ d ˆd  t	j
 ƒtˆ d ˆd  d ƒ  ksZJ ‚tˆ ˆˆtƒtƒˆt t ˆˆtƒ ˆˆ t ˆd ˆtƒ  td d  ks‚J ‚tdƒ}ˆ ˆˆtƒ t¡ dtd  ˆd  td	| dˆ   td
| ˆ ˆ   td
| dˆ  ƒ t|ƒt| ˆ ƒ td
| ˆ ˆ ƒ  |dtˆd ˆd  ƒfƒ ¡sÝJ ‚ˆ ˆˆtƒ d¡ dtd  ˆd  td	| dˆ   td
| ˆ ˆ   td
| dˆ  ƒ t|ƒt| ˆ ƒ td
| ˆ ˆ ƒ  |dtˆd ˆd  ƒfƒ ¡s4J ‚tt ˆˆtƒƒt ˆtˆƒttƒƒksIJ ‚tt‡ fdd„ƒ tt‡ fdd„ƒ tt‡ ‡‡fdd„ƒ tt‡ ‡‡fdd„ƒ tt‡ ‡‡fdd„ƒ d S )Nr,   r-   r   r/   éýÿÿÿr:   rR   iñÿÿÿr.   rH   é   rS   éÐ  éx   é   r)   r0   r3   r9   c                      ó   ˆ ddt ƒS )Nr   r,   ©r(   r5   ©ÚPlmr5   r6   r7   ó   ó    z%test_assoc_legendre.<locals>.<lambda>c                      rh   )Nr.   r,   ri   r5   rj   r5   r6   r7   ô   rl   c                      ó   ˆ ˆˆt ƒ d¡S r[   ©r(   r;   r5   ©rk   r0   r)   r5   r6   r7   õ   rL   c                      rm   )Nr-   rn   r5   ro   r5   r6   r7   ö   rL   c                      rm   rJ   rn   r5   ro   r5   r6   r7   ÷   rL   )r   r   r(   r`   r   r>   r"   r   r   r	   r=   r   r
   rA   r   r?   r   r   r   r'   r@   r&   )ÚQrC   rD   r5   ro   r6   Útest_assoc_legendreÅ   s€   $(8 " "" $*ÿÿ"ÿ
ÿ:ÿ ÿÿþ
ÿ:ÿ ÿÿþ
ÿ
ÿrq   c               	      s
  t dtƒdks	J ‚t dtƒtksJ ‚t dtƒdtd  d ks!J ‚t dtƒdtd  dt  ks2J ‚tddƒD ] ‰ tˆ ƒD ]} tˆ | ƒ}t ˆ |ƒdksMJ ‚q=tt‡ fdd„ƒ q7tddƒD ] ‰ tˆ ƒD ]} tˆ | ƒ}tˆ |ƒdkssJ ‚qctt‡ fdd„ƒ q]td	ƒ‰ t ˆ tƒ}t	|t ƒsŽJ ‚t
t ˆ tƒs–J ‚t ˆ t ƒd
ˆ  t ˆ tƒ ks§J ‚t ˆ  tƒt ˆ tƒks´J ‚t ˆ dƒttˆ  d ƒksÃJ ‚t ˆ dƒdksÌJ ‚t ˆ tƒtu sÕJ ‚tt ˆ tƒƒt ˆ ttƒƒksåJ ‚tt ˆ tƒtƒˆ tˆ d tƒ ksøJ ‚tˆ tƒ}t	|tƒsJ ‚tdƒ}tˆ t ƒd
ˆ  tˆ tƒ ksJ ‚tˆ  tƒtˆ d tƒ ks,J ‚t
tˆ  | tƒs8J ‚tˆ dƒttˆ  d ƒksHJ ‚tˆ dƒˆ d ksTJ ‚tˆ tƒtu s^J ‚ttˆ tƒƒtˆ ttƒƒksoJ ‚ttˆ tƒtƒt tˆ tƒ ˆ d t ˆ d tƒ  td d  ks“J ‚tdƒ}t ˆ tƒ t¡ ttd| ˆ   td d |  tˆ d| ƒ |dtˆ d ƒfƒ¡sÄJ ‚t ˆ tƒ d¡ ttd| ˆ   td d |  tˆ d| ƒ |dtˆ d ƒfƒ¡sñJ ‚tˆ tƒ t¡ td
| dt d| ˆ    t| ˆ  ƒ t|ƒtd| ˆ  ƒ  |dtˆ d ƒfƒ¡s(J ‚tˆ tƒ d¡ td
| dt d| ˆ    t| ˆ  ƒ t|ƒtd| ˆ  ƒ  |dtˆ d ƒfƒ¡s_J ‚tt‡ fdd„ƒ tt‡ fdd„ƒ tt‡ fdd„ƒ tt‡ fdd„ƒ d S )Nr   r,   r-   r/   rF   c                      ó
   t ˆ ˆ ƒS ©N)r   r5   r]   r5   r6   r7     ó   
 z test_chebyshev.<locals>.<lambda>c                      rr   rs   )r   r5   r]   r5   r6   r7   
  rt   r)   r.   Úyr3   rH   r9   c                      rZ   r[   ©r   r(   r;   r5   r]   r5   r6   r7   7  r^   c                      rZ   r_   rv   r5   r]   r5   r6   r7   8  r^   c                      rZ   r[   ©r   r(   r;   r5   r]   r5   r6   r7   9  r^   c                      rZ   r_   rw   r5   r]   r5   r6   r7   :  r^   )r   r(   Úranger   r'   r@   r   r   r   r>   r%   r   r   r   r   r   r
   rA   r   r?   r   r   r   r&   )r3   ÚzrC   ru   rD   r5   r]   r6   Útest_chebyshevú   sž   "


" &
$" "0
ÿ ÿÿÿ ÿÿÿ
ÿÿÿÿþ
ÿÿÿÿþrz   c               
      sè  t dtƒdks	J ‚t dtƒdt ksJ ‚t dtƒdtd  d ks#J ‚t dtƒdtd  dt  ks4J ‚t dtƒdtd  d	td   d ksIJ ‚t d
tƒdtd
  dtd   dtd   d ksdJ ‚tdƒ‰ tt ˆ tƒspJ ‚t ˆ t ƒdˆ  t ˆ tƒ ksJ ‚tt ˆ  tƒsŠJ ‚t ˆ dƒdˆ  ttƒ ttjˆ d  ƒ ks¢J ‚t ˆ t	ƒt	u s«J ‚t
t ˆ tƒƒt ˆ t
tƒƒks»J ‚tdƒ} t ˆ tƒ t¡ tˆ ƒtd|  dt d|  ˆ    t| ƒtd|  ˆ  ƒ  | dtˆ d ƒfƒ ¡sòJ ‚t ˆ tƒ d¡ tˆ ƒtd|  dt d|  ˆ    t| ƒtd|  ˆ  ƒ  | dtˆ d ƒfƒ ¡s&J ‚tt ˆ tƒtƒdˆ  t ˆ d tƒ ks<J ‚tt ˆ tƒˆ ƒtt ˆ tƒˆ ƒksOJ ‚tt‡ fdd„ƒ t ˆ tƒ t¡tdƒˆ  tˆ ttdƒ ƒ ksrJ ‚d S )Nr   r,   r-   rF   r/   rG   rg   rV   é0   rS   é@   ià  re   rf   r)   r.   r3   rH   r9   c                      rZ   r_   )r   r(   r;   r5   r]   r5   r6   r7   Y  r^   ztest_hermite.<locals>.<lambda>)r   r(   r   r%   r   r   r   r	   r=   r   r   r
   rA   r   r?   r   r   r   r   r'   r&   r   ©rD   r5   r]   r6   Útest_hermite=  sT   "*6"0 ÿÿÿÿÿÿÿÿÿÿ,&ÿr~   c               
      sÊ  t dtƒdks	J ‚t dtƒtksJ ‚t dtƒtd d ksJ ‚t dtƒtd dt  ks.J ‚t dtƒtd dtd   d ksAJ ‚t dtƒtd dtd   dtd   d ksZJ ‚td	ƒ‰ tt ˆ tƒsfJ ‚t ˆ t ƒd
ˆ  t ˆ tƒ kswJ ‚tt ˆ  tƒs€J ‚t ˆ dƒttƒttjˆ d  ƒ ks”J ‚t ˆ t	ƒt	u sJ ‚t
t ˆ tƒƒt ˆ t
tƒƒks­J ‚tdƒ} t ˆ tƒ t¡ tˆ ƒttj |  tˆ d|     t| ƒtˆ d|   ƒ  | dtˆ d ƒfƒ ¡säJ ‚t ˆ tƒ d¡ tˆ ƒttj |  tˆ d|     t| ƒtˆ d|   ƒ  | dtˆ d ƒfƒ ¡sJ ‚tt ˆ tƒtƒˆ t ˆ d tƒ ks,J ‚tt ˆ tƒˆ ƒtt ˆ tƒˆ ƒks?J ‚tt‡ fdd„ƒ t ˆ tƒ t¡tdƒˆ   tˆ ttdƒ ƒ kscJ ‚d S )Nr   r,   r-   r/   rF   rS   rR   é-   r)   r.   r3   r9   c                      rZ   r_   )r   r(   r;   r5   r]   r5   r6   r7   {  r^   z#test_hermite_prob.<locals>.<lambda>)r   r(   r   r%   r   r   r   r	   r=   r   r   r
   rA   r   r?   r   r   r   r   r'   r&   r   r}   r5   r]   r6   Útest_hermite_prob_  s<   &2"( 4ÿ
ÿ4ÿÿ(&ÿr€   c               	      sD  t dƒ‰ t ddd} tdtƒdksJ ‚tdtƒt d ksJ ‚tdtƒtd d dt  d ks2J ‚tdtƒtd  d	 dtd  d  dt  d ksNJ ‚td
tƒtd ttƒ ks]J ‚tˆ tƒ}t|tƒsiJ ‚tˆ dƒdksrJ ‚tˆ tƒdˆ  t ksJ ‚tˆ t ƒtu s‰J ‚ttˆ tƒƒtˆ ttƒƒks™J ‚tdƒ}tˆ tƒ t	¡ 
t	t| tˆ  |ƒ t|ƒd  |dˆ fƒ¡s¾J ‚tˆ tƒ d¡ 
t	t| tˆ  |ƒ t|ƒd  |dˆ fƒ¡sßJ ‚t| tƒ t	¡ 
ttƒt	t | t| d |ƒ t|ƒd  |d|  d fƒ ¡s
J ‚t| tƒ d¡ 
ttƒt	t | t| d |ƒ t|ƒd  |d|  d fƒ ¡s5J ‚ttˆ tƒtƒtˆ d dtƒ ksIJ ‚t dƒ}tˆ  tƒttƒtˆ d t ƒ ksbJ ‚tdtƒttƒtdt ƒ kstJ ‚ttˆ  | tƒs€J ‚ttdd„ ƒ ttdd„ ƒ tt‡ fdd„ƒ tt‡ fdd„ƒ d S )Nr)   r0   T)Únegativer   r,   r-   r/   rS   rH   r.   r3   r9   rc   c                   S   s
   t dtƒS r4   )r!   r(   r5   r5   r5   r6   r7   ©  rt   ztest_laguerre.<locals>.<lambda>c                   S   s   t tddƒtƒS )Nr:   r-   )r!   r   r(   r5   r5   r5   r6   r7   ª  r^   c                      rZ   r[   ©r!   r(   r;   r5   r]   r5   r6   r7   «  r^   c                      rZ   r_   r‚   r5   r]   r5   r6   r7   ¬  r^   )r   r!   r(   r   r>   r   r   r
   rA   r   r?   r   r   r   r   r%   r'   r@   r&   )r0   rC   rD   r3   r5   r]   r6   Útest_laguerre  sN   &8
 *ÿ*ÿ*ÿ
ÿ*ÿ
ÿ(*$rƒ   c               	      sh  t dƒ‰t dƒ} t dƒ‰ tdˆ tƒdksJ ‚tdˆ tƒt ˆ  d ks%J ‚tdˆ tƒ ¡ td d ˆ d t  ˆ d ˆ d  d   ¡ ksGJ ‚tdˆ tƒ ¡ td  d ˆ d td  d  ˆ d ˆ d  t d  ˆ d ˆ d  ˆ d  d   ¡ ks~J ‚td	ƒD ]}t|dtƒ ¡ t|tƒks“J ‚q‚tˆ| tƒ}t|tƒs¡J ‚tˆdtƒtˆtƒks®J ‚tˆˆ dƒtˆ ˆ ˆ ƒks½J ‚t d
dd}t|ˆ t	ƒd| t	 ksÑJ ‚t|ˆ t	 ƒt	u sÜJ ‚t
tˆˆ tƒtƒtˆd ˆ d tƒ ksòJ ‚tdƒ}t
tˆˆ tƒˆ ƒ tt|ˆ tƒˆ  ˆ  |dˆd fƒ¡sJ ‚ttˆˆ tƒƒtˆtˆ ƒttƒƒks+J ‚tˆˆ tƒ t¡ tˆ ˆ d ƒtt| tˆ |ƒ t|ƒt|ˆ  d ƒ  |dˆfƒ tˆƒ ¡s`J ‚tˆˆ tƒ d¡ tˆ ˆ d ƒtt| tˆ |ƒ t|ƒt|ˆ  d ƒ  |dˆfƒ tˆƒ ¡s•J ‚tt‡ fdd„ƒ tt‡ ‡fdd„ƒ tt‡ ‡fdd„ƒ d S )Nr)   r0   Úalphar   r,   r-   r/   rS   rW   ÚpTr1   r.   r3   r9   c                      s   t dˆ tƒS r4   )r   r(   r5   )r„   r5   r6   r7   Ù  rl   z%test_assoc_laguerre.<locals>.<lambda>c                      rI   r[   ©r   r(   r;   r5   ©r„   r)   r5   r6   r7   Ú  rL   c                      rI   rJ   r†   r5   r‡   r5   r6   r7   Û  rL   )r   r   r(   r`   rx   r#   r>   r!   r   r   r   r
   r?   r   r   rA   r   r   r   r'   r@   r&   )r0   ÚirC   r…   rD   r5   r‡   r6   Útest_assoc_laguerre¯  sl   .ÿ8ÿþ ÿ$
ÿ
ÿ"ÿÿÿ
ÿ"ÿÿÿ
ÿr‰   N)BZsympy.concrete.summationsr   Zsympy.core.functionr   r   Zsympy.core.numbersr   r   r   r   Zsympy.core.singletonr	   Zsympy.core.symbolr
   r   Z(sympy.functions.combinatorial.factorialsr   r   r   Z$sympy.functions.elementary.complexesr   Z&sympy.functions.elementary.exponentialr   Z#sympy.functions.elementary.integersr   Z(sympy.functions.elementary.miscellaneousr   Z(sympy.functions.elementary.trigonometricr   Z'sympy.functions.special.gamma_functionsr   Zsympy.functions.special.hyperr   Z#sympy.functions.special.polynomialsr   r   r   r   r   r   r   r   r   r   r    r!   r"   Zsympy.polys.orthopolysr#   Zsympy.polys.polyrootsr$   Zsympy.core.exprr%   r&   Zsympy.testing.pytestr'   r(   rE   rM   rb   rq   rz   r~   r€   rƒ   r‰   r5   r5   r5   r6   Ú<module>   s:    <@475C"".