Mathematica从数据文件绘制矢量字段

Question

我正在尝试从数据文件中绘制矢量字段。我可以以任何方式将数据放入文件中，但是现在数据文件包含以下形式的信息：

x y Fx Fy

其中Fx和Fy是向量的x和y分量。

任何想法如何绘制它？

Answer 1

在适当的位置给出一个文件vector.txt，其中包含正好八行

1 1 2 3
1 2 5 3
1 3 4 5
1 4 2 2
2 1 3 3
2 2 5 6
2 3 4 1
2 4 1 4

（任何地方都没有任何额外的空格）

和一个包含

的新Mathematica笔记本

datain = Partition[ToExpression[ "{" <>
 StringReplace[Import["vector.txt"], 
  RegularExpression["\\s"] -> ","] <> "}"], 4];
arrow = Map[Arrow[{Take[#, 2], Take[#, 2] + Drop[#, 2]}] &, datain];
Graphics[arrow]

评估一下，笔记本中会出现一小部分箭头。