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}]

数学图形

于 2013-01-28T00:44:12.393 回答