Re: Defining function with indexed variables

*To*: mathgroup at smc.vnet.net*Subject*: [mg99401] Re: Defining function with indexed variables*From*: Paul Smith <phhs80 at gmail.com>*Date*: Tue, 5 May 2009 05:39:44 -0400 (EDT)*References*: <gth5g1$ev0$1@smc.vnet.net> <gtnk2f$3ku$1@smc.vnet.net>

On May 4, 9:43 pm, Peter Pein <pet... at dordos.net> wrote: > Paul Smith schrieb: > > > Dear All, > > > How can one define the function > > > f(x1,x2,...,x100) := x1^2 + x2^2 + ... + x100^2 > > > using superscripts? > > > Thanks in advance, > > > Paul > > Pardon, I forgot the case checking for exactly 100 arguments: > > In[1]:= f100[args__]:=Total[Superscript[#,2]&/@{args}]/;Length[{args}= ]==100 > In[2]:= f100[x,y,z] > Out[2]= f100[x,y,z] > In[3]:= f100@@(x/@Range[200,299])//Short > Out[3]//Short= x[200]^2+x[201]^2+<<96>>+x[298]^2+x[299]^2 I would like to thank all of you for your answers, which have solved solved my problem, and helped me a lot. Paul