目视这个图好像是在3维图上又加上了等高线，然后侧边好像还有投影但是光靠目测的话判不太出来画的是啥，那我就稍微仿一下：
customizedplot[data_] :=
Show[ListPlot3D[data, PlotStyle -> None, MeshFunctions -> (#3 &),
BoundaryStyle -> None],
ListPlot3D[data, PlotStyle -> None, MeshStyle -> Red, BoundaryStyle -> Red],
AxesLabel -> {None, None, Rotate[Style["Energy[eV]", 16], Pi/2]}]
customizedplot@data8
ListPlot3D[data8]
你现在的数据就能画成这样。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024