相关疑难解决方法(0)

我正在尝试运行以下程序,该程序计算度数达到d的多项式的根,系数仅为+1或-1,然后将其存储到文件中.

d = 20; n = 18000; 
f[z_, i_] := Sum[(2 Mod[Floor[(i - 1)/2^k], 2] - 1) z^(d - k), {k, 0, d}];

这里f [z,i]给出z中的多项式,其中加号或减号以二进制计数.说d = 2,我们会的

f [z,1] = -z ² - z - 1
f [z,2] = -z ² - z + 1
f [z,3] = -z ² + z - 1
f [z,4] = - z ² + z + 1

DistributeDefinitions[d, n, f]

ParallelDo[ 
            Do[ 
                     root = N[Root[f[z, i], j]];
                     {a, b} = Round[n ({Re[root], Im[root]}/1.5 …