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

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

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

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




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Подпись графиков
СообщениеДобавлено: 24 дек 2019, 00:17 
Не в сети
Продвинутый
Зарегистрирован:
24 дек 2019, 00:16
Сообщений: 58
Cпасибо сказано: 18
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Доброго времени суток. Нужна помощь.
> M1 := 2*Pi*(Int(((Diff(W, I1))*(Diff(I1, psi))+(Diff(W, I2))*(Diff(I2, psi)))*r, r = 0 .. r[0])) = 2*Pi*(int((1/5)*mu*r^2*(psi-alpha[0]*sqrt(lambda))*(5*lambda+1)/lambda^2*r, r = 0 .. r[0]));
>mu := 1; r[0] := 1; M := unapply(evalf(rhs(M1)), psi, lambda, alpha[0])
>col := [red, blue, black, gray, yellow, cyan, green, orange, magenta, gold, khaki]; N := 10; alpha0 := .5
>i := 1;
for alpha from -alpha0 to alpha0 by 0.1 do
gMpsi[i] := plot(M(x, 1, alpha), x = -.5 .. .5, color=col[i], thickness=2);
i := i+1;
end do:
K := i-1;
>display([seq(gMpsi[i], i = 1 .. K)])
Получила 11 прямых. Мне нужно подписать каждую прямую alpha[0]=-0.5, alpha[0]=-0.4 ... alpha[0]=0.5. Как это сделать?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Подпись графиков
СообщениеДобавлено: 16 фев 2020, 00:03 
Не в сети
Продвинутый
Зарегистрирован:
14 фев 2020, 10:46
Сообщений: 92
Cпасибо сказано: 12
Спасибо получено:
42 раз в 38 сообщениях
Очков репутации: 26

Добавить очки репутацииУменьшить очки репутации
На вашем примере два способа подписать графики:
1. С помощью опции legend .
2. Используя команду plots:-textplot , подпись рядом с каждым графиком.

restart;
M1 := 2*Pi*(Int(((Diff(W, I1))*(Diff(I1, psi))+(Diff(W, I2))*(Diff(I2, psi)))*r, r = 0 .. r[0])) = 2*Pi*(int((1/5)*mu*r^2*(psi-alpha[0]*sqrt(lambda))*(5*lambda+1)/lambda^2*r, r = 0 .. r[0]));
mu := 1; r[0] := 1;
M := unapply(evalf(rhs(M1)), psi, lambda, alpha[0]);
col := [red, blue, black, gray, yellow, cyan, green, orange, magenta, gold, khaki];
N := 10; alpha0 := 0.5;
i := 1;
for alpha from -alpha0 to alpha0 by 0.1 do
gMpsi[i] := plot(M(x, 1, alpha), x = -.5 .. .5, color=col[i], thickness=2);
if type(i,odd) then t[i]:=[-0.55,M(-0.5,1,alpha),'alpha'[0]=alpha] else
t[i]:=[0.55,M(0.5,1,alpha),'alpha'[0]=alpha] fi;
i := i+1;
end do:
alpha:='alpha':
K := i-1;
T:=plots:-textplot([seq(t[i], i=1..K)]):
plots:-display([seq(gMpsi[i], i = 1 .. K)],legend=[seq(alpha[0]=r, r=-0.5..0.5,0.1)], size=[700,400]);
plots:-display(T, seq(gMpsi[i], i = 1 .. K), size=[880,400]);

Изображение

Изображение

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

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

в форуме Maple

Susanna Gaybaryan

1

324

17 май 2021, 00:41

Построение графиков

в форуме Начала анализа и Другие разделы школьной математики

alinochka

10

2383

12 июн 2014, 22:23

Анализ графиков

в форуме Пределы числовых последовательностей и функций, Исследования функций

alex1998109

0

174

12 дек 2016, 15:40

Построение графиков

в форуме Тригонометрия

351w

4

448

04 апр 2018, 13:36

Точки пересечения графиков

в форуме Пределы числовых последовательностей и функций, Исследования функций

MAKSUS_87

1

378

07 апр 2014, 09:42

Построение нескольких графиков

в форуме MathCad

kivikivi_777

0

530

05 май 2014, 16:37

Средство для построения графиков

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

Emphatic18

1

292

18 июл 2019, 15:08

Преобразования графиков функций

в форуме Начала анализа и Другие разделы школьной математики

andryunina

2

779

13 окт 2014, 16:43

Построение графиков функций

в форуме Пределы числовых последовательностей и функций, Исследования функций

angelaapina

4

577

09 янв 2015, 19:27

Найти функцию графиков

в форуме Численные методы

omvi310

23

1174

16 сен 2015, 14:05


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



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

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


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

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

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

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