Mathematica 问答社区 - 分类 '图像处理' 的近期问答

已回答：如何将密度图旋转任意角度,再加上Frame边框

Fri, 02 Apr 2021 02:09:33 +0000

da = Import["D:/wavenorm-v2.dat"];
{x, y, z} = 
 Transpose[Select[da, Length[#] == 3 &]]; (* da中有空行，需要过滤一下 *)
pos = Transpose[{x, y}];
p1 = Graphics[{Table[{Blend[{Darker@Blue, White, Red}, z[[i]]*20], 
      PointSize[0.03], EdgeForm[{Thick, Black}], Point[pos[[i]]]}, {i,
       1, Length[pos]}]}];
p1 = Rotate[p1, 45 Degree]

已回答：请问如何将图片的轮廓导出为坐标值（数组）。

Fri, 20 Dec 2019 15:23:26 +0000

主要使用这个PixelValuePositions。

pixeXY是你想要的坐标，其中image是你上面的图像（Out[2]）

pixeXY = PixelValuePositions[EdgeDetect[image], 1];
ListPlot[pixeXY, AspectRatio -> Automatic]

图片转字符画时前端崩溃，但是内核还在运算

Wed, 20 Sep 2017 05:05:55 +0000

我把下面的imageApply修改后，代码可以正常运行，并且速度变快了

(*对每个像素块去匹配字符串图片*)
imageApply[x_] := Module[{},
   If[x == 1, Return[" "],
    If[x == 0, Return["0"],
     If[x < .5, Return["."], Return["1"]
      ]]]
   ];

下面是一段生成彩色字符画的代码，希望大家多多指教

(*找到画中五种最主要的颜色*)
colorQuanity[address_] := Module[{pic, pic5col, color, char, col, ass},
  pic = Import[address];
  pic5col = ColorQuantize[pic, 5];
  col = Union@Flatten[ImageData[pic5col], 1];
  color = RGBColor[col[[#]]] & /@ Range[5];
  char = {"?", "1", "0", "#", "x"};
  ass = Association[
    Table[col[[i]] -> {color[[i]], char[[i]]}, {i, 1, 5}]];
  Return[ass];
  ]
  ---------------------------------------
  (*将图片分成小的像素块*)
  picpad[address_] := 
  ImagePartition[ColorQuantize[Import[address], 5], 5];
  ---------------------------------------
  (*找到像素块中使用最多的颜色*)
  f[x_] := Commonest[Flatten[ImageData[x], 1], 1][[1]]
  ---------------------------------------
  (*将像素块与其符号对应*)
  imageApply[x_] := Module[{ans},
  ans = ass[x];
    Return[Style[ans[[2]], ans[[1]]]];
  ]
---------------------------------------
(*导出合成的彩色字符画*)
Export["1.jpg", 
  Grid[Map[imageApply, oneimage, {2}], Spacings -> {0, -.2}]];

------之前遇到的问题-------

自己在做一个将bad apple的图片转字符画的代码，代码如下，但是遇到了一个问题，下面这段代码在处理的图片较小时，如只处理30张，是可以的，但是一旦处理的变多，程序就会崩溃，但是内核还是在运算的，就是还会有图片的输出。

自己好像找不到问题在哪里，每一行代码单独运行都是不会有问题的。

测试数据：链接: https://pan.baidu.com/s/1dFrPldf 密码: jrkq

测试数据里有500张图片，我下面的代码每次运行30不会出错，但是多了就会出错。

(*生成用于替换的字符*)
char = FromCharacterCode[#] & /@ Join[Range[48, 49], {32}, {46}];
charpic = 
 ColorConvert[Rasterize[#, RasterSize -> 10], "Grayscale"] & /@ char
(*图像分割*)
importprocess[address_] := 
  ImagePartition[Binarize[Thumbnail[Import[address], 680]], {7, 17}];
(*对每个像素块求颜色均值*)
f[x_] := N[Mean[Flatten[ImageData[x]]]];
(*对每个像素块去匹配字符串图片*)
imageApply[x_] := Module[{},
   If[x == 1, Return[charpic[[3]]],
     If[x == 0, Return[charpic[[1]]],
      If[x < .5, Return[charpic[[4]]], Return[charpic[[2]]]]
      ]
     ];
   ];
(*将最后生成的图像导出*)
export[start_, end_] := Module[{i, picpad, oneimage},
   Table[
     picpad = 
      importprocess[
       "F:\\bad_apple\\" <> 
        ToString[i] <> ".jpg"];
     oneimage = Map[f, picpad, {2}];
     Export[
      "F:\\bad_apple_char\\" <>
        ToString[i] <> ".jpg", 
      Grid[Map[imageApply, oneimage, {2}], Spacings -> {0, -.1}]];
     , {i, start, end}];];

关于上面函数的使用，把上面代码运行后，只需要输入export[图片开始序号,图片结束序号]即可

已回答：如何将图像从空间域变换到频域

Fri, 14 Oct 2016 05:04:45 +0000

通常习惯下大家习惯移频一下看频谱，主要原因是让低频（图片中的信号多是低频平滑、非突变的，突变的噪点一般而言都是高频）集中在一起方便观察图片信息，但这不是必须的，有时候甚至要避免，这主要是根据你希望得到什么信息，以及后期需要做什么处理，如 xzczd 所说，正常使用mma自带的ImagePeriodogram就可以了（当然，这个函数默认是会移频的，注意选项Alignment，如果指定Alignment -> {Left, Top}，那就是不移了）。如果要自造轮子，参考如下

pic = ColorConvert[ExampleData[{"TestImage", "Lena"}], "Grayscale"];

Method one：

ImageAdjust[
 Image[RotateLeft[Log10[PeriodogramArray[pic]], 
   Floor[Dimensions@ImageData[pic]/2]]]]

这办法PeriodogramArray的帮助文档也有，不过我通常不用，因为我不喜欢用RotateLeft，感觉如果图片维数是奇数就落了一格，心里有疙瘩，虽然对图片处理并无明显影响。

Method two:

ImageAdjust@
 Image@Log10@
   Abs@Fourier[
     ImageData[pic]*
      PadRight[{{}}, Dimensions[ImageData[pic]], {{1, -1}, {-1, 1}}]]

已回答：如何完全地确保图像大小的固定，不受坐标标签以及坐标轴变化而变化？

Sat, 04 Jun 2016 12:32:40 +0000

ImageSize是控制整个图像的大小，当坐标轴的标签变大时，由于整个图像大小一定了，那么里面图自然就变小了，见例一。

如果想要，当坐标轴的标签变大时，里面的图像不变小，可以使用ImagePadding，见例二。

例一：

Column[Table[
  Graphics[{Thick, Green, Rectangle[{0, -1}, {2, 1}], Red, Disk[], 
    Blue, Circle[{2, 0}], Yellow, Polygon[{{2, 0}, {4, 1}, {4, -1}}], 
    Purple, Arrowheads[Large], Arrow[{{4, 3/2}, {0, 3/2}, {0, 0}}], 
    Black, Dashed, Line[{{-1, 0}, {4, 0}}]}, Axes -> True, 
   AxesLabel -> {Style["xxx", k], Style["yyy", k]}, 
   ImageSize -> {500, Automatic}, Background -> Black], {k, 10, 50, 
   20}]]

例二：

Column[Table[
  Graphics[{Thick, Green, Rectangle[{0, -1}, {2, 1}], Red, Disk[], 
    Blue, Circle[{2, 0}], Yellow, Polygon[{{2, 0}, {4, 1}, {4, -1}}], 
    Purple, Arrowheads[Large], Arrow[{{4, 3/2}, {0, 3/2}, {0, 0}}], 
    Black, Dashed, Line[{{-1, 0}, {4, 0}}]}, Axes -> True, 
   AxesLabel -> {Style["xxx", k], Style["yyy", k]}, 
   ImagePadding -> 50, ImageSize -> {600, Automatic}, 
   Background -> Black], {k, 10, 50, 20}]]

例二中的ImageSize也是控制整个图像的大小，但通过ImagePadding指定了里面图像到边界的距离（即留给标签的空白宽度），这样里面图像的大小就固定了，但因此标签可能会被剪裁。

ImagePadding可以四面都设置，详见帮助。

已回答：Export["1.png", InputNotebook[]]如何输出带有in out 的长图

Sun, 08 May 2016 08:12:32 +0000

问题1：输出没有Cell Label

这应该是一个选项的问题而不是Window宽度的问题，对比如下：

观察以下效果：

得到的a.png

更改选项：

得到：

问题2：删去最后一行

复制以下code到同一个cell里面

SetOptions[InputNotebook[], CellLabelAutoDelete -> False];
temp = InputNotebook[];
SelectionMove[temp, Previous, CellGroup];
NotebookDelete[temp];
Export["a.png", temp]

执行前：

执行后：

导出的文件：

问题3：提高输出质量

最后一行代码可以改为

Export["a.png", temp, ImageResolution -> 200]

后面那个数你可以自己看着调整

已回答：如何检测三维图中"脊"的出现位置？

Mon, 18 Apr 2016 08:21:00 +0000

产生你说的离散点

p = Table[{t1, t2, h2[t1, t2]}, {t1, 0, 16, .1}, {t2, 0, 16, .1}];

图像处理

MaxDetect[p // Image]

注意轴的方向，画图坐标和Graphics之间的区别

不是很清楚你具体要什么

p = Table[h2[t1, t2], {t1, 0, 16, .1}, {t2, 0, 16, .1}];
pic = Colorize[p // Image, ColorFunction -> GrayLevel];

这种？

r1 = MorphologicalBinarize[pic, {0.08, 0.15}]

还是这种？

r2 = Thinning@r1