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

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

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

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




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

Добавить очки репутацииУменьшить очки репутации
Доброго времени суток) Нужна помощь
> restart; with(plots);

> W := (1/2)*mu*(J[1]-3+1/5*(J[2]-3));
> I1 := 2/lambda+lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2; I2 := 2*lambda+1/lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2/lambda;

> P := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, lambda))+(diff(W, J[2]))*(diff(I2, lambda)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1; r[0] := 1
> i := 1;
col := [blue, red, black, green, gray, violet, yellow, brown, gold, pink, khaki];
for x from 0 by .1 to 1 do
gla[i] := implicitplot(P(lambda, x, alpha[0]) = 0, alpha[0] = -60 .. 60, lambda = 0 .. 2, thickness = 2, color = col[i], gridrefine = 5);
i := i+1 end do;
K := i-1;
> display([seq(gla[i], i = 1 .. K)]);
Я получила графики для x от 0 до 1 с шагом 0.1, при этом x=psi. Подпишите, пожалуйста, эти графики psi=0, psi=0.1, ..., psi=1.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Подписать графики
СообщениеДобавлено: 30 май 2020, 00:48 
Не в сети
Продвинутый
Зарегистрирован:
14 фев 2020, 10:46
Сообщений: 97
Cпасибо сказано: 12
Спасибо получено:
44 раз в 40 сообщениях
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
2 варианта решения проблемы.

restart; with(plots):

W := (1/2)*mu*(J[1]-3+1/5*(J[2]-3));
I1 := 2/lambda+lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2; I2 := 2*lambda+1/lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2/lambda;

P := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, lambda))+(diff(W, J[2]))*(diff(I2, lambda)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1; r[0] := 1; i := 1;
col := [blue, red, black, green, gray, violet, yellow, brown, gold, pink, khaki];
for x from 0 by 0.1 to 1 do
gla[i] := implicitplot(P(lambda, x, alpha[0]) = 0, alpha[0] = -60 .. 60, lambda = 0 .. 2, thickness = 2, color = col[i], gridrefine = 5);
i := i+1 end do:
K := i-1;
display([seq(gla[i], i = 1 .. K)], legend=[seq(psi=0.1*(i-1), i=1..K)]);


или

restart; with(plots):

W := (1/2)*mu*(J[1]-3+1/5*(J[2]-3));
I1 := 2/lambda+lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2; I2 := 2*lambda+1/lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2/lambda;

P := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, lambda))+(diff(W, J[2]))*(diff(I2, lambda)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1; r[0] := 1; i := 1;
col := [blue, red, black, green, gray, violet, yellow, brown, gold, pink, khaki];
for x from 0 by 0.1 to 1 do
gla[i] := implicitplot(P(lambda, x, alpha[0]) = 0, alpha[0] = -60 .. 12, lambda = 0 .. 2, thickness = 2, color = col[i], gridrefine = 5);
i := i+1 end do:
K := i-1;
T:=textplot([seq([12.2,1.97-0.05*(n-1),psi=0.1*(n-1)], n=1..K)], align=right):
display([seq(gla[i], i = 1 .. K),T]);

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Подписать графики
СообщениеДобавлено: 30 май 2020, 10:24 
Не в сети
Продвинутый
Зарегистрирован:
24 дек 2019, 00:16
Сообщений: 58
Cпасибо сказано: 18
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Kitonum писал(а):
2 варианта решения проблемы.

restart; with(plots):

W := (1/2)*mu*(J[1]-3+1/5*(J[2]-3));
I1 := 2/lambda+lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2; I2 := 2*lambda+1/lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2/lambda;

P := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, lambda))+(diff(W, J[2]))*(diff(I2, lambda)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1; r[0] := 1; i := 1;
col := [blue, red, black, green, gray, violet, yellow, brown, gold, pink, khaki];
for x from 0 by 0.1 to 1 do
gla[i] := implicitplot(P(lambda, x, alpha[0]) = 0, alpha[0] = -60 .. 60, lambda = 0 .. 2, thickness = 2, color = col[i], gridrefine = 5);
i := i+1 end do:
K := i-1;
display([seq(gla[i], i = 1 .. K)], legend=[seq(psi=0.1*(i-1), i=1..K)]);


или

restart; with(plots):

W := (1/2)*mu*(J[1]-3+1/5*(J[2]-3));
I1 := 2/lambda+lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2; I2 := 2*lambda+1/lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2/lambda;

P := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, lambda))+(diff(W, J[2]))*(diff(I2, lambda)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1; r[0] := 1; i := 1;
col := [blue, red, black, green, gray, violet, yellow, brown, gold, pink, khaki];
for x from 0 by 0.1 to 1 do
gla[i] := implicitplot(P(lambda, x, alpha[0]) = 0, alpha[0] = -60 .. 12, lambda = 0 .. 2, thickness = 2, color = col[i], gridrefine = 5);
i := i+1 end do:
K := i-1;
T:=textplot([seq([12.2,1.97-0.05*(n-1),psi=0.1*(n-1)], n=1..K)], align=right):
display([seq(gla[i], i = 1 .. K),T]);


Второй вариант решения выглядит не очень понятно на графиках, т.к. графики расположены очень близко друг другу. А первый вариант не смогла посмотреть. Там выходит ошибка Error, (in plots:-display) display does not accept the legend option. Что она означает и как исправить? (пишу на Maple 11)

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Подписать графики
СообщениеДобавлено: 30 май 2020, 22:53 
Не в сети
Продвинутый
Зарегистрирован:
14 фев 2020, 10:46
Сообщений: 97
Cпасибо сказано: 12
Спасибо получено:
44 раз в 40 сообщениях
Очков репутации: 27

Добавить очки репутацииУменьшить очки репутации
Проверьте следующую модификацию:

restart; with(plots):

W := (1/2)*mu*(J[1]-3+1/5*(J[2]-3));
I1 := 2/lambda+lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2; I2 := 2*lambda+1/lambda^2+(psi/lambda^(1/2)-alpha[0])^2*r^2/lambda;

P := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, lambda))+(diff(W, J[2]))*(diff(I2, lambda)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1; r[0] := 1; i := 1;
col := [blue, red, black, green, gray, violet, yellow, brown, gold, pink, khaki];
for x from 0 by 0.1 to 1 do
gla[i] := implicitplot(P(lambda, x, alpha[0]) = 0, alpha[0] = -60 .. 60, lambda = 0 .. 2, thickness = 2, color = col[i], gridrefine = 5, legend=op([psi=0.1*(i-1)]));
i := i+1 end do:
K := i-1;
display([seq(gla[i], i = 1 .. K)]);

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

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

в форуме Интегральное исчисление

mersol

4

561

19 янв 2016, 19:26

Графики

в форуме Алгебра

kucher

2

186

28 май 2016, 20:15

Графики

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

photographer

1

324

09 мар 2015, 15:04

Графики

в форуме MathCad

Teorinorgchem

2

409

11 мар 2018, 17:48

Графики

в форуме Алгебра

matematik22

2

143

10 июн 2020, 10:39

Графики

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

evil37

1

145

23 апр 2022, 19:54

Функции и графики

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

nicat

2

339

14 ноя 2015, 08:16

Графики функций

в форуме Алгебра

dikarka2004

4

151

27 янв 2023, 01:03

Графики на Python

в форуме Информатика и Компьютерные науки

Helly

0

341

23 окт 2016, 14:28

Построить графики

в форуме Maple

gabba

0

400

13 мар 2017, 12:06


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



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

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


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

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

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

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