+
    i5                        ^ RI HtHtHtHtHtHtHtHtH	t	H
t
HtHt ^ RIHtHtHtHtHtHtHtHtHtHtHtHtHt ^ RIHtHtHtHtH t H!t! ^ RI"H#t# ^ RI$H%t% ^ RI&H't'H(t(H)t) ^ RI*H+t+ ^ RI,H-t- ^ R	I.H/t/ ^ R
I0H1t1H2t2 ^ RI3H4t4H5t5 ^ RI,H6t6 ]! R4      w  t7t8t9R t:R t;R t<R t=R t>R t?R t@R tAR tBR tCR tDR tER tFR tGR tHR tIR tJR tKR  tLR! tMR" tNR# tOR$ tPR% tQR& tRR' tSR( tTR) tUR* tVR+ tWR, tXR- tYR. tZR/# )0    )SpiooSymbolsymbolsRationalIntegerGoldenRatio
EulerGammaCatalanLambdaDummy)	PiecewisesincosAbsexpceilingsqrtgammasignMaxMin	factorialbeta)EqGeGtLeLtNe)Range)ITE)For
aug_assign
Assignment)raises)RCodePrinter)implemented_function)IndexedBaseIdx)MatrixMatrixSymbol)rcodezx,y,zc                  \     ! R  R\         4      p \        V ! \        4      4      R8X  g   Q hR# )c                   &   a  ] tR t^t o R tRtV tR# )test_printmethod.<locals>.fabsc                T    R VP                  V P                  ^ ,          4      ,          # )zabs(%s))_printargs)selfprinters   &&]/var/www/html/photoedit/myenv/lib/python3.14/site-packages/sympy/printing/tests/test_rcode.py_rcode%test_printmethod.<locals>.fabs._rcode   s    w~~diil;;;     N)__name__
__module____qualname____firstlineno__r8   __static_attributes____classdictcell__)__classdict__s   @r7   fabsr1      s     	< 	<r:   rC   abs(x)N)r   r.   x)rC   s    r7   test_printmethodrF      s&    <s < a>X%%%r:   c                      \        \        \        4      4      R 8X  g   Q h\        \        R,          4      R 8X  g   Q h\        \        \        4      4      R 8X  g   Q hR# )zsqrt(x)      ?N)r.   r   rE   r;   r:   r7   test_rcode_sqrtrI      sD    a>Y&&&C=I%%%a>Y&&&r:   c                     \        \        ^,          4      R8X  g   Q h\        \        \        ^,          ,          4      R8X  g   Q h\        R\	        \        ^\        ,          4      4      p \        ^V ! \        4      R,          \        \        \        ,          ,
          ,          ,          \        ^,          \        ,           ,          4      R8X  g   Q h\        \        R,          4      R8X  g   Q h\        \        \        ^^4      ,          4      R8X  g   Q hR R	3R
 R3.p\        \        ^,          RV/R7      R8X  g   Q h\        \        R,          RV/R7      R8X  g   Q hR# )   zx^3zx^(y^3)gg      @z(3.5*2*x)^(-x + y^x)/(x^2 + y)z1.0/xzx^(2.0/3.0)c                     VP                   # N
