0

Mathematica に多項式の列ベクトルがあり、ベクトルの各エントリを別の多項式で除算しました。エントリの一部は多項式になり、その他は多項式の分数になります。多項式であるすべてのエントリの位置をリストすることは可能ですか?

4

2 に答える 2

0

PolynomialQ組み込み関数が役立つかもしれないと思いますが、コードを見ずに確認するのは困難です。

于 2013-01-27T11:11:10.997 に答える
0 
genRndPoly[grade_,var_,max_] := Product[var - RandomInteger[{1,max}], {i, grade}]
rndDivisor = genRndPoly[1, w, 1];
f[max_] := Total@(Boole/@PolynomialQ/@(#/rndDivisor &/@ 
                                            Table[genRndPoly[5, w, max], {100}]))
DiscretePlot[f[max], {max, 30}]

Mathematica グラフィックス

于 2013-01-28T00:44:12.393 に答える