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)
-------------------------------------