图片的非线性变换的实验

图片的非线性变换的实验

才疏学浅，难免疏漏，敬请批评指正

对数变换

Clear[a, da, db, b];
a = Import["addA.tif"];
da = ImageData[a];
db = 0.8 Log[1 + da];
b = Image[db];
Grid[{{a, b}}]

• 效果图
  

  

指数变换

Clear[a, da, db, b];
a = Import["wusiA.tif"];
da = ImageData[a];
db = Exp[0.7 da] - 1;
b = Image[db];
Grid[{{a, b}}]

幂函数变换

Clear[a, da, db, b];
a = Import["wusiA.tif"];
da = ImageData[a];
db = 0.5 da^2;
b = Image[db];
Grid[{{a, b}}]

正弦函数

Clear[a, da, db, b];
a = Import["addA.tif"];
da = ImageData[a];
db = 2 Sin[da];
b = Image[db];
Grid[{{a, b}}]

• 效果图
  

  

余弦函数

Clear[a, da, db, b];
a = Import["addA.tif"];
da = ImageData[a];
db = 0.8 Cos[da];
b = Image[db];
Grid[{{a, b}}]

• 效果图
  

  

关于其他非线性函数类似，其中，所有变换中的系数都是可以改变的不同的系数有不同的效果。

使用 mathematica 编程