Работа с графиками

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

Модератор: Admin

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Работа с графиками

Сообщение rroommaann » Чт ноя 04, 2010 1:42 pm

Помогите разобраться… каким образом можно поменять местами оси OX и OY местами (т.е. ось OY располагалась бы горизонтально, а OX – вертикально) и возможно ли это?

vladb314
Сообщения: 40
Зарегистрирован: Вт июл 03, 2007 6:30 am
Откуда: Красноярск
Контактная информация:

Сообщение vladb314 » Пт ноя 05, 2010 6:59 pm

Вам для графика Plot или ListPlot?

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 7:34 am

мне для графика Plot

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Вт ноя 09, 2010 12:02 pm

Если в опциях ничего полезного нет, то можно
1. выразить y = f[x] как x = g[y]

Код: Выделить всё

Plot[x /. Solve[y == x^2, x], {y, 0, 1}]

2. использовать ListPlot и список {y[x], x}

Код: Выделить всё

y[x_] := x^2
ListPlot[Table[{y[x], x}, {x, -10, 10, 0.01}], Joined -> True]

3. ну или так

Код: Выделить всё

Rotate[Plot[y[x], {x, -10, 10}], -90 \[Degree]]

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 1:27 pm

Первый вариант не подходит, так как уравнения слишком сложные - программа не справляется...
Третий вариант я пробовал, он меня так же не устраивает, из-за подписей шкалы (они также повернуты)..
А вот второй вариант очень мне понравился, то что нужно... Большое спасибо!

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 1:30 pm

Вот у меня еще один вопросс, на примере второго варианта, можно ли сделать так, чтобы ось OY была в обратном порядке... т.е. пересекалась с осью OX в координате 10 и шла "вверх" к нулю?

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Вт ноя 09, 2010 2:21 pm

Код: Выделить всё

y[x_] := x^2
ListPlot[Table[{y[x], x}, {x, 10, -10, -0.01}], Joined -> True,
 AxesOrigin -> {0, 10}]
?

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Ср ноя 10, 2010 2:27 pm

Вы меня немножко не так поняли, мне нужно получить график вот такого вида для x^2... я уже давно занимаюсь этой проблемой, но так и не смог решить (правда на форумах ни разу не поднимал такой темы)... все графики я перерисовывал в ручную с промощью КОМПАС... мне кажеться что так нельзя сделать и придеться мне дальше все перерисовывать, но надежда умирает последней

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Ср ноя 10, 2010 2:29 pm

не получилось загрузить пример с первого раза, прошу прощения:

http://i.exponenta.ru/exponenta/2010/11/10/5377.jpg

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Чт ноя 11, 2010 2:16 pm

Изображение