Re: Function of list of functions

*To*: mathgroup at smc.vnet.net*Subject*: [mg104068] Re: Function of list of functions*From*: Andrey <oradev at rambler.ru>*Date*: Sun, 18 Oct 2009 05:21:29 -0400 (EDT)*References*: <hb9k72$rv$1@smc.vnet.net> <hbc8aj$ctt$1@smc.vnet.net>

On Oct 17, 3:03 pm, David Bailey <d... at removedbailey.co.uk> wrote: > Andrey wrote: > > Hello! > > May be anybody can help me. So, I have this: > > > L = {{1, 2, 3}, {1, 2, 3}, {1, 2, 3}}; > > Fun1[t_] := ListPlot[L[[1, t]]]; > > Fun2[t_] := ListPlot[L[[2, t]]]; > > Fun3[t_] := ListPlot[L[[3, t]]]; > > > FunRes[t_] := {Fun1[t], Fun2[t], Fun3[t]}; > > > Everything is ok, BUT if I want to add element to list of FunRes[t_] > > in loop, I have an error? so I mean this: > > > FunRes[t_] := {}; > > For[i = 1, i <= 3, i++, > > {Subscript[Fun, i][t_] := ListPlot[L[[i, t]]], > > AppendTo[FunRes[t], Subscript[Fun, i][t]]}] > > > Please, help me, where I am wrong? > > It is very hard to figure out what you want to achieve here. Here are a > few thoughts: > > Let's start with a list where we can tell what we are plotting: > > L = {{1, 2, 3}, {10, 20, 30}, {100, 200, 300}}; > > This will plot the second sublist: > > ListPlot[L[[2]]] > > Here is a function that will plot the n'th sublist: > > fun[n_] := ListPlot[L[[n]]] > > e.g. > > fun[3] > > Note that in your code FunRes[t] evaluates a function, so it makes > absolutely no sense to use AppendTo on the result! > > Tell us what you really want to do, and someone will tell you how to do i= t! > > BTW, it is highly recommended that you don't use variable names that > start with a capital letter (unless you use a special character further > in the name) to avoid confusion with Mathematica's symbols. > > David Baileyhttp://www.dbaileyconsultancy.co.uk Thank you everybody for your replays. Sorry for my english. I wanted this, and it is works: L = {{1, 2, 3}, {1, 2, 3}, {1, 2, 3}}; FuncTestList[n_, v_] := L [[n, v]] FunRes[v_] := Table[FuncTestList[i, v], {i, 1, 3}]