is_integerbaser   s   &&r7   <lambda> test_rcode_Pow.<locals>.<lambda>*   s    cnnr:   dpowic                 $    VP                   '       * # rN   rO   rQ   s   &&r7   rS   rT   +   s    #..&8r:   powPowuser_functionszdpowi(x, 3)g	@zpow(x, 3.2)Ng      )r.   rE   yr)   r   r   )rL   _cond_cfuncs     r7   test_rcode_Powr]   "   s   A;%QTy(((S&AaC.1AAaDHAqD))1a4!845() ) )D>W$$$HQN"#}4444g>8%@BKAuk&:;}LLLC(<=NNNr:   c                  p    \        \        \        \        \        ,          4      R RRR/R7      R8X  g   Q hR# )r   my_maxrX   my_powrY   zmy_max(x, my_pow(x, 2))N)r.   r   rE   r;   r:   r7   test_rcode_Maxra   0   s+    QqsE(E(+KLPiiiir:   c                      \        \        ^4      4      R8X  g   Q h\        \        4      R8X  g   Q h\        \        4      R8X  g   Q h\        \        ) 4      R8X  g   Q hR# )   zexp(1)r   Infz-InfN)r.   r   r   r   r;   r:   r7   test_rcode_constants_mathhre   5   sP    Q=H$$$99":r:   c                      \        ^\        ,          4      R8X  g   Q h\        ^\        ,          4      R8X  g   Q h\        ^\        ,          4      R8X  g   Q hR# )   z-GoldenRatio = 1.61803398874989;
2*GoldenRatioz&Catalan = 0.915965594177219;
2*Catalanz,EulerGamma = 0.577215664901533;
2*EulerGammaN)r.   r
   r   r   r;   r:   r7   test_rcode_constants_otherrh   <   sV    ;#SSSS	'	?@ @ @:"QQQQr:   c                     \        \        ^^4      4      R8X  g   Q h\        \        ^^	4      4      R8X  g   Q h\        \        ^R4      4      R8X  g   Q h\        \        RR4      4      R8X  g   Q h\        \        \        ^^4      ,           4      R8X  g   Q h\        \        ^^4      \        ,          4      R8X  g   Q hR# )	rK   z3.0/7.02z-3.0/7.0zx + 3.0/7.0z(3.0/7.0)*xNi)r.   r   rE   r;   r:   r7   test_rcode_Rationalrl   C   s    !Q I---"a!S(((!R!Z///"b!"i///Xa^#$555!Q!"m333r:   c                  r    \        \        ^C4      4      R8X  g   Q h\        \        R4      4      R8X  g   Q hR# )C   67z-1N)r.   r	   r;   r:   r7   test_rcode_Integerrq   L   s0    %%%%%%r:   c            	      R   \        \        \        4      \        \        4      ,          4      R 8X  g   Q h\        \	        \        4      \        \        4      ,           4      R8X  g   Q h\        \        \        \        \        4      \        \        \        4      4      4      R8X  g   Q hR# )zsin(x)^cos(x)zfactorial(x) + gamma(y)zbeta(min(x, y), max(x, y))N)
r.   r   rE   r   r   r   r[   r   r   r   r;   r:   r7   test_rcode_functionsrs   Q   sj    Q3q6!"o5551a()-FFFFc!QiQ+,0LLLLr:   c            	      2   \        R 4      p \        R\        V ^V ,          4      4      p\        V! V 4      4      R8X  g   Q h\        R\        V ^V ,          \        ,          4      4      p\        V! V 4      4      R\        P
                  ! 4       ,          8X  g   Q h\        R4      p\        R\        RRR7      4      p\        R\        W ^V ,           ,          ^V ,           ,          4      4      p\        V! W#,          4      W#,          R	7      pR
pWE8X  g   Q hR# )rE   rL   z2*xzCatalan = %s;
2*x/CatalanAinTinteger	assign_toz7for (i in 1:n){
   A[i] = (A[i] + 1)*(A[i] + 2)*A[i];
}N)r   r)   r   r.   r   rw   r*   r+   )rE   rL   ru   rv   resrefs         r7   test_rcode_inline_functionr~   W   s    AS&AaC.1A1;%S&AaCK"89A	!-		;< < <CACd+,AS&q1uIq1u,=">?Aag&C	 
 ::r:   c                      \        \        \        4      4      R 8X  g   Q h\        \        \        4      4      R8X  g   Q h\        \	        \        4      4      R8X  g   Q hR# )z
