archgoon
searching PlanetScale…
- 1.▲
- 2.▲
- 3.▲
- 4.▲
- 5.▲
- 6.▲
95 ms·
- 841.▲
- 842.▲
- 843.▲
- 844.▲
- 845.▲
- 846.▲
- 847.▲
- 848.▲
- 849.▲
- 850.▲
- 851.▲
- 852.▲
- 853.▲
- 854.▲
- 855.▲
- 856.▲
- 857.▲
- 858.▲
randomPoly[n_, x_, {a_, b_}] :=
x^Range[0, n].RandomVariate[CauchyDistribution[2, 1], n + 1];
Show[Graphics[
Point[{Re[x], Im[x]}] /. NSolve[randomPoly[300, x, {27, 42}], x],
Axes -> True]]
http: - 859.▲
There are two functions here, the first randomPoly[n_, x_, {a_, b_}] :=
x^Range[0, n].Table[RandomReal[{a, b}], {n + 1}];
Simply generates the expressions {x^0,x^1,x^2...x^(n-1),x^n} using 'x^Range[0,n]' and multip - 860.▲
- 861.▲
- 862.▲
- 863.▲
- 864.▲
- 865.▲
- 866.▲
- 867.▲
- 868.▲
- 869.▲
- 870.▲
More ›