From: maple@rogers.com   
      
   On Tuesday, October 8, 2019 at 3:52:43 PM UTC-4, acer wrote:   
      
   > ee:=5*sqrt(88*2^(2/3) - 145*2^(1/3) + 43)   
   >  + sqrt(97*2^(2/3) - 62*2^(1/3) - 74)   
   >  - 2*sqrt(- 31*2^(2/3) - 37*2^(1/3) + 97)   
   >  - 4*sqrt(6*2^(2/3) + 2*2^(1/3) - 12)   
   >  + 8*sqrt(2^(2/3) - 6*2^(1/3) + 6)   
   >  - 3*sqrt(- 3*2^(2/3) + 3*2^(1/3) + 1)   
   >  - 2*sqrt(- 2*2^(2/3) + 2*2^(1/3) + 4)   
   >  + 6*sqrt(2^(2/3) + 2*2^(1/3) - 2):   
   >   
   > evala(ee):   
   > radnormal(ee):   
   > lprint(%);   
   >   
   > 8*2^(2/3)*(-3*2^(2/3)+3*2^(1/3)+1)^(1/2)+8*2^(1/3)*(-3*2^(2/3)   
   3*2^(1/3)+1)^(1/   
   > 2)+12*(-3*2^(2/3)+3*2^(1/3)+1)^(1/2)   
   >   
   > nm := simplify(evala(ee),size):   
   > lprint(nm);   
   >   
   > (8*2^(2/3)+8*2^(1/3)+12)*(-3*2^(2/3)+3*2^(1/3)+1)^(1/2)   
   >   
   > simplify(sug-ee), simplify(sug-nm), simplify(nm-ee);   
   >   
   >                0, 0, 0   
      
      
   I forgot to include this line of computation in my previous response. Sorry.   
      
   sug := signum(ee)*simplify(sqrt(evala(ee^2))):   
   lprint(sug);   
      
   4*(1+2^(2/3)-2^(1/3))^(1/2)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)