Блог русскоязычной поддержки Wolfram Mathematica

8 марта с Wolfram Mathematica

Нажмите, чтобы скачать данный пост в виде ноутбука Mathematica...

Общее количество использованных в посте встроенных функций или символов: 35

Список имен используемых встроенных функций и символов в порядке их появления в коде:
CompoundExpression (;) | Set (=) | ImageResize | ImageCrop | Image | RawArray | List ({...}) | Rule (->, ->) | ColorSpace | Interleaving | True | ImagePartition | ImageDimensions | Dimensions | SeedRandom | RandomSample | Flatten | Table | Times (*, ×) | Part ([[…]]) | Pattern (:) | Blank (_) | Inset | Plus (+) | Increment (++) | Manipulate | Graphics | PlotRange | ImageSize | AspectRatio | Power (^) | Apply (@@) | Divide (/, ÷) | Background | Black

Коллектив Русскоязычной поддержки Wolfram Mathematica рад поздравить всех участниц сообщества с праздником 8 Марта!

Создание поздравительного видео...

Импорт, обрезка под заданный размер и изменение размера полученного изображения:

Разбиение изображения на блоки 50x50 пикселей:

закрыть

imageNew = ImagePartition[image, 50]

Вычисление размеров изображения, с которым мы работаем, и размеров списка, представляющего его разбиение на блоки:

закрыть

{imageDim, imagePDim} = {ImageDimensions[image], Dimensions[imageNew]}

Случайные положения будущих блоков:

закрыть

randomPositions = (SeedRandom["8.03.2013"]; RandomSample[ Flatten[Table[{j, -i}, {i, 1, imagePDim[[1]]}, {j, 1, imagePDim[[2]]}], 1]])

Функция переводящая блок из его “неверного” положения в правильное:

Динамический манипулятор, показывающий перевод блоков изображения в правильное положение:

закрыть

Manipulate[ Graphics[graphicsData[progress], PlotRange -> {{1, imagePDim[[2]]}, {-imagePDim[[1]], 0}}, ImageSize -> imageDim, AspectRatio -> 1/(Divide @@ imageDim), Background -> Black], {{progress, 0, "Восстановление изображения:"}, 0, 1}]

Блог принадлежит “Русскоязычной поддержке Wolfram Mathematica"©
При любом использовании материалов блога, ссылка на блог обязательна.
Создано с помощью Wolfram Mathematica 9