home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PROGRAMM.PAK / ODDEVENR.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  1.1 KB  |  30 lines
  1.  
  2. (*********************************************************************
  3.  
  4.         Adapted from
  5.         Roman E. Maeder: Programming in Mathematica,
  6.         Second Edition, Addison-Wesley, 1991.
  7.  
  8.  *********************************************************************)
  9.  
  10. OddEvenRules = {
  11.     (f_Symbol?OddQ)[n_?Negative x_.] :> -f[-n x],
  12.     (f_Symbol?OddQ)[n_?Negative x_. + y__] :> -f[-n x - Plus[y]] /; OrderedQ[{n x, y}],
  13.     (f_Symbol?EvenQ)[n_?Negative x_.] :> f[-n x],
  14.     (f_Symbol?EvenQ)[n_?Negative x_. + y__] :> f[-n x - Plus[y]] /; OrderedQ[{n x, y}]
  15. }
  16. (*********************************************************************
  17.  
  18.         Adapted from
  19.         Roman E. Maeder: Programming in Mathematica,
  20.         Second Edition, Addison-Wesley, 1991.
  21.  
  22.  *********************************************************************)
  23.  
  24. OddEvenRules = {
  25.     (f_Symbol?OddQ)[n_?Negative x_.] :> -f[-n x],
  26.     (f_Symbol?OddQ)[n_?Negative x_. + y__] :> -f[-n x - Plus[y]] /; OrderedQ[{n x, y}],
  27.     (f_Symbol?EvenQ)[n_?Negative x_.] :> f[-n x],
  28.     (f_Symbol?EvenQ)[n_?Negative x_. + y__] :> f[-n x - Plus[y]] /; OrderedQ[{n x, y}]
  29. }
  30.