Forums before death by AOL, social media and spammers... "We can't have nice things"
|    sci.math.symbolic    |    Symbolic algebra discussion    |    10,432 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 8,861 of 10,432    |
|    clicliclic@freenet.de to Axel Vogt    |
|    Re: Simplify trigonometric expressions (    |
|    22 Aug 15 13:55:14    |
      XPost: comp.soft-sys.math.maple              Axel Vogt schrieb:       >       > On 19.08.2015 20:19, Peter Luschny wrote:       > >       > >> I expect the remainder to be handled in the same manner. But I       > >> don't see why Derive should not fail to simplify similar       > >> expressions whose trigonometric arguments involve larger       > >> denominators, as the rule to handle SIN(3*pi/14) - SIN(pi/14) is       > >> not generic.       > >       > > I include some further examples (array of expressions).       > >       > > case 7:       > >       > > [...];       > >       > > case 9:       > >       > > [...];       > >       > > case 11:       > >       > > [...];       > >       > > Can Rubi handle them?       > >       > > And: what is the _general_ reduction strategy?       > >       >       > Maple does it, using convert(%, RootOf): simplify(%); gives the       > monomials x^k              Automatic simplification on Derive 6.10 (not Rubi!) reduces Peter's       vector expressions as follows:              [10/7*x^4*COS(1/7*pi)+2/7*COS(1/7*pi)+20/7*x^2*COS(1/7*pi)-20/7*~       x^3*COS(1/7*pi)-10/7*x*COS(1/7*pi)-20/7*COS(2/7*pi)*x^2-10/7*COS~       (2/7*pi)*x^4+10/7*x*COS(2/7*pi)-2/7*COS(2/7*pi)+20/7*COS(2/7*pi)~       *x^3+10/7*x^4*COS(3/7*pi)+2/7*COS(3/7*pi)+20/7*x^2*COS(3/7*pi)-2~       0/7*x^3*COS(3/7*pi)-10/7*x*COS(3/7*pi)-1/7+5/7*x-10/7*x^2+10/7*x~       ^3-5/7*x^4+x^5,-6/7*x+15/7*x^2-20/7*x^3+15/7*x^4-6/7*x^5+x^6+30/~       7*COS(2/7*pi)*x^4-12/7*COS(2/7*pi)*x^5-30/7*x^4*COS(3/7*pi)-30/7~       *x^4*COS(1/7*pi)-2/7*COS(3/7*pi)-2/7*COS(1/7*pi)-12/7*x*COS(2/7*~       pi)+1/7+2/7*COS(2/7*pi)-30/7*x^2*COS(3/7*pi)-30/7*x^2*COS(1/7*pi~       )+40/7*x^3*COS(1/7*pi)+40/7*x^3*COS(3/7*pi)+12/7*x*COS(3/7*pi)+1~       2/7*x*COS(1/7*pi)+12/7*x^5*COS(3/7*pi)+12/7*x^5*COS(1/7*pi)-40/7~       *COS(2/7*pi)*x^3+30/7*COS(2/7*pi)*x^2]              [x^5,x^6]              [x+(4/9*#i)*SIN(1/9*pi)+(4/9*#i)*SIN(2/9*pi)-2/9*COS(2/9*pi)-(4/~       9*#i)*SIN(4/9*pi)+2/9*COS(1/9*pi)-2/9*COS(4/9*pi),4/9*x*COS(1/9*~       pi)-2/9*COS(1/9*pi)-4/9*COS(2/9*pi)*x+2/9*COS(2/9*pi)-4/9*x*COS(~       4/9*pi)+2/9*COS(4/9*pi)+(8/9*#i)*x*SIN(1/9*pi)-(8/9*#i)*SIN(1/9*~       pi)+(8/9*#i)*x*SIN(2/9*pi)-(8/9*#i)*SIN(2/9*pi)+(8/9*#i)*SIN(4/9~       *pi)-(8/9*#i)*x*SIN(4/9*pi)+x^2,(4/3*#i)*SIN(2/9*pi)*x^2-(8/3*#i~       )*x*SIN(1/9*pi)-(8/3*#i)*x*SIN(2/9*pi)-(4/3*#i)*SIN(4/9*pi)+(8/3~       *#i)*x*SIN(4/9*pi)+(4/3*#i)*x^2*SIN(1/9*pi)-(4/3*#i)*x^2*SIN(4/9~       *pi)+(4/3*#i)*SIN(2/9*pi)+(4/3*#i)*SIN(1/9*pi)-2/3*x*COS(1/9*pi)~       +2/3*x^2*COS(1/9*pi)+2/3*COS(2/9*pi)*x-2/3*COS(2/9*pi)*x^2+2/3*x~       *COS(4/9*pi)-2/3*x^2*COS(4/9*pi)+x^3,(16/3*#i)*x*SIN(1/9*pi)+(16~       /9*#i)*x^3*SIN(1/9*pi)-(16/3*#i)*x*SIN(4/9*pi)-(16/3*#i)*x^2*SIN~       (1/9*pi)+(16/3*#i)*x^2*SIN(4/9*pi)-(16/9*#i)*x^3*SIN(4/9*pi)-(16~       /3*#i)*SIN(2/9*pi)*x^2+(16/9*#i)*SIN(2/9*pi)*x^3+(16/3*#i)*x*SIN~       (2/9*pi)+(16/9*#i)*SIN(4/9*pi)-(16/9*#i)*SIN(2/9*pi)-(16/9*#i)*S~       IN(1/9*pi)+8/9*x^3*COS(1/9*pi)-2/9*COS(1/9*pi)-4/3*x^2*COS(1/9*p~       i)+4/3*COS(2/9*pi)*x^2+2/9*COS(2/9*pi)-8/9*COS(2/9*pi)*x^3+4/3*x~       ^2*COS(4/9*pi)+2/9*COS(4/9*pi)-8/9*x^3*COS(4/9*pi)+x^4,x^5-10/9*~       COS(2/9*pi)*x^4+20/9*COS(2/9*pi)*x^3-10/9*x*COS(1/9*pi)+10/9*x*C~       OS(4/9*pi)+10/9*COS(2/9*pi)*x+20/9*x^3*COS(4/9*pi)-20/9*x^3*COS(~       1/9*pi)-2/9*COS(2/9*pi)+(20/9*#i)*SIN(2/9*pi)-(20/9*#i)*SIN(4/9*~       pi)+(20/9*#i)*SIN(1/9*pi)-(80/9*#i)*SIN(2/9*pi)*x^3+(20/9*#i)*SI~       N(2/9*pi)*x^4-(20/9*#i)*x^4*SIN(4/9*pi)+(20/9*#i)*x^4*SIN(1/9*pi~       )+(40/3*#i)*SIN(2/9*pi)*x^2-(40/3*#i)*x^2*SIN(4/9*pi)+(40/3*#i)*~       x^2*SIN(1/9*pi)+(80/9*#i)*x^3*SIN(4/9*pi)-(80/9*#i)*x^3*SIN(1/9*~       pi)-(80/9*#i)*x*SIN(2/9*pi)+(80/9*#i)*x*SIN(4/9*pi)-(80/9*#i)*x*~       SIN(1/9*pi)+10/9*x^4*COS(1/9*pi)-10/9*x^4*COS(4/9*pi)+2/9*COS(1/~       9*pi)-2/9*COS(4/9*pi)]              [x,x^2,x^3,x^4,x^5]              [-1/11+x+2/11*COS(5/11*pi)+2/11*COS(1/11*pi)+2/11*COS(3/11*pi)-2~       /11*COS(4/11*pi)-2/11*COS(2/11*pi),-2/11*COS(1/11*pi)+4/11*x*COS~       (1/11*pi)+2/11*COS(2/11*pi)-4/11*COS(2/11*pi)*x-2/11*COS(3/11*pi~       )+4/11*x*COS(3/11*pi)+2/11*COS(4/11*pi)-4/11*x*COS(4/11*pi)-2/11~       *COS(5/11*pi)+4/11*x*COS(5/11*pi)+1/11-2/11*x+x^2,2/11*COS(1/11*~       pi)+6/11*x^2*COS(1/11*pi)-6/11*x*COS(1/11*pi)-6/11*COS(2/11*pi)*~       x^2-2/11*COS(2/11*pi)+6/11*COS(2/11*pi)*x+2/11*COS(3/11*pi)+6/11~       *x^2*COS(3/11*pi)-6/11*x*COS(3/11*pi)-6/11*x^2*COS(4/11*pi)-2/11~       *COS(4/11*pi)+6/11*x*COS(4/11*pi)+2/11*COS(5/11*pi)+6/11*x^2*COS~       (5/11*pi)-6/11*x*COS(5/11*pi)-1/11+3/11*x-3/11*x^2+x^3,-4/11*x+6~       /11*x^2-4/11*x^3+x^4-8/11*COS(2/11*pi)*x^3+12/11*COS(2/11*pi)*x^~       2-8/11*COS(2/11*pi)*x-12/11*x^2*COS(5/11*pi)+12/11*x^2*COS(4/11*~       pi)-12/11*x^2*COS(1/11*pi)-12/11*x^2*COS(3/11*pi)-2/11*COS(5/11*~       pi)-2/11*COS(1/11*pi)-2/11*COS(3/11*pi)+2/11*COS(4/11*pi)+8/11*x~       ^3*COS(1/11*pi)+8/11*x^3*COS(3/11*pi)+8/11*x^3*COS(5/11*pi)-8/11~       *x^3*COS(4/11*pi)+1/11+2/11*COS(2/11*pi)-8/11*x*COS(4/11*pi)+8/1~       1*x*COS(3/11*pi)+8/11*x*COS(1/11*pi)+8/11*x*COS(5/11*pi),5/11*x-~       10/11*x^2+10/11*x^3-5/11*x^4+x^5+20/11*COS(2/11*pi)*x^3-20/11*CO~       S(2/11*pi)*x^2+10/11*COS(2/11*pi)*x-10/11*COS(2/11*pi)*x^4+20/11~       *x^2*COS(5/11*pi)-20/11*x^2*COS(4/11*pi)+20/11*x^2*COS(1/11*pi)+~       20/11*x^2*COS(3/11*pi)+2/11*COS(5/11*pi)+2/11*COS(1/11*pi)+2/11*~       COS(3/11*pi)-2/11*COS(4/11*pi)-20/11*x^3*COS(1/11*pi)-20/11*x^3*~       COS(3/11*pi)-20/11*x^3*COS(5/11*pi)+20/11*x^3*COS(4/11*pi)-2/11*~       COS(2/11*pi)-1/11+10/11*x^4*COS(5/11*pi)-10/11*x^4*COS(4/11*pi)+~       10/11*x^4*COS(3/11*pi)+10/11*x^4*COS(1/11*pi)+10/11*x*COS(4/11*p~       i)-10/11*x*COS(3/11*pi)-10/11*x*COS(1/11*pi)-10/11*x*COS(5/11*pi~       )]              [-2*COS(2*pi/11)/11+2*COS(pi/11)/11+2*SIN(5*pi/22)/11-2*SIN(3*pi~       /22)/11+2*SIN(pi/22)/11+x-1/11,(2/11-4*x/11)*COS(2*pi/11)+(4*x/1~       1-2/11)*COS(pi/11)+(4*x/11-2/11)*SIN(5*pi/22)+(2/11-4*x/11)*SIN(~       3*pi/22)+(4*x/11-2/11)*SIN(pi/22)+x^2-2*x/11+1/11,-(6*x^2/11-6*x~       /11+2/11)*COS(2*pi/11)+(6*x^2/11-6*x/11+2/11)*COS(pi/11)+(6*x^2/~       11-6*x/11+2/11)*SIN(5*pi/22)-(6*x^2/11-6*x/11+2/11)*SIN(3*pi/22)~       +(6*x^2/11-6*x/11+2/11)*SIN(pi/22)+x^3-3*x^2/11+3*x/11-1/11,-(8*~       x^3/11-12*x^2/11+8*x/11-2/11)*COS(2*pi/11)+(8*x^3/11-12*x^2/11+8~       *x/11-2/11)*COS(pi/11)+(8*x^3/11-12*x^2/11+8*x/11-2/11)*SIN(5*pi~       /22)-(8*x^3/11-12*x^2/11+8*x/11-2/11)*SIN(3*pi/22)+(8*x^3/11-12*~       x^2/11+8*x/11-2/11)*SIN(pi/22)+x^4-4*x^3/11+6*x^2/11-4*x/11+1/11~       ,-(10*x^4/11-20*x^3/11+20*x^2/11-10*x/11+2/11)*COS(2*pi/11)+(10*~       x^4/11-20*x^3/11+20*x^2/11-10*x/11+2/11)*COS(pi/11)+(10*x^4/11-2~       0*x^3/11+20*x^2/11-10*x/11+2/11)*SIN(5*pi/22)-(10*x^4/11-20*x^3/~       11+20*x^2/11-10*x/11+2/11)*SIN(3*pi/22)+(10*x^4/11-20*x^3/11+20*~       x^2/11-10*x/11+2/11)*SIN(pi/22)+x^5-5*x^4/11+10*x^3/11-10*x^2/11~       +5*x/11-1/11]              So, as anticipated, Derive's rule set cannot fully handle the case of       argument denominator 11. Here are the reduction steps for the middle       element with argument denominator 9:              (4/3*#i)*SIN(2/9*pi)*x^2-(8/3*#i)*x*SIN(1/9*pi)-(8/3*#i)*x*SIN(2~       /9*pi)-(4/3*#i)*SIN(4/9*pi)+(8/3*#i)*x*SIN(4/9*pi)+(4/3*#i)*x^2*~       SIN(1/9*pi)-(4/3*#i)*x^2*SIN(4/9*pi)+(4/3*#i)*SIN(2/9*pi)+(4/3*#~       i)*SIN(1/9*pi)-2/3*x*COS(1/9*pi)+2/3*x^2*COS(1/9*pi)+2/3*COS(2/9~       *pi)*x-2/3*COS(2/9*pi)*x^2+2/3*x*COS(4/9*pi)-2/3*x^2*COS(4/9*pi)~       +x^3              " SIN(n*pi) -> COS((1/2-n)*pi) "                     [continued in next message]              --- SoupGate-Win32 v1.05        * Origin: you cannot sedate... all the things you hate (1:229/2)    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca