Программный модуль

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

Модератор: Admin

Анюта_13
Сообщения: 10
Зарегистрирован: Пт июн 12, 2009 8:21 am
Контактная информация:

Программный модуль

Сообщение Анюта_13 » Пт июн 12, 2009 8:25 am

Помогите,пожалуйста.Как составить с системе Mathematica программный модуль для построения графиков,указывая цвет???(например,прямой).
Очень нужно,пожалуйста напишите.

volmike
Сообщения: 235
Зарегистрирован: Вс июн 05, 2005 2:42 pm
Контактная информация:

Сообщение volmike » Пт июн 12, 2009 1:13 pm

Plot[2*x + 3, {x, 0, 2}, PlotStyle -> {Green}]
Лысый пешему не конный...

Анюта_13
Сообщения: 10
Зарегистрирован: Пт июн 12, 2009 8:21 am
Контактная информация:

Сообщение Анюта_13 » Пт июн 12, 2009 2:19 pm

Спасибо.Это понятно.Мне нужен модуль что бы потом можно было ввести f(x)=x^2+3, например и он выдавал график. :?:

volmike
Сообщения: 235
Зарегистрирован: Вс июн 05, 2005 2:42 pm
Контактная информация:

Сообщение volmike » Пт июн 12, 2009 7:36 pm

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

f = x^2 + 2*x;
a = 3;
b = 12;
clr = Blue;

Plot[f, {x, a, b}, PlotStyle -> {clr}]


Лысый пешему не конный...

Анюта_13
Сообщения: 10
Зарегистрирован: Пт июн 12, 2009 8:21 am
Контактная информация:

Сообщение Анюта_13 » Пт июн 12, 2009 8:01 pm

Спасибо
:D

Анюта_13
Сообщения: 10
Зарегистрирован: Пт июн 12, 2009 8:21 am
Контактная информация:

Сообщение Анюта_13 » Пт июн 12, 2009 9:57 pm

Вообщем у меня получилось.
g = x^2 + 2*x;
a = 3;
b = 12;
clr = Blue;

f=Plot[f, {x, a, b}, PlotStyle -> {clr}]
Он строит нужный график,но хотелось чтобы можно было ввести f и снова получить график. Возможно такое???

CaptainNemo
Сообщения: 11
Зарегистрирован: Чт июн 05, 2008 3:46 pm

Сообщение CaptainNemo » Сб июн 13, 2009 3:41 pm

Просто введите f и получите график снова. Если нужно поменять цвет, тогда

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

f /. clr -> Red

Анюта_13
Сообщения: 10
Зарегистрирован: Пт июн 12, 2009 8:21 am
Контактная информация:

Сообщение Анюта_13 » Сб июн 13, 2009 7:29 pm

Спасибо за новый код. Но у меня не получается: после f он выводит -Graphic- . А сам график не показывает :(

volmike
Сообщения: 235
Зарегистрирован: Вс июн 05, 2005 2:42 pm
Контактная информация:

Сообщение volmike » Сб июн 13, 2009 11:08 pm

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

DrawPlot[f_, a_, b_, clr_] := Plot[f, {x, a, b}, PlotStyle -> clr]

DrawPlot[x^2+2*x, 1, 2, Red]
DrawPlot[{Sin[x],Exp[x]}, 1, 2, {Green,Blue}]

Лысый пешему не конный...