![](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 · 2974 阅读 · 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 · 479 阅读 · 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 · 587 阅读 · 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 · 2121 阅读 · 0 评论