PDF (letter size)

## CAS simpliﬁcation comparison between Maple and Mathematica

May 10, 2012   Compiled on May 26, 2022 at 2:17am

### 1 introduction

A detailed but older version that used Maple 11 and Mathematica 5.2 is here which contains images to each expression used.

#### 1.2 updated results using Maple 14 and Mathematica 8.04

This version only shows the ﬁnal result using an updated version of Mathematica and Maple, but does not show each expression generated. When I have more time I hope to also show those in this updated version.

For this version I used Mathematica 8.04 and Maple 14, both on windows 7. The PC is intel i7 930 @ 2.8 Ghz with 8 GB memory

This is the result of doing a simpliﬁcation measure on an expression using Maple and Mathematica using an expression posted on sci.math.symbolic by Dr Carlos.

The expression given in the original post can be found at http://sci4um.com/about26200.html

xnum = ((6-4*Sqrt)*Log[3-2*Sqrt]+(3-2*Sqrt)*Log[17-12*Sqrt]+32-24*Sqrt);
xden = (48*Sqrt-72)*(Log[Sqrt+1]+Sqrt)/3;

x    = xnum/xden;



The answer is $$x = 1$$.

Where $$x$$ is the following expression and in expanded form Using $$x$$ as shown above , the function Expand[] in Mathematica and expand() in Maple are then applied to $$x,x^2,x^4,x^8,x^{16},x^{32}$$, then the result is fully simpliﬁed again, and the leaf count (measure of simplifcation) is compared to the original expression to obtain a measure of the system simpliﬁcation.

Mathematica has both Simplify[expr] and FullSimplify[expr] and Maple has simplify(expr,size) and simplify(expr). Here, I used only the simplify(expr,size) since LeafCount was used.

The tables below show the result of using both functions in each system.

The tables show the size of the expression before and after simpliﬁcation, the percentage in size reduction and the cpu time used.

### 2 results

#### 2.1 Mathematica

Source code used is

xnum = ((6-4*Sqrt)*Log[3-2*Sqrt]+(3-2*Sqrt)*Log[17-12*Sqrt]+32-24*Sqrt);
xden = (48*Sqrt-72)*(Log[Sqrt+1]+Sqrt)/3;
x    = xnum/xden;
xtab = Expand[{x,x^2,x^4,x^8,x^16}];
n    = Length[xtab];
stab = Table[0,{n},{4}];

For[i=1,i<= n,i++,
{
stab[[i,1]] = LeafCount[xtab[[i]]];
s = Timing[Simplify[ xtab[[i]] ]];  (*use FullSimplify or Simplify *)
stab[[i,2]] = LeafCount[ s[] ];
stab[[i,3]] = s[];
stab[[i,4]] = Round[100.0*stab[[i,2]]/stab[[i,1]]];
}
];

Grid[Join[{{"leaf count before","leaf count after","cpu","% reduction"}},stab],
Frame->All
]



##### 2.1.1 using Simplify[]

When running the above code, using Simplify[], this is the result ##### 2.1.2 using FullSimplify[]

When running the above code, using FullSimplify[], this is the result #### 2.2 Maple

##### 2.2.1 using LeafCount()

In maple, using with(MmaTranslator[Mma]) to access the function LeafCount().

Source code

restart;
with(MmaTranslator[Mma]):
xnum := ((6-4*sqrt(2))*ln(3-2*sqrt(2))+(3-2*sqrt(2))*ln(17-12*sqrt(2))+32-24*sqrt(2)):
xden := (48*sqrt(2)-72)*(ln(sqrt(2)+1)+sqrt(2))/3:
x    := xnum/xden:

n:=5:
stab := Matrix(5,4,0):  #Matrix where to keep track of stats
xtab : =expand({x,x^2,x^4,x^8,x^16}):

for i from 1 to n do

stab[i,1]:= LeafCount(xtab[i]):

startingTime := time():
s            := simplify(xtab[i],size):
stab[i,3]    := time()-startingTime:

stab[i,2]    := LeafCount(s):
stab[i,4]    := ceil(100.*stab[i,2]/stab[i,1]):
od:
stab;



Columns have the same meaning as above. ##### 2.2.2 using length()

Source code used is

restart;

xnum := ((6-4*sqrt(2))*ln(3-2*sqrt(2))+(3-2*sqrt(2))*ln(17-12*sqrt(2))+32-24*sqrt(2)):
xden := (48*sqrt(2)-72)*(ln(sqrt(2)+1)+sqrt(2))/3:
x    := xnum/xden:

n    := 5:
stab := Matrix(5,4,0):  #Matrix where to keep track of stats
xtab := expand({x,x^2,x^4,x^8,x^16}):

for i from 1 to n do

stab[i,1]:=length(xtab[i]):

startingTime := time():
s            := simplify(xtab[i],size):
stab[i,3]    := time() - startingTime:

stab[i,2]    := length(s):
stab[i,4]    := ceil(100.*stab[i,2]/stab[i,1]):
od:

stab;



Columns have the same meaning as above. ### 3 side-by-side

This shows Mathematica Simplify result against Maple simplify(expr,size) both using LeafCount.

 Maple 14 Mathematica 8.04  And this shows Mathematica FullSimplify result against Maple simplify(expr,size) both using LeafCount.

 Maple 14 Mathematica 8.04  