Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Defining function with indexed variables

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99367] Re: Defining function with indexed variables
  • From: Peter Pein <petsie at dordos.net>
  • Date: Mon, 4 May 2009 05:59:12 -0400 (EDT)
  • References: <gth5g1$ev0$1@smc.vnet.net>

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
> 

f[args__] := Total[Superscript[#, 2] & /@ {args}]

writes the desired sum of superscripts for any positive number of arguments;
e.g:

In[2]:= f[x1,x2,x3,y]
Out[2]= x1^2+x2^2+x3^2+y^2

Peter


  • Prev by Date: Re: interactive 3d graphic in a palette?
  • Next by Date: disabling a menuitem within a ActionMenu or other menus
  • Previous by thread: Re: Defining function with indexed variables
  • Next by thread: Re: Defining function with indexed variables