Вопрос по Wolfram Mathematica

Stomatolog

Мне нужно найти все a от -pi/2 до 0, при которых уравнение Sqrt[2cos[x+a]-1]=sin[6x]-1 имеет хотя бы один корень и визуализировать зависимость от параметра с помощью Manipulate.
{Slider[Dynamic[a], {-\[Pi]/2, 0}], Dynamic[a]}
Manipulate[
Show[Plot[Sin[6 x] - 1, {x, -\[Pi]/2, 3 \[Pi]/2}],
Plot[Sqrt[2 Cos[x + a] - 1], {x, -\[Pi]/2, 3 \[Pi]/2}],
ImageSize -> {500, 500}]
]
http://s54.radikal.ru/i146/1101/94/2b4251b29dc2.jpg
На полученной картинке ось ординат ограничивается 0 и -2 и видно только 1-й график. Подскажите пожалуйста как правильно написать, чтобы было видно и второй график тоже.

roma73

попробуй использовать под Show загнать обе функции Plot
типа того:
Show[{
Plot ....
Plot....
}]

Stomatolog

не помогает

Arthur8

O_o

Lene81

[math]$-\frac{\pi}{3}-\frac{\pi}{12} \le a \le \frac{\pi}{3}-\frac{\pi}{12}$[/math] с периодом [math]$2\pi$[/math], кажись. Решается ручками, а не Математикой.

Stomatolog

Видимо я недостаточно ясно выразился )
Мне нужно решение реализовать в Математике. Меня интересует именно увеличение "площади" графика, поэтому и вопрос по Wolfram Mathematica.
Просто решить уравнение я и сам могу, спасибо :grin:

Sensor4ik

Может быть надо посмотреть в сторону опции PlotRange функции Plot? Типа Plot[..., PlotRange->All]
P.S. Хинт: Функция Options[FunctionName] выдает список всех опций данной функции, например Options[Plot] выдаст тебе список всех опций функции Plot.
Оставить комментарий
Имя или ник:
Комментарий: