Tag Info

Hot answers tagged

5

The problem is the ByteCount of H is ~630 KB, so Simplify will run forever. ComplexExpand[ With[{z = x + I y}, E^-Sqrt[z^2]/(Sqrt[z^2]+Sqrt[z^2] Cosh[Sqrt[z^2]]+Sqrt[z^2] Sinh[Sqrt[z^2]]) ] ] // ByteCount (* 629392 *) Here are two partial workarounds. I call these workarounds because it proves H is not analytic, but it doesn't derive it i.e. we ...


4

The Package HypExp does exactly that. Here is the link to paper for what I believe was the last extension. After digging around a bit, the package files should be available here ( Edit freely available link) Several years ago, there has been some work on the simplification of polylogarithms into a Hopt Algebras, which simplifies the reduction of the ...


4

Only a suggestion, not a full answer: As far as I can see the ISC returns Maple code. Therefore, after importing the output of the website as string into Mathematica, the biggest challenge is to convert the output from Maple to Mathematica code. A quick google search reveals that there is a package in the MathLibrary. I guess chances are good that the ...


2

rules = {a b -> p, a c / d -> q} Expand[a (b + 42 c/d)] /. rules (*p + 42 q*)


2

Here is an example of how you can fetch the results, but there is the question of what to do if multiple results are returned. I'm using URLBuild but you could do the same manually if you don't have Mathematica 10. num = 4.17 Cases[ Import[ URLBuild[ "http://isc.carma.newcastle.edu.au/advancedCalc", {"input" -> num}], "XMLObject"], ...


2

I get a better fit with an asymptotic complexity between n^4 and n^5. I think Det is doing a lot of simplification of symbolic expressions, which may account for some of the increased complexity. nMax = 35; entry[] := RandomInteger[{-9, 9}] + RandomInteger[{-9, 9}]*t findTime[n_] := Block[{m, time, det}, m = Table[entry[], {i, 1, n}, {j, 1, n}]; {time, ...


1

Let me start addressing the Green function part of the question. Lets define a Heat equation and its generic solution (see above) operator[p_] := D[p, t] - D[Δ D[p, x], x]; sol = Heat[Δ, -Infinity] and build a general solution via superposition as: sol1 = Integrate[(sol /. x -> x - y) g[y], {y, -Infinity, Infinity}] Plot[sol1 /. g -> ...


1

In a few seconds Mathematica 7.0.1 under Windows returns: (Mass (r1 Rotation + (r1^2 + Rotation^2) ArcTan[Rotation/r1]))/(2 r1^2 Rotation) On the other hand Mathematica 10.0.0 is still working after several minutes. Assuming the above output is correct this seems like a regression.



Only top voted, non community-wiki answers of a minimum length are eligible