Re: Switching to Mac caused 20x slowdown - please help!
- To: mathgroup at smc.vnet.net
- Subject: [mg60314] Re: Switching to Mac caused 20x slowdown - please help!
- From: "flatuniverse" <flatuniverse at gmail.com>
- Date: Sat, 10 Sep 2005 22:36:39 -0400 (EDT)
- References: <200509090807.EAA16024@smc.vnet.net><dfuds3$1qm$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
The energy saver seems to have no effect.
Compiling the code as is seems to have no effect. I tried playing
around with the code - the following version does a little better but
is still very slow - about 0.1 sec compared to 0.01 sec in Linux.
\!\(\*
RowBox[{
RowBox[{"cnewmag", "=",
RowBox[{"Compile", "[",
RowBox[{\({z, dq, dz, z1}\), ",", "\[IndentingNewLine]",
RowBox[{\(z2 = z1 + dz\), ";",
"\[IndentingNewLine]", \(Om = .28\), ";
", \(h = .717137\), ";", "\[IndentingNewLine]",
RowBox[{"5",
RowBox[{"Log", "[",
RowBox[{"10", ",", "\[IndentingNewLine]",
RowBox[{\(\((1 + z)\)\/\(10 h*H0\)\), " ",
RowBox[{"NIntegrate", "[", "\[IndentingNewLine]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{\((Om*\((1 + x)\)\^3 + \((1 -
Om)\))\), "*
",
RowBox[{"\[Piecewise]", GridBox[{
{"1", \(x = z1\)},
{\(\((\(1 + x\)\/\(1 + z1\))\)\^\(2
dq\)\), \(z1 < x < z2\)},
{\(\((\(1 + z2\)\/\(1 +
z1\))\)\^\(2 dq\)\), \(x = z2\)}
}]}]}], ")"}], \(\(-1\)/2\)], ",",
\({x,
0, z}\)}], "]"}]}]}], "]"}]}]}]}],
"\[IndentingNewLine]", "]"}]}], ";"}]\)
- References:
- Switching to Mac caused 20x slowdown - please help!
- From: "flatuniverse" <flatuniverse@gmail.com>
- Switching to Mac caused 20x slowdown - please help!