Services & ResourcesWolfram ForumsMathGroup Archive

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

Mathematica 7 much slower than Mathematica 6 on Limit

• To: mathgroup at smc.vnet.net
• Subject: [mg94767] Mathematica 7 much slower than Mathematica 6 on Limit
• From: "wb at wavebounce.com" <wb at wavebounce.com>
• Date: Tue, 23 Dec 2008 07:00:56 -0500 (EST)

I just updated to Mathematica 7 and here's the first Mathematica 6 notebook I've had any problem with. Can anyone comment on whether I should make some change to speed up this routine? Surely Mathematica 7 isn't 15 times slower in general.
On my WinXP machine:
104.9 sec on Mathematica 7
8.7 sec on Mathematica 6

Thanks.
**************
h = 1.575; er = 4.7;er2 = (er - 1)/2;
p[k_] := Sqrt[1 - k^2];

With[{a = 0.5}, 
    Limit[120 Pi EllipticK[a/d]/EllipticK[p[a/d]]/
    Sqrt[1 + er2 EllipticK[
    p[a/d]] EllipticK[Sinh[Pi a/2/h]/Sinh[Pi d/2/h]]/
    EllipticK[a/d]/EllipticK[p[Sinh[Pi a/2/h]/Sinh[Pi d/2/h]]]], 
    d -> 1000]]
****************

• Follow-Ups:
  • Re: Mathematica 7 much slower than Mathematica 6 on Limit
    • From: Syd Geraghty <sydgeraghty@me.com>