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

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

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

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




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

Добавить очки репутацииУменьшить очки репутации
Доброго времени суток) Помогите решить систему с условием.
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]);
M := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, psi))+(diff(W, J[2]))*(diff(I2, psi)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
> P := P(lambda, psi, alpha[0]) = 0;
> M := M(lambda, psi, alpha[0]) = 0;
> alpha[0] := 0;
solve({P, M}, {lambda, psi});
Получаю 6 решений. Но мне нужно только такие решения, где lambda>0.
Заранее спасибо)

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

Добавить очки репутацииУменьшить очки репутации
Susanna Gaybaryan писал(а):
Доброго времени суток) Помогите решить систему с условием.
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]);
M := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, psi))+(diff(W, J[2]))*(diff(I2, psi)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
mu := 1;
r[0] := 1;
> P := P(lambda, psi, alpha[0]) = 0;
> M := M(lambda, psi, alpha[0]) = 0;
> alpha[0] := 0;
solve({P, M}, {lambda, psi});
Получаю 6 решений. Но мне нужно только такие решения, где lambda>0.
Заранее спасибо)


В начале еще должно быть:
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;

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Решение системы
СообщениеДобавлено: 29 май 2020, 20:44 
Не в сети
Последняя инстанция
Зарегистрирован:
12 сен 2010, 12:46
Сообщений: 6078
Cпасибо сказано: 137
Спасибо получено:
1033 раз в 976 сообщениях
Очков репутации: 67

Добавить очки репутацииУменьшить очки репутации
В команды не вникал, но ограничение на переменные задается командой
assume(lambda>0);

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

Добавить очки репутацииУменьшить очки репутации
restart;
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]);
M := unapply(evalf(simplify(2*Pi*(int(((diff(W, J[1]))*(diff(I1, psi))+(diff(W, J[2]))*(diff(I2, psi)))*r, r = 0 .. r[0])))), lambda, psi, alpha[0]);
P := P(lambda, psi, alpha[0]) = 0;
M := M(lambda, psi, alpha[0]) = 0;
alpha[0] := 0;
solve({P, M, lambda>0}, {lambda, psi});

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

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

в форуме Геометрия

perash

6

197

07 июн 2023, 20:48

Решение системы x^3+3y^3=11; x^2y+y^2x=6.

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

Yoyo

5

326

06 авг 2020, 22:16

Решение системы через ФСР

в форуме Линейная и Абстрактная алгебра

Fa4stik

3

142

22 ноя 2020, 16:43

Решение нелинейной системы

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

vitalikkudinov

0

281

12 апр 2018, 21:54

Решение системы уравнений

в форуме Линейная и Абстрактная алгебра

selest92

6

300

26 фев 2023, 16:10

РЕШЕНИЕ СИСТЕМЫ УРАВНЕНИЙ

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

vanovan645

23

652

12 май 2020, 16:03

Решение системы уравнений

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

IvanPetrovPRO

3

378

06 фев 2019, 19:55

Решение системы уравнений

в форуме Линейная и Абстрактная алгебра

TeorVer

7

614

10 авг 2016, 18:28

Общее решение системы

в форуме Линейная и Абстрактная алгебра

foxydude

1

271

30 окт 2014, 11:06

Решение системы сравнений

в форуме MathCad

Olga_sh

10

655

26 фев 2020, 12:59


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



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

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


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

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

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

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