Анимация данных. Помогите пожалуйста создать.

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

Модератор: Admin

evg612
Сообщения: 14
Зарегистрирован: Пт май 25, 2018 11:53 pm

Анимация данных. Помогите пожалуйста создать.

Сообщение evg612 » Вт май 29, 2018 1:22 am

Есть массив, 800 значений в нем.
Помогите создать перебор этих значений. Просто цифра, и ничего лишнего=) Заранее, спасибо!)
1
2
3
4
5
6
и.т.д.

Kitonum
Сообщения: 2032
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Анимация данных. Помогите пожалуйста создать.

Сообщение Kitonum » Ср май 30, 2018 7:57 pm

Будет более наглядно (и проще для реализации), чтобы элементы списка появлялись не в одной вертикальной колонке, а построчно, т.е. как обычный текст слева направо. Вот пример такой анимации - список первых 100 простых чисел:

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

restart;
L:=[[-50,0,convert([seq(ithprime(k),k=1..100)], string)],color=blue, font=[times,roman,20],align={right,below}] :

plots:-animate(plots:-textplot,subsop(1=[L[1,1..2][],L[1,3][1..round(i)]],L), i=0..length(L[1,3]), frames=500, paraminfo=false,  size=[1000,200], view=[-50..50,-15..0], axes=none);

Изображение

evg612
Сообщения: 14
Зарегистрирован: Пт май 25, 2018 11:53 pm

Re: Анимация данных. Помогите пожалуйста создать.

Сообщение evg612 » Ср май 30, 2018 11:50 pm

Kitonum писал(а):Источник цитаты Будет более наглядно (и проще для реализации), чтобы элементы списка появлялись не в одной вертикальной колонке, а построчно, т.е. как обычный текст слева направо. Вот пример такой анимации - список первых 100 простых чисел:

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

restart;
L:=[[-50,0,convert([seq(ithprime(k),k=1..100)], string)],color=blue, font=[times,roman,20],align={right,below}] :

plots:-animate(plots:-textplot,subsop(1=[L[1,1..2][],L[1,3][1..round(i)]],L), i=0..length(L[1,3]), frames=500, paraminfo=false,  size=[1000,200], view=[-50..50,-15..0], axes=none);

Изображение


Спасибо, только мне надо, чтобы все цифры менялись на одном месте. То есть: 2, потом вместо 2 - 3, потом всесто 3 - 5 и т.д.

Kitonum
Сообщения: 2032
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Анимация данных. Помогите пожалуйста создать.

Сообщение Kitonum » Чт май 31, 2018 12:08 am

Ну это в 100 раз проще:

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

Primes:=[``, seq(ithprime(k), k=1..100)]:
plots:-animate(plots:-textplot,[[0,0, Primes[round(i)]], color=blue, font=[times,roman,30]], i=1..101, frames=500, paraminfo=false, axes=none, size=[100,100]);

Изображение

evg612
Сообщения: 14
Зарегистрирован: Пт май 25, 2018 11:53 pm

Re: Анимация данных. Помогите пожалуйста создать.

Сообщение evg612 » Чт май 31, 2018 8:11 am

Kitonum писал(а):Источник цитаты Ну это в 100 раз проще:

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

Primes:=[``, seq(ithprime(k), k=1..100)]:
plots:-animate(plots:-textplot,[[0,0, Primes[round(i)]], color=blue, font=[times,roman,30]], i=1..101, frames=500, paraminfo=false, axes=none, size=[100,100]);

Изображение

спасибо огромное : :)