MathGroup Archive 2006

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

Search the Archive

Re: a Quaternion quadratic level Pisot polynomial


Thanks to Peter Pleasants I did solve the golden mean / Fibonacci Pisot
and several others for real roots:
the secret is using :
{t_Real, x_Real, y_Real,  z_Real}

\!\(<< Algebra`Quaternions`\n
  q = Quaternion[t, x, y, z]\n
  q2 = ExpandAll[q ** q]\n
  q3 = \((q2 ** q2)\)\n
  FullSimplify[q2 - q - Quaternion[1, 0, 0, 0]]\n
  NSolve[{\(-1\) + \((\(-1\) + t)\)\ t - x\^2 - y\^2 -
      z\^2 == 0, \((\(-1\) + 2\ t)\)\ x ==
    0, \((\(-1\) + 2\
      t)\)\ y == 0, \((\(-1\) + 2\ t)\)\ z == 0}, {t_Real, x_Real, y_Real,
    z_Real}]\)


  • Prev by Date: Solving integrals
  • Next by Date: RE: Simple Plot3D/Function Syntax issue
  • Previous by thread: a Quaternion quadratic level Pisot polynomial
  • Next by thread: Re: a Quaternion quadratic level Pisot polynomial