解决Mathematica ContourPlot BubbleChart等函数出图中Dynamic过多前端卡死的问题

这是一个例子

BubbleChart[RandomReal[1, {5, 7, 3}]]

画出来的图是动态的，鼠标指上去会有动态的提示

但是如果是论文绘图的话这种提示没什么必要，打印出来又没有，而且你把上面的7改大一点试试会不会卡死【作死

好在Mathematica的统一性，它特殊的数据结构和语法就可以让这个问题很容易解决/.Tooltip[t_,_]:>t[[1,1,1,1,1]]

示例代码如下：

BubbleChart[RandomReal[1,{5,100,3}]]/.Tooltip[t_,_]:>t[[1,1,1,1,1]]

ContourPlot 可以用类似的方法解决/.Tooltip[t_,_]:>t

ContourPlot[Cos[x]+Cos[y],{x,0,4Pi},{y,0,4Pi}]/.Tooltip[t_,_]:>t

试一下看看是不是完全不卡~~（不要在意文件名，这是块实验田~~