Why these definitions are so slow
- To: mathgroup at smc.vnet.net
- Subject: [mg52139] Why these definitions are so slow
- From: Arturas Acus <acus at itpa.lt>
- Date: Fri, 12 Nov 2004 02:13:52 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Dear Group, Could somebody explain why these simple definitions takes so long time to run? I also tried to wrap them with HoldPattern[] in various ways, change blanks, etc., all in vain. In[1]= Integralas[Times[a__, b_?(FreeQ[#, rTilde] &), c___]] := b*Integralas[Times[a, c]] Integralas[Plus[a__, b_?(FreeQ[#, rTilde] &), c___]] := b + Integralas[Plus[a, c]] Integralas[n_?NumberQ] := n In[2]= Integralas[(3*aTilde)/(4*Pi) + (3*aTilde*j)/(2*Pi) + (3*aTilde*j^2)/(2*Pi) - (9*aTilde*Cos[2*F[rTilde]])/(8*Pi) + (3*aTilde*j*Cos[2*F[rTilde]])/(2*Pi) + (3*aTilde*j^2*Cos[2*F[rTilde]])/(2*Pi) + 3*rTilde^2*Sin[F[rTilde]]^2 - 4*j*rTilde^2*Sin[F[rTilde]]^2 - 4*j^2*rTilde^2*Sin[F[rTilde]]^2 + 3*rTilde^2*Cos[2*F[rTilde]]*Sin[F[rTilde]]^2 - 4*j*rTilde^2*Cos[2*F[rTilde]]*Sin[F[rTilde]]^2 - 4*j^2*rTilde^2*Cos[2*F[rTilde]]*Sin[F[rTilde]]^2 - Sin[F[rTilde]]^4 - 2*j*Sin[F[rTilde]]^4 - 2*j^2*Sin[F[rTilde]]^4 - 6*rTilde^2*Sin[F[rTilde]]^4 + 8*j*rTilde^2*Sin[F[rTilde]]^4 + 8*j^2*rTilde^2*Sin[F[rTilde]]^4 + 3*Cos[2*F[rTilde]]*Sin[F[rTilde]]^4 - 4*j*Cos[2*F[rTilde]]*Sin[F[rTilde]]^4 - 4*j^2*Cos[2*F[rTilde]]*Sin[F[rTilde]]^4] In[4]:= $Version Out[4]= 5.0 for Linux (November 18, 2003) Sincerely, Arturas Acus