[Date Index]
[Thread Index]
[Author Index]
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**
| |