Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Initializing subscripted variables

  • To: mathgroup at smc.vnet.net
  • Subject: [mg24910] Re: [mg24879] Initializing subscripted variables
  • From: BobHanlon at aol.com
  • Date: Sun, 20 Aug 2000 01:34:58 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 8/19/2000 5:06:23 AM, hpd1 at is2.nyu.edu writes:

>   I want to define a function recursively, and must initialize the
>value of the first few instances.  For example:
>   f[1]=f[2]=f[3]=f[4]=1; f[n_]:=f[n-1]+f[n-2]+f[n-3]-f[n-4]
>Here's the question: is there a way to write a function, e.g., a Table,
>that
>will generate the code preceding the semicolon above?
>   It is easy to generate a list of f[1], f[2], . . ., f[n], by
>Threading f across the Range of desired initial subscripted variables.
> My
>problem is how to join the listed initial subscripted variables with a
>single equals sign.  (It is fairly easy to get the Boolean double-equals
>sign between them, but I've discovered no way to get the single equals
>sign.)
>

Pick one

(f[#] = 1) & /@ Range[4];

Table[f[n] = 1, {n, 4}];

(# = 1) & /@ Table[f[n], {n, 4}];

Evaluate[Table[f[n], {n, 4}]] = Table[1, {4}];


Bob Hanlon


  • Prev by Date: Re: make matrix animate
  • Next by Date: Re: functional routine for {a, b, c, ...} -> {a - b, b - c, c - ...a}
  • Previous by thread: Initializing subscripted variables
  • Next by thread: Opening files