ceiling(x)rD   zgamma(x)N)r.   r   rE   r   r   r;   r:   r7   test_rcode_exceptionsr   j   sE    ,,,Q=H$$$q?j(((r:   c                     \        R RR7      p \        RRR7      pRRRR R	3R
 R3./p\        \        V 4      VR7      R8X  g   Q h\        \        V 4      VR7      R8X  g   Q h\        \        V4      VR7      R8X  g   Q hR# )rE   Frx   rw   Tr   myceilr   c                 $    V P                   '       * # rN   rO   rE   s   &r7   rS   +test_rcode_user_functions.<locals>.<lambda>u   s    q||+r:   rC   c                     V P                   # rN   rO   r   s   &r7   rS   r   u   s    r:   absrY   z	myceil(x)zfabs(x)zabs(n)N)r   r.   r   r   )rE   rw   custom_functionss      r7   test_rcode_user_functionsr   p   s    U#AT"A8+V47Mu6UV ,<=LLLQ(89YFFFQ(89XEEEr:   c                     \        R 4      R8X  g   Q h\        \        P                  4      R8X  g   Q h\        R4      R8X  g   Q h\        \        P                  4      R8X  g   Q h\        \        \
        ,          4      R8X  g   Q h\        \        \
        ,          4      R8X  g   Q h\        \        ( 4      R8X  g   Q h\        \        \
        ,          \        ,          4      R8X  g   Q h\        \        \
        ,          \        ,          4      R8X  g   Q h\        \        \
        ,          \        ,          4      R	8X  g   Q h\        \        \
        ,          \        ,          4      R
8X  g   Q hR# )TTrueFFalsezx & yzx | yz!xz	x & y & zz	x | y | zz	z | x & yzz & (x | y)N)r.   r   truefalserE   r[   zr;   r:   r7   test_rcode_booleanr   |   s    ;&   =F"""<7""">W$$$Q<7"""Q<7"""!9Q{***Q{***!a%1,,,!a%1...r:   c                     \        \        \        \        4      4      R 8X  g   Q h\        \	        \        \        4      4      R8X  g   Q h\        \        \        \        4      4      R8X  g   Q h\        \        \        \        4      4      R8X  g   Q h\        \        \        \        4      4      R8X  g   Q h\        \        \        \        4      4      R8X  g   Q hR# )zx == yzx != yzx <= yzx < yzx > yzx >= yN)	r.   r   rE   r[   r!   r   r    r   r   r;   r:   r7   test_rcode_Relationalr      s    Aq?h&&&Aq?h&&&Aq?h&&&Aq?g%%%Aq?g%%%Aq?h&&&r:   c                     \        \        \        ^8  3\        ^,          R34      p \        V 4      pRpW8X  g   Q h\        R4      p\        W4      pRpW8X  g   Q h^\        \        \        ^8  3\        ^,          \        ^8  3\        ^,          R34      ,          p \        V 4      R8X  g   Q h\        V RR7      pVR8X  g   Q h^\        \        \        ^8  3\        ^,          \        ^8  34      ,          p \        V 4      R	8X  g   Q hR
# )rc   Tzifelse(x < 1,x,x^2)tauztau = ifelse(x < 1,x,x^2);z'2*ifelse(x < 1,x,ifelse(x < 2,x^2,x^3))crz   z,c = 2*ifelse(x < 1,x,ifelse(x < 2,x^2,x^3));z&2*ifelse(x < 1,x,ifelse(x < 2,x^2,NA))N)r   rE   r.   r   )exprr|   r}   r   s       r7   test_rcode_Piecewiser      s    aQZ!Q$.DdCC::uCdC$C::Y1q5zAqD!A#;Ad<<D;CCCC

$C@@@@
 Y1q5zAqD!A#;//D;B
BB
Br:   c                  T    ^ RI Hp  V ! \        4      p\        V4      pRpW#8X  g   Q hR# )r   )sincz(ifelse(x != 0,sin(x)/x,1))N)(sympy.functions.elementary.trigonometricr   rE   r.   )r   r   r|   r}   s       r7   test_rcode_sincr      s&    =7D
+C
'C::r:   c            	         \        ^\        \        \        ^8  3\        ^,           \        ^8  3\        ^,          R34      ,          4      p V R8X  g   Q h\        \        ,          \        ,          \        ^,          ,           \        ^,          ,           \        ^ \        R8  3R	4      ,           \        \        4      ,           ^,
          p\        V4      p RpW8X  g   Q hRp\        VRR7      p W8X  g   Q hR# )
rg   Tz)2*ifelse(x < 1,x,ifelse(x < 2,x + 1,x^2))rH   z4x^2 + x*y*z + y^2 + ifelse(x < 0.5,0,1) + cos(z) - 1z9c = x^2 + x*y*z + y^2 + ifelse(x < 0.5,0,1) + cos(z) - 1;r   rz   N)rc   T)r.   r   rE   r[   r   r   )pr   r}   s      r7   test_rcode_Piecewise_deepr      s    a	1a!e*q1ua!enq!tTlCCDA;;;;Q3q51a4<!Q$Aq3w<!CCc!fLqPDdA>C8O8CCdc"A8O8r:   c                  h    \        \        ^8  \        \        4      p \	        V 4      pRpW8X  g   Q hR# )rc   zifelse(x < 1,y,z)N)r#   rE   r[   r   r.   )r   r   r}   s      r7   test_rcode_ITEr      s+    q1uaDdAC8O8r:   c                  (    \        \        R  4       R# )c                  6    \        \        \        4      R R7      # )garbage)method)r.   r   rE   r;   r:   r7   rS   %test_rcode_settings.<locals>.<lambda>   s    eCF9=r:   N)r'   	TypeErrorr;   r:   r7   test_rcode_settingsr      s    
9=>r:   c                     \        R RR7      w  rp\        RV 4      \        RV4      \        RV4      rTp\        4       p\        4       Vn        \        R4      V,          pVP                  V4      R8X  g   Q h\        R4      W43,          pVP                  V4      R	8X  g   Q h\        R
4      W4V3,          p	VP                  V	4      R8X  g   Q hVP                  \        4       8X  g   Q hR# )zn m oTrx   rv   jkrE   zx[j]ru   zA[i, j]Bz
B[i, j, k]N)r   r+   r(   set_not_rr*   _print_Indexed)
rw   morv   r   r   r   rE   ru   r   s
             r7   test_rcode_Indexedr      s    gt,GA!#qk3sA;C!AAuAHCAA&(((CAA)+++Cq!AA,...88sur:   c                     ^p \        RV 3R7      p\        RV 3R7      p\        RV ^,
          3R7      p\        RV ^,
          4      p\        W4,          W^,           ,          W,          ,
          W$^,           ,          W$,          ,
          ,          4      p\        VP                  VP
                  RR7      pVRV^,           : R	V^,           : R
