6楼: Originally posted by qk1980106 at 2015-01-08 09:03:32
非常感谢你的回复！我是最近听说mathematica画图功能强大，刚学，菜鸟一个！我把数据传上去，你给看看能否帮我画一下，写下命令，感激不尽！（1.dat是三列数据，前两列为坐标，第三列是强度值；2.dat就是单独的第三 ...

(* 文件的路径可以通过Ctrl+C，Ctrl+V 直接获得。我这里就简单写了。 *)
data = Import["1.dat"];
list = Replace[data, {a_, b_, c_} :> {{a, b}, c}, {1}];
f = Interpolation[list];


{ContourPlot[f[x, y], {x, 0, 100}, {y, 0, 100},
   PlotRangePadding -> None, PlotRange -> All],
  VectorPlot[
   Grad[f[x, y], {x, y}] // Evaluate, {x, 0, 100}, {y, 0,
    100}]} // Show

3楼: Originally posted by xzczd at 2015-01-07 15:39:33
这不是楼主吗：http://tieba.baidu.com/p/3492418646
上面这帖4楼的答案是正确的，你把FunctionInterpolation换成Interpolation就可以了。