我在Mathematica中有一个多项式的列向量,并且我将向量的每个条目除以另一个多项式。其中一些条目现在是多项式,另一些是多项式的分数。有没有可能列出所有多项式的位置?
发布于 2013-01-27 19:11:11
我猜内部函数PolynomialQ可能会有所帮助,但如果看不到您的代码,就很难确定。
发布于 2013-01-28 08:44:12
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}]

https://stackoverflow.com/questions/14545372
复制相似问题