如何将每个循环中的数据存储到数组或表格中?

1 wolfram-mathematica

For[n = 1, n < 6, n = n + 1,
   For[m = 1, m < 6, m = m + 1, abc = doc[[n]];
   kk = doc[[m]];
   v =vector[abc, kk]; 
   vl = VectorLength[v]]]
Run Code Online (Sandbox Code Playgroud)

我想将每个循环中的数据存储到数组或表格中.我怎样才能做到这一点?

acl*_*acl 8

尝试使用一个Table而不是两个For循环.它返回结果列表的列表(基本上是一个矩阵)

Table[
 abc = doc[[n]];
 kk = doc[[m]];
 v = vector[abc, kk];
 vl = VectorLength[v], {n, 1, 5}, {m, 1, 5}]
Run Code Online (Sandbox Code Playgroud)