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)*Reply-to*: hanlonr at cox.net*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 > Graduate Student > University of Southern California > milind.gupta at usc.edu > http://www-scf.usc.edu/~milindgu/ > >