Question

用mathematica，对于一张二值图，怎么把所有1的坐标保存到一个数组里

得到数组后，我想通过数组，在坐标轴上得到相应的图像。如何得到这个数组

Answer 1

以下面的二值图来简单的进行说明，

首先将图像导入，

tuxiang = Import["F:\\Figure.png", "Data"];

接下来找到图像中白颜色的位置，也就是二值图像中 1 的坐标，这里选用函数Position，

zuobiao = Position[tuxiang, 1];

那么变量 zuobiao 即为保存所有位置1的数组，当然还可以在坐标轴上得到相应的图像。

ArrayPlot[SparseArray[zuobiao -> 1, Dimensions[tuxiang]], 
 FrameTicks -> Automatic]

效果如下，

追问

谢谢，怎么一次性处理大量图片，比如1000张以上，图片名字序号为1,2，...，5555这样的。

为什么我对一张图进行运算，原来大多是近似连续的线，在输出后怎么变成很散的点了，明显很很多点没有读入，基本看不出来原图形。

追答

说明你的图像根本就不是二值图像，只是一个灰度图像，像素值除了 0 和 1 之外，还有介于 0 和1 之间的值，需要把那个 Position 函数的用法修改一下，

Position[tuxiang, x_ /; x > 0];

至于一次性处理大量图片，这个个人觉得意义不大，楼主有兴趣的话，自己何不探索一番！

追问

因为我想把一个gif图为原型用mma做出一个动画来。还不知道能不能实现
感觉mma的教程太少，初学有些累。

追答

Mathematica教程怎么会少呢，你不妨到贴吧看一看，如果你是嫌累，我只能呵呵了

追问

我直接百度，都很少有，matlab倒是很容易就百度出来。
我现在在研究那个官方的资料书，很少逛贴吧的，回头看看。
很多东西看不懂，也不知道怎么用上。
我要做这个东西，gif每帧已经提取出来，现在也得到了坐标，怎么做出一个在坐标轴上的连续动画，给点提示哈。我试了下Animate，好像那个东西我找到的例子全都是带n或者x变量的。

追答

给你一个生成 gif 图的例子，很简单的，

Export["math.gif", 
 Table[ParametricPlot[{t - Sin[t], 1 - Cos[t]}, {t, -0.1, t0}, 
   PlotRange -> {{0, 4 Pi}, {0, 2}}, AspectRatio -> 1/2], {t0, 0, 13, 
   0.5}]]

追问

我已经搞定了，方法很麻烦。帧数是5

ListAnimate[{ArrayPlot[
SparseArray[{} -> 1, {240, 320}]
},5]，中间的
ArrayPlot[]重复N次，关键是要读取N次图片，然后每个图片的数据放到这一段当中，不会同时处理大量图片额。
如何批量处理大量图片，得到坐标数组。。

追答

你可以这样一次读取你的所有图片，前提是你的图片格式都是一样的，要放到Mathematica的工作路径上。

files = FileNames["*.jpg"];
images = Map[Import, files]

这样 images 就存放了你的全部图片，是一个列表的格式，这样你就可以像操作列表一样对它们进行任意运算和控制，images[[1]] 就表示第一幅图，images[[2]] 就表示第二幅图，……，images[[-1]]表示最后一幅图。

本来之前是不建议你这样做的，图片太多，花费的时间很大，内存可能也吃不消，不过你执意的话，就按上述方法试试吧，望采纳，Thank you！