Re: Generate polynomial of specified degree
- To: mathgroup at smc.vnet.net
- Subject: [mg60662] Re: [mg60618] Generate polynomial of specified degree
- From: Renan <renan.birck at gmail.com>
- Date: Fri, 23 Sep 2005 04:20:12 -0400 (EDT)
- References: <20050922104741.HDRS974.centrmmtao03.cox.net@smtp.east.cox.net>
- Reply-to: Renan <renan.birck at gmail.com>
- Sender: owner-wri-mathgroup at wolfram.com
On 9/22/05, Bob Hanlon <hanlonr at cox.net> wrote:
> f[n_Integer?NonNegative,x_Symbol:x]:=
> ToExpression[CharacterRange["a", FromCharacterCode[97+n]]].
> x^Range[n,0,-1]
>
> Table[f[n],{n,0,3}]
>
> {a, b + a*x, a*x^2 + b*x + c, a*x^3 + b*x^2 + c*x + d}
This, and all other suggestions, do the magic.
Thanks for all that helped.
Thanks,
Renan - Canoas, RS, Brazil