mathematica編程小疑問之depth of object

For[j = 0, j <= 10 - i, j++, c = 0.1*i; b = 1 - c - 0.1*j;

AppendTo[

t, {b, c, x, y, z, m} /.

NSolve[x/(b - 2 x - m)^2 == 7 &&

y/Sqrt[(c - 0.5 y - z - 0.5 m)] == 8 &&

z/(c - 0.5 y - z - 0.5 m) == 9 &&

m/((b - m - 2 x) Sqrt[c - 0.5 y - z - 0.5 m]) == 10, {x, y, z,

m}]]]]；

k = Select[

Level[t, {-2}], #[[3]] > 0 && #[[4]] > 0 && #[[5]] > 0 && #[[6]] >

0 &]; Export["result.xls",

PrependTo[k, {"b", "c", "x", "y", "z", "m"}]]

學明白了，導出到我的文檔下面的result.xls裏面去了