by Mark Westw » Sat, 22 Jul 2006 18:59:57
i Alex
I think you have a problem. My Mathematica installation solved the
integral in about 3 seconds, here's the solution (in CellExpression
form)
Cell[BoxData[
RowBox[{
SubsuperscriptBox["\[Integral]",
RowBox[{"-",
FractionBox["d", "2"]}],
FractionBox["d", "2"]],
RowBox[{
RowBox[{
RowBox[{"Cos", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "n"}]}], ")"}], " ", "\[Pi]",
" ", "x"}], "d"], "]"}], " ",
RowBox[{"(",
RowBox[{"p", "+",
RowBox[{
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["\[Pi]", "2"], " ", "w", " ",
SuperscriptBox[
RowBox[{"f", "[", "x", "]"}], "5"]}]],
RowBox[{"(",
RowBox[{"\[ImaginaryI]", " ", "d", " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ", "k", " ",
RowBox[{"f", "[", "x", "]"}]}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["a", "2"], " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox[
RowBox[{"f", "[", "x", "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{
"\[ImaginaryI]", " ", "k", " ",
RowBox[{"f", "[", "x", "]"}]}]}],
")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ",
SuperscriptBox["a", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"f", "[", "x", "]"}],
"2"]}]}], ")"}]}]}], ")"}]}],
")"}]}]}], ")"}]}],
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Output",
CellLabel->"Out[1]="]
and again as plain text, which you may prefer
Out[1]=
\!\(\[Integral]\_\(-\(d\/2\)\)\%\(d\/2\)\(Cos[\(\((1 + 2\ n)\)\ \[Pi]\
\
x\)\/d]\ \((p + \(\(1\/\(8\ \[Pi]\^2\ w\ f[x]\^5\)\)\((\[ImaginaryI]\
d\ \
\[ExponentialE]\^\(\(-\[ImaginaryI]\)\ k\ f[x]\)\ \((a\^2\ k\^2\
f[x]\^2 + \
\((1 + \[ImaginaryI]\ k\ f[x])\)\ \((\(-3\)\ a\^2 +
2\ f[x]\^2)\))\))\)\))\)\)
\[DifferentialD]x\)
Hope this helps
Mark Westwood
Parallel Programmer
axlq wrote: