Thanks for yout kind answers. Hoever, I am afraid that my loop is complex. This is how my code looks:
For[i = 3, i < countMax + 3, i++,
Xpos = aaa[[All, 1]]; Ypos = aaa[[All, 2]];
windXVal = aaa[[All, i]];
windXMat = Transpose[{Xpos, Ypos, windXVal}];
Print[ListContourPlot[windXMat //. {x_List} :> x,
PlotLegends -> Automatic]];
ifuncEPSX = Interpolation[ windXMat //. {x_List} :> x];
Print[ContourPlot[ifuncEPSX[t, u], {t, -75, 0}, {u, 30, 65},
GridLines -> {{xmin, xmax}, None}, PlotLegends -> Automatic]];
intDataVectorEPSX =
Flatten[Table[{t, u, ifuncEPSX[t, u]}, {t, xmin, xmax, dDeltaX}, {u,
ymin, ymax, dDeltaY}]]; leEPS = Length@intDataVectorEPSX;
vectorXintEPS = Table[intDataVectorEPSX[[i]], {i, 1, leEPS - 2, 3}];
vectorYintEPS = Table[intDataVectorEPSX[[i]], {i, 2, leEPS - 1, 3}];
vectorFintEPSX = Table[intDataVectorEPSX[[i]], {i, 3, leEPS, 3}];
interpolatedDataEPSX =
Transpose[{vectorXintEPS, vectorYintEPS, vectorFintEPSX}];
shannonIPEPS[t_, u_] =
Total[#3* sinc[(t - #1)/dDeltaX]*sinc[(u - #2)/dDeltaY] & @@@
interpolatedDataEPSX];
Print[shannonIPEPS[t_, u_]];
Print[ContourPlot[
shannonIPEPS[t, u], {t, xmin, xmax}, {u, ymin, ymax},
GridLines -> {{xmin, xmax}, None}, PlotLegends -> Automatic]];
ShannonSavedX[[All, i - 2]] = shannonIPEPS[t_, u_]]
Since I am working with such a complex operation I don't know where to use the table. Can you please indicate me how to do it?
Thanks again.
Jaime.