Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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