Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!us.feeder.erje.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!news-1.dfn.de!news.dfn.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail From: Rainer Rosenthal Newsgroups: comp.soft-sys.math.maple Subject: Re: How to simplify certain solutions of trigonometric equation? Date: Mon, 09 Mar 2015 17:56:14 +0100 Lines: 32 Message-ID: References: <110212e8-6429-46db-83a5-703955762a40@googlegroups.com> <58932a2e-122c-4dcd-8304-3bdcb5913803@googlegroups.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit X-Trace: individual.net wenHqGhvYm58CkTYlbyL5AGIvhgLgcASaMtNinyqcEpcb0QmY= Cancel-Lock: sha1:hVBPQU9x326DKDtyVqd4J+tLDkw= User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Thunderbird/31.5.0 In-Reply-To: <58932a2e-122c-4dcd-8304-3bdcb5913803@googlegroups.com> Xref: csiph.com comp.soft-sys.math.maple:1112 Am 09.03.2015 um 15:36 schrieb acer: > In my MapleV R5 just this is enough, > > map(z->radnormal(expand(f(simplify(z)))),p); > Well, that wasn't enough for my Maple Version Maple 6 Jan 31 2000 (Hmm, I thought it was Maple V. And maybe it's just Maple V, R6?). It gave a clear 0 for check #4 and #5 (great! thanks!), but it failed for #3 and #6. Following the advice of my nephew Frithjof I combined all the tricks: convrad := x -> convert(x,radical); squeeze := radnormal@expand@evala@Normal@simplify@convrad@simplify@f@simplify; And, alas! There we are: map(squeeze,p); [0, 0, 0, 0, 0, 0] What a neat result! Many thanks for your help. That was fun! Cheers, Rainer