[Maxima-bugs] [ maxima-Bugs-3579086 ] polarform not fully recursive

[SourceForge.net <no...@so...>]

Bugs item #3579086, was opened at 2012-10-22 03:37
Message generated for change (Tracker Item Submitted) made by willisbl
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=3579086&group_id=4933

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Barton Willis (willisbl)
Assigned to: Nobody/Anonymous (nobody)
Summary: polarform not fully recursive

Initial Comment:
The function polarform not fully recursive:

(%i1) e : sqrt(x^2-1)/(sqrt(x-1)*sqrt(x+1));
(%o1) sqrt(x^2-1)/(sqrt(x-1)*sqrt(x+1))

(%i2) e  : polarform(e);
(%o2) (%e^(%i*(atan2(0,x^2-1)/2-atan2(0,x+1)/2-atan2(0,x-1)/2))*sqrt(abs(x^2-1)))/(sqrt(abs(x-1))*sqrt(abs(x+1)))

(%i3) e : rootscontract(e);
(%o3) sqrt(sqrt(x^4-2*x^2+1)/(sqrt(x^2-2*x+1)*sqrt(x^2+2*x+1)))*%e^(%i*(atan2(0,x^2-1)/2-atan2(0,x+1)/2-atan2(0,x-1)/2))

(%i4) e : rootscontract(e);
(%o4) %e^(%i*(atan2(0,x^2-1)/2-atan2(0,x+1)/2-atan2(0,x-1)/2))

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=3579086&group_id=4933