insert[g1_, g2_, g3_] := Module[{length2, g4, i, j},
length2 = Length[g2];
g4 = g2;
For[j = 1, j <= length2, j++,
For[i = 1, i <= Length[g1[[j]]], i++,
g4[[j]] = Insert[g4[[j]], g1[[j]][[i]], g3[[j]][[i]]]]];
g4
];
g4 = insert[g1, g2, g3]
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024