       Re: How to do Continued fraction of polynomials

• To: mathgroup at smc.vnet.net
• Subject: [mg53082] Re: [mg53052] How to do Continued fraction of polynomials
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Thu, 23 Dec 2004 07:58:11 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Needs["NumberTheory`ContinuedFractions`"];

expr = (x^3+2x)/(x^2+1);

ContinuedFractionForm[ContinuedFraction[expr/.x->7,3]] /. 7->x

ContinuedFractionForm[{x, x, x}]

%//Normal // Together

(x^3 + 2*x)/(x^2 + 1)

Bob Hanlon

>
> From: Milind Gupta <milind.gupta at gmail.com>
To: mathgroup at smc.vnet.net
> Date: 2004/12/22 Wed AM 04:52:42 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg53082] [mg53052] How to do Continued fraction of polynomials
>
> How can we do a continued fraction expansion in Mathematica.
>
>    Suppose we have
>              x^3 + 2x
>              ------------
>               x^2 + 1
>
> and we want:
>
>      x  +       1
>              -------------
>               x   +    1
>                         ----
>                           x
>
>      Can we get this by using some function or some technique in
Mathematica??
>
> Regards,
>
> --
> Milind Gupta