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

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

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

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




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

Добавить очки репутацииУменьшить очки репутации
Посмотрите на эту анимацию, сделанную в 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пасибо сказано 
 Заголовок сообщения: Re: Поздравление с Днём Святого Валентина с Maple
СообщениеДобавлено: 14 фев 2020, 15:23 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
24 ноя 2016, 21:32
Сообщений: 1001
Откуда: Махачкала
Cпасибо сказано: 62
Спасибо получено:
171 раз в 161 сообщениях
Очков репутации: 28

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

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

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Поздравление

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

pewpimkin

9

620

14 мар 2012, 15:13

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

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

andrei

0

201

30 май 2016, 12:02

С днем знаний

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

andrei

4

357

01 сен 2014, 10:17

С Днём Победы

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

Andy

0

197

09 май 2018, 07:37

Поздравляем милых женщин с Днем 8 Марта

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

Avgust

4

610

08 мар 2014, 00:14

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

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

Fermer

3

103

08 мар 2020, 16:52

СЛУ в Maple

в форуме Maple

lissabetta_123

0

614

03 сен 2013, 22:22

Maple 8

в форуме Maple

Vitochek

2

862

11 фев 2011, 13:38

Интегралы в Maple

в форуме Maple

Andy27

0

633

21 ноя 2013, 12:53

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

в форуме Maple

nik21

1

270

15 мар 2017, 00:12


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



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

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


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

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

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

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