I have a list of length N. I would now like to create N lists. Each of these lists will be the Y coordinate of a plot. Something like the following:

Code:

For[p=1,p<=N,p++, Y[p] = Table[0, {i, ndof/2}];
x = 1; j = 1; t = 2;
For[i = 1, i <= Length[Y[1]], i++,
If[DOFSupports[[j]] == x,
Y[p][[i]] = 0; j = j + 1,
Y[p][[i]] = \[Phi][[sigmodes[[1]], t]]; t = t + 3];
x = x + 2]

The problem is Y[p][[i]] will not work.

Also, I would then like to plot each Y[p] with a loop that would plot each:

Code:

ListLinePlot[{Y}, DataRange -> {0, X[[ndof/2]]},
PlotRange -> {-0.8, 0.8}]

Any help would be appreciated. I am sure it will have something to do w/ setting up functions...which I haven't quite grasped well yet. Thank you.