28X  g   Q hR# )   r[   )shaperE   Dyrv   F)r{   contractzDy[i] = (y[z] - y[i])/(x[z
] - x[i]);N)r*   r+   r   r.   rhslhs)len_yr[   rE   r   rv   ecode0s          r7   2test_rcode_Indexed_without_looking_for_contractionr      s    ECx(ACx(A	T%'	,BCqAQ3q1vad{+,A!%%15559EAq1uuMMMMr:   c                      \        R RR7      w  r\        R4      p\        R4      p\        R4      p\        RV4      p\        RV 4      pRp\        W%V3,          W6,          ,          WE,          R	7      pW8X  g   Q hR
# )n mTrx   ru   rE   r[   rv   r   zjfor (i in 1:m){
   y[i] = 0;
}
for (i in 1:m){
   for (j in 1:n){
      y[i] = A[i, j]*x[j] + y[i];
   }
}rz   Nr   r*   r+   r.   )	rw   r   ru   rE   r[   rv   r   sr   s	            r7   test_rcode_loops_matrix_vectorr      ss    5$'DACACACACACA	  	a1gadlad+A6M6r:   c                     \        R R\        R7      w  r\        R4      p\        R4      p\        W4      p RRV P                  P
                  RVP
                  /,          p\        W ,          W0,          R7      pWT8X  g   Q hR	# )
zi mT)ry   clsrE   r[   zMfor (i_%(icount)i in 1:m_%(mcount)i){
   y[i_%(icount)i] = x[i_%(icount)i];
}icountmcountrz   N)r   r   r*   r+   labeldummy_indexr.   )rv   r   rE   r[   expectedcodes         r7   test_dummy_loopsr      sx     5$E2DACACAA	A 
177&&!--@	AH
 &Dr:   c                  D   \        R RR7      w  r\        R4      p\        R4      p\        R4      p\        R4      p\        RV4      p\        RV 4      pR	p\        W&V3,          W7,          ,          W6,          ,           WV,          ,           WF,          R
7      p	W8X  g   Q hR# )r   Trx   ru   rE   r[   r   rv   r   ztfor (i in 1:m){
   y[i] = x[i] + z[i];
}
for (i in 1:m){
   for (j in 1:n){
      y[i] = A[i, j]*x[j] + y[i];
   }
}rz   Nr   )
rw   r   ru   rE   r[   r   rv   r   r   r   s
             r7   test_rcode_loops_addr   
  s    5$'DACACACACACACA	  	a1gadlQT!AD(AD9A6M6r:   c                  2   \        R RR7      w  rr#\        R4      p\        R4      p\        R4      p\        RV4      p\        RV 4      p\        RV4      p	\        R	V4      p
R
p\        WXW3,          WGWV
3,          ,          Wg,          R7      pW8X  g   Q hR# )n m o pTrx   abr[   rv   r   r   lzfor (i in 1:m){
   y[i] = 0;
}
for (i in 1:m){
   for (j in 1:n){
      for (k in 1:o){
         for (l in 1:p){
            y[i] = a[i, j, k, l]*b[j, k, l] + y[i];
         }
      }
   }
}rz   Nr   )rw   r   r   r   r   r   r[   rv   r   r   r   r   r   s                r7   &test_rcode_loops_multiple_contractionsr   !  s    D1JA!CACACACACACACA	  	a1jaA:&!$7A6M6r:   c                  h   \        R RR7      w  rr#\        R4      p\        R4      p\        R4      p\        R4      p\        RV4      p\        RV 4      p	\        R	V4      p
\        R
V4      pRp\        WHWV3,          WXWV3,          ,           WiW3,          ,          Wx,          R7      pWl8X  g   Q hR# )r   Trx   r   r   r   r[   rv   r   r   r   zfor (i in 1:m){
   y[i] = 0;
}
for (i in 1:m){
   for (j in 1:n){
      for (k in 1:o){
         for (l in 1:p){
            y[i] = (a[i, j, k, l] + b[i, j, k, l])*c[j, k, l] + y[i];
         }
      }
   }
}rz   Nr   )rw   r   r   r   r   r   r   r[   rv   r   r   r   r   s                r7   test_rcode_loops_addfactorr   =  s    D1JA!CACACACACACACACA	  	qA!}qA!},a1j8ADIA6M6r:   c                     \        R RR7      w  rr#\        R4      p\        R4      p\        R4      p\        R4      p\        RV4      p\        RV 4      p	\        R	V4      p
R
pRpRpRp\        WY,          WHV	3,          ,          WZ,          WHV
3,          ,          ,           WY,          WZ,          ,          WhW3,          ,          ,           Wx,          R7      p/ pW,           V,           VRR ,           V^ &   W,           V,           VRR ,           V^&   W,           V,           VRR ,           V^&   W,           V,           VRR ,           V^&   W,           V,           VRR ,           V^&   W,           V,           VRR ,           V^&   Wo^ ,          8X  gN   Wo^,          8X  g?   Wo^,          8X  g0   Wo^,          8X  g!   Wo^,          8X  g   Wo^,          8X  g   Q hR# R# R# R# R# R# )r   Trx   r   r   r   r[   rv   r   r   zfor (i in 1:m){
   y[i] = 0;
}
zufor (i in 1:m){
   for (j in 1:n){
      for (k in 1:o){
         y[i] = b[j]*b[k]*c[i, j, k] + y[i];
      }
   }
}
zLfor (i in 1:m){
   for (k in 1:o){
      y[i] = a[i, k]*b[k] + y[i];
   }
}
zLfor (i in 1:m){
   for (j in 1:n){
      y[i] = a[i, j]*b[j] + y[i];
   }
}
rz   Nrp   r   )rw   r   r   r   r   r   r   r[   rv   r   r   s0s1s2s3r}   s                   r7   test_rcode_loops_multiple_termsr   Z  s   D1JA!CACACACACACACA	 	 	 	  		Q!tWqtAdG|#ad14iQ'
&::ad	LA 	CWr\BsG#CFWr\BsG#CFWr\BsG#CFWr\BsG#CFWr\BsG#CFWr\BsG#CFQKQKQKQKQKQK 
      r:   c                      \         \        ,           \        \        4      ,           \        ,           p \	        V \        .R 7      R8X  g   Q hR# ))dereferencezx + y + (*z) + sin((*z))N)rE   r[   r   r   r.   )r   s    r7   test_dereference_printingr     s0    q53q6>ADA3'+EEEEr:   c            	         \        \        \        ,          \        ^\        ,           \        ^ 8  3\        R34      \	        \
        4      .4      p \        R^^4      p\        W4      pVR8X  g   Q h\        ^VR	,          ,          \        ^ 8  3VR	,          R34      \	        VR
