用Mathematica修改图片大小

电脑

Mathematica（8.0以上版本）

图片（滑稽的笑脸，150×150像素）

把这个图片导入到Mathematica里，并定义为c，代码如下：c = Import['C:\\Users\\Administrator\\Desktop\\c.jpg']        运行结果如图。

用鼠标在图片上点击一下，会出现一个方框，这个方框可以用鼠标拖动，这样可以放大图片。

这就是用Mathematica野蛮放大图片的方法。可以看下面的动态图。最后的结果，截图出来，有很多马赛克。

仍旧用“滑稽的笑脸”作为目标。这一次，用Mathematica的内置函数ImageResize。具体的格式，如图。        这个函数在放大图片的时候，会随着图片放大的过程，不断的弥补原图所缺少的像素，进而使图片更清晰。

比较一下上图和“野蛮放大的图片”的区别吧！

如果放大图片的时候，不安比例来，就会把图片压扁或拉长。        试试下面的代码：ImageResize[c, {900,700}]——把图片变成900×700像素大小。ImageResize[c, {700,900}]——把图片变成700×900像素大小。

现在，我用这种方法来做个放大了的“笑脸”动态图。先把需要的图片素材放到电脑桌面上，一共三幅不同的图片，大小统一为700×700像素，分别命名为：“0a.jpg”、“0b.jpg”、“0c.jpg”。

生成动态图的代码是：Export['滑稽.gif',  Import /@ {'C:\\Users\\Administrator\\Desktop\\0a.jpg',    'C:\\Users\\Administrator\\Desktop\\0b.jpg',    'C:\\Users\\Administrator\\Desktop\\0c.jpg',    'C:\\Users\\Administrator\\Desktop\\0b.jpg',    'C:\\Users\\Administrator\\Desktop\\0a.jpg'}]        运行结果是：