Re: Can't assign value to symbols
- To: mathgroup at smc.vnet.net
- Subject: [mg58419] Re: Can't assign value to symbols
- From: Peter Pein <petsie at dordos.net>
- Date: Sat, 2 Jul 2005 04:06:15 -0400 (EDT)
- References: <da2mpq$93f$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Lee Newman schrieb: > Hello, > > Situation: I have a table that contains parameters and sets of values > that I want to assign to the parameters for the purposes of running a > simulation. > - parameters = {{a,b,c},{1,2,3},{4,5,6},{7,8,9}} > - want to assign values in a given row to the symbols listed in the > first row. > - tried using: MapThread[ #1 = #2 &, {parameters[[1]], parameters[[3]]} ] > - fails with error "Tag Slot in #1 is Protected" > - tried adding Unprotect[#1] and a variety of other attemps, but can't > get it to work. > > Anyone know how might accomplish this? > > Thanks, > Lee > > Do you want sth. like In[1]:= parameters = {{a, b, c}, {1, 2, 3}, {4, 5, 6}, {7, 8, 9}}; f[a, b, c] /. Thread[First[parameters] -> #1] & ) /@ Rest[parameters] Out[2]= {f[1, 2, 3], f[4, 5, 6], f[7, 8, 9]} ? -- Peter Pein Berlin