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

Andrey
Чт апр 22, 2010 11:05 pm
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

Небольшая иллюстрация к моему предыдущему, к сожалению довольно длинному, объяснению по поводу бесконечного количества пар плоскостей matr = Table[{1, 0, 0} (1 - i) + {0, 1/2, 1/2}*i, {i, 0, 1, 0.1}]; pp = ListPointPlot3D[matr, PlotStyle -> PointSize[0.05]]; Man...
Andrey
Чт апр 22, 2010 10:00 pm
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

Все точки Вашего примера лежат в плоскости с нормалью {1,1,1}. Если бы они лежали еще в какой-то плоскости, отличной от единичной, то они лежали бы на линии, чего мы не наблюдаем. Последнее собственное число ковариационной матрицы равно нулю, этому числу как раз отвечает вектор {1,1,1}. Ход с собств...
Andrey
Чт апр 22, 2010 8:41 pm
Форум: Mathematica
Тема: подписать точки на графике
Ответы: 4
Просмотры: 4576

О, Спасибо! Вот этого не знал. Правда для текущей задачи не очень удобно - идет анализ сразу четырех графиков, одни и те же точки нанесены в разных координатах
Andrey
Чт апр 22, 2010 7:25 pm
Форум: Mathematica
Тема: подписать точки на графике
Ответы: 4
Просмотры: 4576

Спасибо, но так я и сам умею. Я бы хотел, чтобы надписи по возможности не перекрывались, т.е. положение надписи настраивалось автоматически. Но нет, так нет.
Andrey
Чт апр 22, 2010 4:14 pm
Форум: Mathematica
Тема: подписать точки на графике
Ответы: 4
Просмотры: 4576

подписать точки на графике

Возникла необходимость рядом с каждой точкой ListPlot-а поставить соответствующую подпись. Возможно ли такое?
Andrey
Ср апр 21, 2010 10:52 pm
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

Понял! У меня был косяк во втором блоке n = 5; m = n + 3; matr = Table[RandomInteger[{20, 100}], {i, m}, {j, n}]; matr2 = Table[matr[[i]]/Sum[matr[[i, j]], {j, n}], {i, m}]; matr2 // N // MatrixForm coord = RandomInteger[{2, n}] plane = Tab...
Andrey
Ср апр 21, 2010 5:14 pm
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

Забавно, но если во втором блоке предыдущего поста после Eigensystem[cov] // N добавить строчку Table[plane2[[i]]/plane2[[n]], {i, n}] // N то можно увидеть, что в этом случае находится только вторая плоскость, первой, которая из одних единичек, нет. А если таких плоскостей три или больше?...
Andrey
Ср апр 21, 2010 10:29 am
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

Но первая часть задачи все же линейная. Да, согласен. Как решается? Еще бы хотелось получить уравнение этой гиперплоскости, возможно даже не одной. Собственно, где две, там и много. Одну я нахожу легко, не знаю, правильно ли, но последнее собственное число ковариационной матрицы нулевое, ему отвеча...
Andrey
Ср апр 21, 2010 7:54 am
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

Сколько неизвестных в вашей проблеме? Одна - реализация в математике или две - алгоритм и его реализация в математике? Интересует скорее идея, типа алгоритм. В Математике я, наверное, сам реализую, когда пойму, что реализовывать. Мне на Математике проще примеры обсуждать, поэтому в этот форум и пиш...
Andrey
Вт апр 20, 2010 1:45 pm
Форум: Mathematica
Тема: поиск ближайших соседей
Ответы: 14
Просмотры: 5518

поиск ближайших соседей

Заголовок не совсем соответствует задаче, просто не знаю, из какой области моя проблемка В n -мерном пространстве имеется m точек, причем m>n . Эти точки имеют координаты x[i,j]>=0 , i=1..m , j=1..n , при этом есть условие Sum[x[i,j],{j,1,n}]==1 для всех i=1..m . Попросту говоря, все координаты всех...
Andrey
Пн апр 12, 2010 3:44 pm
Форум: Mathematica
Тема: Экстремум функции
Ответы: 2
Просмотры: 2196

да просто в лоб ищем нули частных производных

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

z = Sqrt[(a - x)*(a - y)*(x + y - a)];
rez = Solve[{D[z, x] == 0, D[z, y] == 0}, {x, y}]
z /. rez

а для NMinimize надо параметр а определить
Andrey
Пн янв 04, 2010 1:45 am
Форум: Mathematica
Тема: Преобразование матрицы
Ответы: 5
Просмотры: 2445

Только вот печаль в том, что правильный ответ такой
C*1стр+C*2стр+C*3стр={0,C*12,0,C*9}
где C-любая константа
Andrey
Вс янв 03, 2010 5:16 pm
Форум: Mathematica
Тема: Преобразование матрицы
Ответы: 5
Просмотры: 2445

Матрица большая? Примерчик дайте
Andrey
Вс дек 20, 2009 8:23 pm
Форум: Общие вопросы математики
Тема: помогите с уравнением
Ответы: 5
Просмотры: 1852

Корень +/-2.760993855929851
Andrey
Ср дек 16, 2009 6:38 pm
Форум: Mathematica
Тема: Помогите плииз! Решить диф.уравнения
Ответы: 5
Просмотры: 2518

Угу! Теперь осталось спросить препода, чего он имел ввиду. Кто нить знает, кто у них там в МГУДТ на мехфаке Математику читает?