MathGroup Archive 1994

[Date Index] [Thread Index] [Author Index]

Search the Archive

Symbolic integral

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg201] Symbolic integral
  • From: sergio at shark.inst.bnl.gov (Sergio Rescia)
  • Date: Thu, 3 Nov 94 14:46:05 EST

Dear Mathgroup,

a collegue gave me this integral:

Integrate[
 Exp[-(t1^2 + t2^2)/ell^2] *
 Exp[-2/m^2 (x1 - t1/2)^2] *
 Exp[-2/m^2 (x2 - t2/2)^2],
 {t2,-Infinity,Infinity},
 {t1,-Infinity,Infinity},
 {x2,-Infinity,Infinity},
 {x1,-Infinity,Infinity}
 ]
General::intinit: 
   Loading integration packages -- please wait.
   2  2   2
ell  m  Pi
-----------
     2
Now add the weighting function
Clear[c,w]
c = {1,1/2,1/2,1/2,1/2,1,-1,-1,-1,-1,1};
w = {
 t1 t2,
 (x1 -x2 +t1 -t2)^2,
 (x1 -x2)^2,
 (x1 -x2 +t1)^2,
 (x1 -x2 -t2)^2,
 (x1 -x2 +t1 -t2) (x1 -x2),
 (x1 -x2 +t1 -t2) (x1 -x2 +t1),
 (x1 -x2 +t1 -t2) (x1 -x2 -t2),
 (x1 -x2) (x1 -x2 +t1),
 (x1 -x2) (x1 -x2 -t2),
 (x1 -x2 +t1) (x1 -x2 -t2)
 };

Integrate[
 Exp[-(t1^2 + t2^2)/ell^2] *
 Exp[-2/m^2 (x1 - t1/2)^2] *
 Exp[-2/m^2 (x2 - t2/2)^2] *
 
 Dot[c,Abs[w] ]
 ,
 
 {t2,-Infinity,Infinity},
 {t1,-Infinity,Infinity},
 {x2,-Infinity,Infinity},
 {x1,-Infinity,Infinity}
 ]


I am running on a SparcStation 20 with 64MB memory.

Using ps I see mma was using about 64% memory, and then with no warning exited 
the process with the message:

	"Out of memory.  Exiting."

Any suggestion??

Sergio Rescia


-------------------------------------
Reply to :
Sergio Rescia
Brookhaven National Laboratory
Instrumentation Division - Bld 535B
UPTON, NY 11973-5000 - U.S.A.
E-mail: Rescia at bnl.gov (Internet)
	Rescia at bnl     (Bitnet)
	BNL::RESCIA    (DECNET) 
-------------------------------------








  • Prev by Date: Re: Re: Problems with Mma
  • Next by Date: RESULTS of [mg 169] - InputString[] problem
  • Previous by thread: Re: Re: Problems with Mma
  • Next by thread: RESULTS of [mg 169] - InputString[] problem