![](https://img-blog.csdnimg.cn/20201014180756926.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
mathematica
autuan_liu
有梦想不可怕,可怕的是有了梦想而没有坚持!
展开
-
图片的非线性变换的实验
图片的非线性变换的实验才疏学浅,难免疏漏,敬请批评指正对数变换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原创 2016-03-27 21:51:58 · 2946 阅读 · 0 评论 -
仿射变换
仿射变换 本文件用于实现图像的仿射变换 (*设置目录*) SetDirectory["/home/autuanliu/learning/mathematica/images/liner/img"]; Clear[img, row, col, M]; img = Import["lena_gray_256.tif", "TIFF"]; M = ImageData[img]; {row, col} =原创 2016-05-05 15:20:34 · 466 阅读 · 0 评论 -
灰度插值实验
灰度插值实验才疏学浅,资历欠佳,难免有误,望有心人批评指正。 本文旨在展示绘图插值最近邻插值Clear[T, img, mat, row, col, mat2, x, y, x2, y2, v, v2, img2]; \[Theta] = 30 Degree; sin = Sin[\[Theta]] // N; cos = Cos[\[Theta]] // N; T = {{cos, -sin, 0原创 2016-05-05 15:26:07 · 564 阅读 · 0 评论 -
心形线以及其对心脏的模拟
心形线以及其对心脏的模拟才疏学浅,难免有误,欢迎批评指正Clear[a, f, t, y, u] a = 7.5; f[a_, t_] := a (1 + Cos[t]); y = f[a, t]; PolarPlot[y, {t, 0, 2 Pi}]所画出来的图像为: Integrate[3/4 Pi a^2, {t, o, 2 Pi}] // N 结果: 132.536 (6.28319 -原创 2016-04-04 13:56:35 · 2097 阅读 · 0 评论