Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Bug in Algebra`Horner` Mathematica 5.2 (Win) Package

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71870] Bug in Algebra`Horner` Mathematica 5.2 (Win) Package
  • From: "Philipp" <Philipp.M.O at gmail.com>
  • Date: Fri, 1 Dec 2006 06:22:28 -0500 (EST)

The following code does NOT switch off the Message[] for
MessageName[Horner, "fail"] and Prints the MessageName prefixed with
Algebra`,

  $Version
  Get["Algebra`Horner`"];
  Off[Horner::"fail"]
  Horner[1 + x^a, x]
  Messages[Horner]

gives

  5.2 for Microsoft Windows (June 20, 2005)

  Algebra`Horner::"fail" : "The expression (1 + x^a) is not a valid
    polynomial in the variable x"

  Algebra`Horner::"fail" : "The expression (1 + x^a) is not a valid
    polynomial in the variable x"

  Horner[1 + x^a, x]

  {HoldPattern[Horner::fail] :> $Off[],
   HoldPattern[Horner::usage] :> "Horner[p] gives the ...
   (my abbreviation)"}

This code works,

  $Version
  Get["LinearAlgebra`FourierTrig`"];
  Off[Fourier::"fftl"];
  FourierSin[2.0]
  Messages[Fourier]

and gives

  5.2 for Microsoft Windows (June 20, 2005)

  FourierSin[2.]

  {HoldPattern[Fourier::fftl] :> $Off["Argument `1` is not a ..."],
   HoldPattern[Fourier::fpopt] :> "The value of the option ...",
   HoldPattern[Fourier::fpopt2] :> "Warning: the discrete ...",
   HoldPattern[Fourier::fpoptn] :> "Both values of the option ...
      (my abbreviations)"}

In version 4.2 the Horner code,

  $Version
  Get["Algebra`Horner`"];
  Off[Horner::"fail"]
  Horner[1 + x^a, x]
  Messages[Horner]

works fine and gives

  4.2 for Microsoft Windows (June 5, 2002)

  Horner[1 + x^a, x]

  {HoldPattern[Horner::fail] :> $Off[The expression ...
    (my abbreviation)"],
    HoldPattern[Horner::usage] :> "Horner[p] gives the ...
    (my abbreviation)"}


Cheers,

Philipp.


  • Prev by Date: Solving the Cubic
  • Next by Date: Re: Algorithm used by "Reduce" function
  • Previous by thread: Re: Solving the Cubic
  • Next by thread: NETLink: LoadNETAssembly["C:\\lego\\Debug\\C4F.LegoRcx.dll"] failed