Re: Generate polynomial of specified degree

• To: mathgroup at smc.vnet.net
• Subject: [mg60656] Re: [mg60618] Generate polynomial of specified degree
• From: János <janos.lobb at yale.edu>
• Date: Fri, 23 Sep 2005 04:20:04 -0400 (EDT)
• References: <200509220608.CAA01863@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```On Sep 22, 2005, at 2:08 AM, Renan wrote:

> Hello,
>
> Sorry if this may seem a silly question, but I readed the Mathematica
> help and found no references.
>
> Is there any function that can generate a polynomial of a given
> degree?
>
> e.g.
>
> For degree 1, f[x] would return a x + b
> For degree 2, f[x] would return a x^2 + b x + c (quadratic equation)
> For degree 3, f[x] would return a x^3 + b x^2 + c x + d (quadratic
> equation)
>
> Thanks,
> Renan - Canoas, RS, Brazil
>

I do not know about function, but here is a newbie approach.

In[1]:=
n = 5;

In[2]:=
coef = Table[ToExpression[
StringJoin["a",
ToString[i]]], {i, 0, n}]
Out[2]=
{a0, a1, a2, a3, a4, a5}

In[4]:=
var = Table[x^i, {i, 0, n}]
Out[4]=
{1, x, x^2, x^3, x^4, x^5}

In[5]:=
Inner[Times, var, coef, Plus]
Out[5]=
a0 + a1*x + a2*x^2 + a3*x^3 +
a4*x^4 + a5*x^5

I am sure there is a more elegantus way to to this
János

--------------------------------------------
f @@ # & /@ ===  f @@@

```

• Prev by Date: Re: Bug in MiniMaxApproximation
• Next by Date: Re: Bug in MiniMaxApproximation
• Previous by thread: Re: Generate polynomial of specified degree
• Next by thread: Re: Generate polynomial of specified degree