[math-fun] Elliptical answer, hyperbolic running time
I'll bet the Computer History Museum has an IBM 407 card lister-- a plugboard-programmable electromechanical beast costing tens of thousands of 1960 dollars, which printed the contents of a deck of punched cards, one line per card. (Kaschlunk, kaschlunk.) There was also a slower, cheaper model E8, which was a 407 with extra relay logic on its plugboard to make it skip every third print cycle. This is the earliest instance of crippleware I know of. (Savvy customers uncrippled their plugboard, but kept handy a crippled one in case of a visit from the IBM technical rep.) What does WRI charge to uncripple its elliptic integrals? In[260]:= Assuming[a > 0 && b > 0, ArcLength[{a*Cos[t], b*Sin[t]}, {t, 0, 2 \[Pi]}]] // tim During evaluation of In[260]:= 644.048,2 (nearly 11 minutes). Out[260]= 2 (b EllipticE[1 - a^2/b^2] + a EllipticE[1 - b^2/a^2]) For an intermediate price, they could show a video of Giordano Bruno being burned at the stake. You can skip this ad in 4:58, 4:57,... --rwg
On Nov 17, 2015, at 4:22 PM, Bill Gosper <billgosper@gmail.com> wrote:
What does WRI charge to uncripple its elliptic integrals? In[260]:= Assuming[a > 0 && b > 0, ArcLength[{a*Cos[t], b*Sin[t]}, {t, 0, 2 \[Pi]}]] // tim
I bet anything that the glitches in Mathematica can't hold a candle to the glitches in Wolfram MathWorld, which I think it's fair to say is riddled with non-errors. —Dan
participants (2)
-
Bill Gosper -
Dan Asimov