用mathematica三维绘图，出现上面两幅图这种情况是怎么回事呀？怎么解决？
ReHankelH1[n_] :=
RevolutionPlot3D[
Re[HankelH1[n, r*Exp[I*\[CurlyPhi]]]], {r, 0, 10}, {\[CurlyPhi], 0,
2 Pi}, ImageSize -> Large,
PlotLabel -> Re[HankelH1[n, r*Exp[I*\[CurlyPhi]]]],
PlotRange -> {{-10, 10}, {-10, 10}, {-10, 10}},
PlotStyle -> RGBColor[1, 1, 1], MaxRecursion -> 6,
ViewPoint -> {Right, Above, Back}]
ReHankelH1[9]

……楼主你这出图用了多久？
这函数的图象在默认情况下是有点瑕疵，MaxRecursion也确实可以用来改善图质，但是增加这个选项代价通常都是不必要地高。对于你这个，只要把PlotPoints增加一点点（比如30）就够了。
顶楼的结果我没试出来（或许应该说等出来？），这里就不谈了。

{r, 1, 10}
不画出中间无穷大的部分， 例如 r 大过 1， MaxRecurions->2 就够了吧

LZ已经用PlotRange剪过了……