,          4      ,           VR,          ,           p\        V4      pVR8X  g   Q h\        R^^4      p\        R^^4      p\        \	        VR
,          4      ^ \        VR	,          4      .VR
,          VR	,          ,           VR,          ^.^VR,          ,          VR
,          ,          \        VR,          4      ^,           ^ ..4      p\        We4      R8X  g   Q hR# )rg   Tru   z8A[0] = x*y;
A[1] = ifelse(y > 0,x + 2,y);
A[2] = sin(z);z,ifelse(x > 0,2*A[2],A[2]) + sin(A[1]) + A[0]qMzM[0] = sin(q[1]);
M[1] = 0;
M[2] = cos(q[2]);
M[3] = q[1] + q[2];
M[4] = q[3];
M[5] = 5;
M[6] = 2*q[4]/q[1];
M[7] = sqrt(q[0]) + 4;
M[8] = 0;N)rg   r   )rc   r   r   r   )rK   r   )   r   )
r,   rE   r[   r   r   r   r-   r.   r   r   )matru   r   r   r   r   r   s          r7   test_Matrix_printingr     sX   
!A#y!a%14y93q6B
CCS!QAcA	  
 a$iQ'!D'49C$LH1T7RDdA@AAAS!QAS!QAQsVaQsV-	
3!C&!D'1%	
1T71S6	4#<!+Q/1 	2A ;		 	 	r:   c                     \        \        4      \        ,          p \        V 4      R 8X  g   Q h\        V R4      pVR8X  g   Q h\        \        ^\        ,          \        ^,          ,           4      \        ,          \        ^,          ,           4      pVR8X  g   Q h\        \	        \        4      4      p \        V 4      pVR8X  g   Q hR# )z	y*sign(x)r   zz = y*sign(x);zx^2 + x*sign(x^2 + 2*x)zsign(cos(x))N)r   rE   r[   r.   r   )r   r   s     r7   test_rcode_sgnr     s    7Q;D;+%%%dCA!!!!d1q51a4< 1$q!t+,A****A<DdAr:   c                      \        \        \        \        \        ,           4      4      R 8X  g   Q h\        \        \        R\        \        ,           4      4      R8X  g   Q hR# )z
x = y + z;+zx += y + z;N)r.   r&   rE   r[   r   r%   r;   r:   r7   test_rcode_Assignmentr     s@    Aq1u%&,666AsAE*+}<<<r:   c            	          \        \        \        ^ ^
^4      \        \        R\        4      .4      p \        V 4      pVR8X  g   Q hR# )r   *z.for(x in seq(from=0, to=9, by=2){
   y *= x;
}N)r$   rE   r"   r%   r[   r.   )fsols     r7   test_rcode_Forr     sD    AuQAAsA!6 78A
(C    r:   c                  (   \        R ^^4      p \        R^^4      p\        R^^4      p\        V R,          4      R8X  g   Q h\        ^V R,          ,          4      R8X  g   Q hVR,          P                  W V,
          4      p\        V4      R8X  g   Q hR# )ru   r   CzA[0]z3*A[0]z
(A - B)[0]Nr   )r-   r.   subs)ru   r   r   Fs       r7   test_MatrixElement_printingr     s    S!QAS!QAS!QA4>V#$#QtW)*)	$QAA8|#$#r:   N)[
sympy.corer   r   r   r   r   r   r	   r
   r   r   r   r   sympy.functionsr   r   r   r   r   r   r   r   r   r   r   r   r   sympy.core.relationalr   r   r   r   r    r!   
sympy.setsr"   sympy.logicr#   sympy.codegenr$   r%   r&   sympy.testing.pytestr'   sympy.printing.rcoder(   sympy.utilities.lambdifyr)   sympy.tensorr*   r+   sympy.matricesr,   r-   r.   rE   r[   r   rF   rI   r]   ra   re   rh   rl   rq   rs   r~   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r   r;   r:   r7   <module>r      s  I I I IE E E E : :   5 5 ' - 9 ) / &
'
1a&'Oj
 R4&
M&)	F/'C,
?N,$.8:6rF
>=

%r:   