анимация в gif

Форум пользователей пакета Mathematica

Модератор: Admin

F5
Сообщения: 2
Зарегистрирован: Вт ноя 09, 2010 4:27 am

анимация в gif

Сообщение F5 » Вт ноя 09, 2010 4:46 am

сорри за глупый вопрос, мне нужно сделать анимацию вращения 3d графика(просто поворот камеры) и экспортировать ее в GIF(чтобы потом засунуть в powerpoint). как я понял, чтобы gif был анимированным, нужно собирать анимацию из серии картинок. mathematic'ой раньше не пользовался, не смог найти как это сделать...

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 8:00 am

…помочь с решением данной проблемы к сожалению не могу… единственное что могу подсказать: сделай серию картинок своего вращающегося 3D графика… а далее с помощью какого либо редактора GIF-файлов создай нужную динамическую картинку… на твоем месте я бы поступил именно так… конечно не решает проблему, но вполне возможно что вы просто с экономите время… а оно и так протекает очень быстро и с низким КПД

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Вт ноя 09, 2010 11:52 am

Код: Выделить всё

ListAnimate[
 res = Table[
   Graphics3D[{Green, Opacity[.8],
     PolyhedronData["TruncatedIcosahedron", "Faces"]},
    ViewPoint -> {3 Cos[a], 3 Sin[a], 2}, SphericalRegion -> True,
    Boxed -> False], {a, 0, 2 Pi, Pi/25}]]
SetDirectory[NotebookDirectory[]]
Export["anim3d.gif", res]

Также анимацию можно сохранить в .swf и .avi.
Изображение
Последний раз редактировалось Gordon Вт ноя 09, 2010 4:09 pm, всего редактировалось 1 раз.

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 1:31 pm

я в шоке... просте не вериться что такое возможно!
Спасибо за решение данной задачи!
Мне бы и в голову не пришла такая мысль, что такое возможно!

F5
Сообщения: 2
Зарегистрирован: Вт ноя 09, 2010 4:27 am

Сообщение F5 » Вт ноя 09, 2010 6:08 pm

большое спасибо :D