MathGroup Archive 2006

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

Search the Archive

Re: Need algorithm to convert general continued fraction to simple continued fraction


Although is not quite clear to me what you
really want, I will make an attempt to answer you.

Here we are...

lst = {1/(t^2 + t + 1), t^4 - t, t^2 - t, t^4 - t, 1/(t^3 + 3*t^2), t +
t^4 + 6*t^7, 1/(t^12 + 5*t^5 + 6*t + 8)};

ReplacePart[lst, 0, Position[lst, 1/_]]
{0, -t + t^4, -t + t^2, -t + t^4, 0, t + t^4 + 6*t^7, 0}


Diana wrote:
> Math folks,
>
> I have a general continued fraction, the partial quotients of which are
> comprised of arbitrary polynomials in t. These arbitrary polynomials do
> not repeat in a regular fashion, but I have the continued fraction
> expansion available to any desired length.
>
> I would like to know if there is an alogrithm which I could use, and
> then code with Mathematica, which would allow me to convert this
> fraction to a simple continued fraction.
>
> In other words, I would like to replace a non-zero a_0 term with 0.
>
> So, is there a way to convert:
>
> [{1/(t^2+t+1), t^4-t, t^2-t, t^4-t, ...}] (These polynomials in t are
> arbitrary but known.)
> 
> to:
> 
> [{0, ...}]?


  • Prev by Date: Re: FoourierTransform of a function defined in sections
  • Next by Date: Re: Beginner--[Please Help]How to get coefficient list issued from a Series Command
  • Previous by thread: Need algorithm to convert general continued fraction to simple continued fraction
  • Next by thread: JLink OutOfMemoryError