Wolfram Function Repository
Instant-use add-on functions for the Wolfram Language
Function Repository Resource:
Replace repeated subexpressions in an expression with new symbols
ResourceFunction["SimplifyRepeatedSubexpressions"][expr] returns a list of the expr with repeated subexpressions removed, along with the replacement rules used to rewrite them in simpler form. |
"MinLeafCount" | 2 | minimum size of the subexpressions to be extracted |
"VariableNames" | Unique[]& | method to generate the names of the subexpressions |
Find the repeated term in the expression (a+b+c)3+(a+b+c)2:
In[1]:= | ![]() |
Out[1]= | ![]() |
Reconstruct the original expression from the decomposed form:
In[2]:= | ![]() |
Out[2]= | ![]() |
Finding many small common subexpressions may not be helpful:
In[3]:= | ![]() |
Out[3]= | ![]() |
Find only the largest with "MinLeafCount":
In[4]:= | ![]() |
Out[4]= | ![]() |
You can control the prefix used for subexpressions by providing a string:
In[5]:= | ![]() |
Out[5]= | ![]() |
You can also control the names used for subexpressions by providing a list of variable names:
In[6]:= | ![]() |
Out[6]= | ![]() |
Or by providing a generating function:
In[7]:= | ![]() |
Out[7]= | ![]() |
The "VariableNames" option takes the subexpression as an argument:
In[8]:= | ![]() |
Out[8]= | ![]() |
Remove the discriminant from the quadratic solution equations:
In[9]:= | ![]() |
Out[9]= | ![]() |
Reconstruct the original expression from the decomposed form by applying ReplaceRepeated:
In[10]:= | ![]() |
Out[10]= | ![]() |
In[11]:= | ![]() |
Out[11]= | ![]() |
The FullForm of subexpressions must match; in this case, no match is found:
In[12]:= | ![]() |
Out[12]= | ![]() |
This is because the outermost Plus has four arguments and not just the a, b and c:
In[13]:= | ![]() |
Out[13]= | ![]() |
If the input expression contains elements with HoldAll, HoldRest or HoldFirst, the contents will evaluate during the search:
In[14]:= | ![]() |
Out[14]= | ![]() |
Simplify the third-degree polynomial solution:
In[15]:= | ![]() |
Out[15]= | ![]() |
And the fourth-degree polynomial solution:
In[16]:= | ![]() |
Out[16]= | ![]() |
Construct meaningful variable names based on their content:
In[17]:= | ![]() |
In[18]:= | ![]() |
Out[18]= | ![]() |
Wolfram Language 11.3 (March 2018) or above
This work is licensed under a Creative Commons Attribution 4.0 International License