Найти корни в заданном промежутке.

Форум пользователей пакета Mathematica

Модератор: Admin

kypakaman
Сообщения: 31
Зарегистрирован: Пн май 16, 2011 9:42 pm

Найти корни в заданном промежутке.

Сообщение kypakaman » Вт май 17, 2011 10:15 pm

Понимаю вопрос нубский но подскажите как найти ВСЕ корни уравнения Cos[a*x]==1 на промежутке[0,2Pi)//a - какоето число
Solve возвращает ноль
NSolve тоже
FindRoot только один корень да и не тот что надо
Reduce дает общее решение,как выразить оттуда нужные непонятно...

алексей_алексей
Сообщения: 1776
Зарегистрирован: Вс май 01, 2005 9:02 pm

Re: Найти корни в заданном промежутке.

Сообщение алексей_алексей » Ср май 18, 2011 8:34 pm

Тут, наверное, простая логика – в 1-ке точка касания, хоть решение и существует. Поскольку решаем чисельно, то лучше облегчить пакету задание, например:
NSolve[Cos[0.1*x]==0.999999,x]
А остальное добавляется периодом…

kypakaman
Сообщения: 31
Зарегистрирован: Пн май 16, 2011 9:42 pm

Сообщение kypakaman » Ср май 18, 2011 9:41 pm

нет так неполучится...я решил подругому вопрос:
red = Reduce[Cos[nt] == 1, t]
Unprotect[C]
TR = Table[red[[2]], {C[1], 1, 32}]
w0 = 0; While[w0 < 32, If[TR[[w0 + 1]] < 2 Pi, Print[TR[[w0 + 1]]]];
w0++]

тоесть нашел 32 корня(больше я думаю ненадо) и сравниваю их с 2 пи