Найдено 452 результата

Andrey
Пн фев 17, 2014 6:27 pm
Форум: Mathematica
Тема: Симплекс метод !!!
Ответы: 4
Просмотры: 3675

А справочку по LinearProgramming посмотреть? Там и примеры есть, и комментарии.
Andrey
Ср сен 11, 2013 11:30 am
Форум: Mathematica
Тема: Узнать PlotRange
Ответы: 0
Просмотры: 1953

Узнать PlotRange

Mathematica 9 (9.0.1.0 32-bit) пишем gr1 = ListPlot[RandomReal[MultinormalDistribution[{0, 0}, {{1, 0}, {0, 1}}], 10]]; gr2 = Graphics[Circle[{2, 0}, 2]]; gr3 = Show[gr1, gr2, PlotRange -> All, AspectRatio -> Automatic] хотелось бы узнать размах по о...
Andrey
Пн май 20, 2013 7:49 am
Форум: Mathematica
Тема: кнопочка Save на панели инструментов
Ответы: 0
Просмотры: 1829

кнопочка Save на панели инструментов

В 9-ке почему-то исчезла кнопочка Save на панели инструментов Notebook-а (та панелька, которая включается Menu - Window - Show Toolbar. Подскажите, кто знает, как вернуть ее обратно, надоело для каждого сохранения в меню лезть.
Andrey
Пн май 20, 2013 7:44 am
Форум: Mathematica
Тема: Возможно ли провести регрессионный анализ "по рисунку
Ответы: 1
Просмотры: 2632

Re: Возможно ли провести регрессионный анализ "по рисун

Для mathematica есть ли специализированный пакет статистики для проведения например регрессионного анализа и оценки мат модели? Посмотрите функцию Fit , и дальше LinearModelFit и NonlinearModelFit . Но в любом случае Вам понадобятся таблицы с цифрами. Вопрос только в том, как Вы оцифруете Ваши карт...
Andrey
Чт ноя 15, 2012 8:24 pm
Форум: Mathematica
Тема: замена функции
Ответы: 3
Просмотры: 2468

Действительно не совсем так делал, про Evaluate надо не забыть

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

pde /. {c->Function[x,cl//Evaluate]}
Andrey
Сб окт 06, 2012 8:58 am
Форум: Maple
Тема: PDE с начальными и граничными
Ответы: 0
Просмотры: 1117

PDE с начальными и граничными

Друзья! Можно ли в Мапле решить PDE с начальными и граничными условиями в аналитическом виде? Например, такое: PDE:={d*diff(c(x,t),x,x)+r*diff(c(x,t),x)=diff(c(x,t),t)}; bc:={d*diff(c(x,t),x)+r*q*c(x,t)=0,c(in...
Andrey
Чт окт 04, 2012 12:58 pm
Форум: Mathematica
Тема: замена функции
Ответы: 3
Просмотры: 2468

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

pde /. {c->Function[x,cl]}
Странно, вроде так делал, и не получалось. Значит, не совсем так делал. СПАСИБО ОГРОМНОЕ!
Andrey
Чт окт 04, 2012 6:34 am
Форум: Mathematica
Тема: замена функции
Ответы: 3
Просмотры: 2468

замена функции

Друзья! Вот такой вопрос. Предположим, есть дифференциальное уравнение: pde = d D[c[x], {x, 2}] + r D[c[x], {x, 1}] и предполагается, что его решение такое: cl = c0 (1 + (1 - k)/k Exp[-(r/d) x]) Нужно проверить, отвечает ли решение диффуру. Сейчас пока дел...
Andrey
Чт май 10, 2012 12:48 pm
Форум: Mathematica
Тема: анимация pointplot3d
Ответы: 1
Просмотры: 2031

анимация pointplot3d

Друзья! Не часто дергаю Мапл, но, похоже, на нем эта задачка проще всего решается. Есть две серии точек в трехмерном простанстве. Нужно отобразить их разным цветом на трехмерном графике, и повернуть в режиме анимации. Для каждой группы я это легко могу сделать > points:= {seq([cos(Pi*T/...
Andrey
Пт ноя 25, 2011 2:27 pm
Форум: Mathematica
Тема: помогите с Линейной алгеброй(матрицы)...
Ответы: 1
Просмотры: 1938

1) Например, так:

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

Array[x, {100, 100}] // MatrixForm

2) А в чем проблемы?

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

x = 5;
x
Clear[x]
x

А про консультацию - так кидайте в форум, получите сразу много консультантов.
Andrey
Пт ноя 25, 2011 12:06 pm
Форум: Mathematica
Тема: множители Лагранжа
Ответы: 0
Просмотры: 1622

множители Лагранжа

Похоже чего-то недопонимаю ClearAll[y, x, L] FindMinimum[{x x + y y, x + y + 1 == 0}, {{x, 0}, {y, 0}}] все решает правильно. Теперь пытаюсь ввести условие в виде множителя Лагранжа FindMinimum[x x + y y + L (x + y + 1), {{x, 0}, {y...
Andrey
Пт окт 14, 2011 12:13 pm
Форум: Mathematica
Тема: LIstPlot сошел с ума?
Ответы: 2
Просмотры: 2345

ListPlot[{...}, PlotRange -> All]

И обойдемся без обвинений в сумасшествии.
Andrey
Вс сен 18, 2011 3:48 pm
Форум: Mathematica
Тема: Объединить полигоны
Ответы: 3
Просмотры: 3928

Объединить полигоны

Есть такая картинка. http://i.exponenta.ru/exponenta/2011/9/18/6003.gif Координаты вершин и цвет каждого полигона известны. Как объединить полигоны одинакового цвета, чтобы убрать лишение ребра? В результате должно остаться два зеленых полигона и по одному остальных цветов, т.е. всего шесть.
Andrey
Ср июн 01, 2011 9:53 pm
Форум: Mathematica
Тема: PDE
Ответы: 13
Просмотры: 4899

Все! Готово! a=0.1;b=-0.1; pde1=D[u[t,x],t]==a D[u[t,x],{x,2}] pde2=D[v[t,x],t]==b D[u[t,x],x] ac=v[0,x]==1 ic=u[0,x]==Tanh[100x] bc0=u[t,0]==0 bc1=u[t,1]==v[t,1] pds={pde1,pde2,bc0,bc1,ic,ac}; sol=NDSolve[pds,{u,v},{x,0,1},{t,0,1}] Plot3D[Evaluate[u...
Andrey
Ср июн 01, 2011 9:29 pm
Форум: Mathematica
Тема: PDE
Ответы: 13
Просмотры: 4899

a = 0.1; b = -0.1; pde1 = D[u[t, x], t] == a D[u[t, x], {x, 2}] pde2 = D[v[t, x], t] == b (D[u[t, x], x] /. x -> 1) ac = v[0, x] == 1 ic = u[0, x] == Tanh[100 x] bc0 = u[t, 0] == 0 bc1 = u[t, 1] == v[t, 1] pds = {pde1, pde2, bc0, bc1, ic, ac}; sol = NDSolve[pds, {u,...