Stata不适合用来处理这问题。 建议楼主还是用Mathematica或Matlab…
不过到是可以使用Stata绘图，很粗浅地看一下x在实数上的可能解…

graph tw function x^5+x^4+x^3+x^2+x-100,range(-3 3) yline(0, lstyle(foreground))

函数与水平线交叉的那一点对到的x 即x在实数上的可能解

时间有限，写了个简单的代码，可以初步算出大概的结果：

clear
set obs 1000000
gen d = .
gen x = .
local j = 1
forvalues x = 2(0.000001)3{
  qui replace x = `x' in `j'
  local d = `x' +`x'^2 +`x'^3 +`x'^4 +`x'^5 - 100
  qui replace d = abs(`d') in `j++'
  *dis in y "." _c
}
sort d
br
sort x
line d x   //有点动画的效果

易知f(x)=x^5+x^4+x^3+x^2+x-100在正实数区间上是增函数，且其零解属于(2.239, 2.24)。可使用mata：

mata
for (i=2.239;i<=2.24;i=i+.0000001) {
if (abs(i+i^2+i^3+i^4+i^5-100)<0.00001) i
}
end

谢谢您的热心回复。

都是大牛