Skip to main content

simplifying expressions - Mathematica performs insufficient or too slow or too memory consuming simplification


Using Mathematica 10,


Simplify[Sqrt[Sin[x]^6 ((a^2 + r[]^2)^2 - 

a^2 (q^2 + a^2 - 2 m r[] + r[]^2) Sin[x]^2)^2]/((a^2 +
a^2 Cos[2 x] + 2 r[]^2)^2 (-a^2 q^2 + a^4 +
2 m a^2 r[] + 3 a^2 r[]^2 + 2 r[]^4 + a^2 Cos[2 x] (q^2 + a^2 - 2 m r[] + r[]^2))),
Assumptions -> {(a^2 + r[]^2)^2 - a^2 (q^2 + a^2 - 2 m r[] +
r[]^2) Sin[x]^2 > 0}]

yields the weird expression: $$\begin{cases} \frac{\sin ^3(x)}{2 \left(a^2 \cos (2 x)+a^2+2r()^2\right)^2} & \sin (x)\geq 0 \\ -\frac{\sin ^3(x)}{2 \left(a^2 \cos (2 x)+a^2+2r()^2\right)^2} & \text{True} \\ \end{cases}.$$ If I add the assumption $0 \leq x \leq \pi$, then the result becomes: $$\begin{cases} \frac{\sin ^3(x)}{2 \left(a^2 \cos (2 x)+a^2+2r()^2\right)^2} & a^2 (a^2+q^2 -2 m r() +r^2) \sin^2(x)\leq (a^2 + r()^2)^2\\ -\frac{\sin ^3(x)}{2 \left(a^2 \cos (2 x)+a^2+2r()^2\right)^2} & \text{True} \\ \end{cases},$$ in which the first conditional is actually the first assumption! The correct result is of course the first without the extra conditional.


What does the "True" conditional mean? Why is the second result still not sufficiently simplified?


Another example (2):


Simplify[Conjugate[a + I Cos[θ] r], Assumptions -> {a > 0, θ > 0, r > 0}]


yields Conjugate[a + I r Cos[θ]]. If I attempt simplification of each part in the sum, the result is the expected one!


Simplify seems to be a extremely sensitive to input. Is there any advice to work around these issues?


Another example (3):


Is it possible to make FullSimplify apply only to expressions that include Conjugate, so that the expression can be simplified quickly? I have a long expression and only simplification of the Conjugate is necessary; FullSimplify on the full expression takes more than an hour. Any ideas?


Solution The fastest way (mere seconds) I could find to simplify an expression enclosed in Conjugate is to define the expression as Map[Simplify[Conjugate[#]]&, expr,{-1}]. This has the drawback that the simplified Conjugate is mapped only on "objects that have no subparts", according to the documentation, which suits my purpose fine at the moment.


Another example (4):


When trying to simplify a very long expression, Simplify and FullSimplify cache intermediate results of the simplification in order to speed up the process, but this has certain disadvantages:



  1. Long expressions tend to create extremely big caches, which is apparent as the memory size of the kernel reaches many GB and is never released after the simplification is aborted.


  2. The result changes depending on the cache created earlier, which reduces the determinism of the process.

  3. The cache created earlier may cause next simplifications to last too long for various reasons.


Is there a way to disable or control the cache created by Simplify and FullSimplify?




Comments

Popular posts from this blog

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...