Mathematica图像处理(6)--图片转字符串

前几天看到用python实现了将图片转换成字符串的

于是就准备用Matheatica来实现她

***********

原理:

1.把图片转成灰度图像

2.不同灰度值对应不同的符号

3.对一张图像上每一个点进行变换

*************

看一下效果

这是原图

这是效果图

效果一般吧 能看清大概

下面直接贴一下源码

file = "D:\\dmcs.jpg"; pic = Import[file]; pic = ColorConvert[pic, "Grayscale"]; pic = Thumbnail[pic, 100]; data = ImageData[pic]; color = " - - - + + + . . . 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 * * * # # #"; color = StringSplit[color]; closeMatch[c_] := color[[IntegerPart[c*100/2.5 + 1]]]; pic1 = Grid[ Map[closeMatch, data, {2}] , Spacings -> {0, 0}]; Export["2.jpg", pic1] 2016/8/14 以上，所有