Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Поздравление с Днём Святого Валентина с Maple
СообщениеДобавлено: 14 фев 2020, 12:51 
Не в сети
Продвинутый
Зарегистрирован:
14 фев 2020, 10:46
Сообщений: 92
Cпасибо сказано: 12
Спасибо получено:
42 раз в 38 сообщениях
Очков репутации: 26

Добавить очки репутацииУменьшить очки репутации
Посмотрите на эту анимацию, сделанную в Maple (код ниже).

Изображение

restart;
N := 90:
A := seq(plot([[.85*sin(t)^3-2+1.25*i/N, .85*(13*cos(t)*(1/15)-(1/3)*cos(2*t)-2*cos(3*t)*(1/15)-(1/15)*cos(4*t)), t = 0 .. Pi*i/N], [-.85*sin(t)^3-2+1.25*i/N, .85*(13*cos(t)*(1/15)-(1/3)*cos(2*t)-2*cos(3*t)*(1/15)-(1/15)*cos(4*t)), t = 0 .. Pi*i/N], [sin(t)^3+2-1.25*i/N, 13*cos(t)*(1/15)-(1/3)*cos(2*t)-2*cos(3*t)*(1/15)-(1/15)*cos(4*t), t = 0 .. Pi*i/N], [-sin(t)^3+2-1.25*i/N, 13*cos(t)*(1/15)-(1/3)*cos(2*t)-2*cos(3*t)*(1/15)-(1/15)*cos(4*t), t = 0 .. Pi*i/N]], color = red, thickness = 5), i = 1 .. N):
B:=seq(plots:-textplot([[-1.9+1.25*i/N,-1.35, "М а ш а",font=[Dialog,27]],[1.75-1.25*i/N,-1.35, "С а ш а",font=[Dialog,27]]]), i=1..N):
C:=seq(plots:-textplot([-0.07,-1.37,"?",font=[times,29]]),i=1..floor(6*N/7)), seq(plots:-textplot([-0.07,-1.37,"+",font=[times,bold,33]]),i=floor(6*N/7)+1..N):
E:=seq(plots:-display(op([A[i],B[i],C[i]])), i=1..N):
plots:-display(E, insequence, scaling = constrained, size=[1000,400], view=[-2.6..2.6,-1.4..0.9], axes=none);


У кого версия более старая, чем Maple 18, то уберите опцию size из последней строки кода.

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю Kitonum "Спасибо" сказали:
Alexdemath
 Заголовок сообщения: Re: Поздравление с Днём Святого Валентина с Maple
СообщениеДобавлено: 14 фев 2020, 15:23 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
24 ноя 2016, 21:32
Сообщений: 1066
Откуда: Махачкала
Cпасибо сказано: 68
Спасибо получено:
190 раз в 177 сообщениях
Очков репутации: 34

Добавить очки репутацииУменьшить очки репутации
Думаю для сердечек использовалась параметризация кардиоиды.http://mathworld.wolfram.com/HeartCurve.html
Ничего сложного не вижу!

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 2 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
С Днём Победы

в форуме Объявления участников Форума

Andy

0

286

09 май 2018, 07:37

С днем блондинок

в форуме Палата №6

andrei

0

321

30 май 2016, 12:02

С днем знаний

в форуме Палата №6

andrei

4

448

01 сен 2014, 10:17

С Днём Победы

в форуме Объявления участников Форума

Andy

4

381

08 май 2022, 13:48

С Днем Космонавтики

в форуме Палата №6

slava_psk

6

186

12 апр 2023, 10:40

С Днём Рождения Nataly-Mak!

в форуме Размышления по поводу и без

DemIS

7

390

29 янв 2022, 11:42

Почему землетрясения чаще происходят ночью, чем днём?

в форуме Размышления по поводу и без

Fermer

3

189

08 мар 2020, 16:52

С Днём Советской Армии и Военно-Морского флота

в форуме Объявления участников Форума

Andy

0

48

23 фев 2024, 06:17

MAPLE - дифференцирование

в форуме Maple

k_72

4

700

08 июн 2020, 06:09

Неравенство в Maple

в форуме Maple

nik21

1

489

15 мар 2017, 00:12


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved