gpt4 book ai didi

wolfram-mathematica - 将 1D 列表转换为 3D 列表

转载 作者:行者123 更新时间:2023-12-04 08:02:26 25 4
gpt4 key购买 nike

我有将 1D 列表转换为 3D 列表的函数,但同时当 2 维和 3 维索引相等时,它会放置零而不是输入列表中的值:

n = 4

input = Table[RandomInteger[5], {i, 1, 48}]

convert[l_] := Table[If[i == j, 0, l[[index++]]], {s, 1, 4}, {i, 1, n}, {j, 1, n}]

output = convert[input]

我想去掉 Increment[] (++) 函数。

最佳答案

我认为这可能有效:

convert[l_] := Insert[Partition[Partition[l, 3], 4], 0, 
Flatten[Table[{j, i, i}, {j, 4}, {i, 4}], 1]]

也许更精明的人可以帮助摆脱 Partition[Partition 令人讨厌的构造。

喂!

关于wolfram-mathematica - 将 1D 列表转换为 3D 列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4081075/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com