此 Mathematica 代码中的 0=1 错误来自何处？
Where is the 0=1 bug coming from in this Mathematica code?
我正在尝试构建一个简单的选民模型。我需要构建一个矩阵，其值由函数给出。然后聚合它们（在本例中为简单平均值）以确定结果（简单的 1 或 0）。然后确定结果与平均值的偏差。我被卡住了，因为每当我的 if 语句产生 0 时，减法都会将其视为 1。请帮忙。
*奖励：如果有一种方法可以为矩阵的每第四行更新一个变量，并让该值结转以更好地模拟和选举，我们将不胜感激。
先感谢您，
查尔斯
m = 3
n = 5
p := RandomInteger[]
c = Table[p, {i, m}, {j, n}]
t = Total[c, {2}]
avg = t/n
Function[If[0.5 <= # <= 1, v = 1, v = 0]] /@ avg
d = Abs[v - avg]
Sum[d, i]
替换最后三行：
...
v = Function[If[0.5 <= # <= 1, 1, 0]] /@ avg
d = Abs[v - avg]
Total[d]
我正在尝试构建一个简单的选民模型。我需要构建一个矩阵，其值由函数给出。然后聚合它们（在本例中为简单平均值）以确定结果（简单的 1 或 0）。然后确定结果与平均值的偏差。我被卡住了，因为每当我的 if 语句产生 0 时，减法都会将其视为 1。请帮忙。 *奖励：如果有一种方法可以为矩阵的每第四行更新一个变量，并让该值结转以更好地模拟和选举，我们将不胜感激。 先感谢您， 查尔斯
m = 3
n = 5
p := RandomInteger[]
c = Table[p, {i, m}, {j, n}]
t = Total[c, {2}]
avg = t/n
Function[If[0.5 <= # <= 1, v = 1, v = 0]] /@ avg
d = Abs[v - avg]
Sum[d, i]
替换最后三行：
...
v = Function[If[0.5 <= # <= 1, 1, 0]] /@ avg
d = Abs[v - avg]
Total[d]