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

volmike
Ср мар 21, 2012 3:16 pm
Форум: Mathсad
Тема: Найти кратчайшее расстояние от точки до кривой
Ответы: 14
Просмотры: 5955

Например, так.
volmike
Пн мар 19, 2012 3:30 pm
Форум: Mathematica
Тема: Уравнение с неизвестной функцией
Ответы: 12
Просмотры: 5672

Получить все возможные тройки решения {x,y,f} (включая и комплексные значения f) можно, например, так: g[x_, y_] := {x, y, #} & /@ (f /. NSolve[(0.5^2/(1 - 3*f)^2)^( 1/3)*(-x/1.1*(1 - 3*f)/f + y/3.418*0.5^2/f^2) == 1, f]); x = Table[i, &#...
volmike
Пн мар 19, 2012 12:03 pm
Форум: Mathematica
Тема: Уравнение с неизвестной функцией
Ответы: 12
Просмотры: 5672

Данное уравнение в приниципе не может быть аналитически решено относительно f. Возможно численное нахождение f при заданных x и y.
volmike
Чт мар 15, 2012 2:12 pm
Форум: Общие вопросы математики
Тема: Как найти параметры сложнейшей формулы?
Ответы: 16
Просмотры: 6845

Интересно сравнить полученный результат в Mathcad с расчетами в Mathematica и Maple . Любопытно, что оба пакета не решают данную задачу - Mathematica(8.0.4) отказывается выводить ответ и выдает предупреждение, а Maple (15.01) просто задумывается, постоянно увеличивая объем используемой им оперативн...
volmike
Ср мар 14, 2012 8:13 pm
Форум: Общие вопросы математики
Тема: Как найти параметры сложнейшей формулы?
Ответы: 16
Просмотры: 6845

В пакете Mathematica такую задачу решает функция FindFit. В параметрах FindFit можно задать символьное выражение искомой функции, и она (FindFit) посчитает численные значения параметров.
volmike
Чт мар 08, 2012 10:47 am
Форум: Mathсad
Тема: Определите, лежит ли точка на одной из сторон треугольника
Ответы: 6
Просмотры: 3546

IVVA писал(а):На прямой - это не значит на стороне треугольника.
Дополнительно нужны еще неравенства.

Действительно, дополнительно надо добавить условия
min(x1,x2)<=x<=max(x1,x2) и min(y1,y2)<=y<=max(y1,y2).
volmike
Ср мар 07, 2012 3:37 pm
Форум: Mathсad
Тема: Определите, лежит ли точка на одной из сторон треугольника
Ответы: 6
Просмотры: 3546

Надо подставить координаты проверямой точки (x,y) в выражение
(x1 - x2) y + x2 y1 - x1 y2 + x (-y1 + y2). Если полученный результат равен нулю, точка лежит на стороне треугольника с вершинами (x1,y1) и (x2,y2) (x1<>x2).
volmike
Вс мар 04, 2012 4:41 pm
Форум: Mathematica
Тема: Пара вопросов
Ответы: 7
Просмотры: 4362

nerf писал(а):Действительно. Но интересен сам факт, можно ли отключить упрощение.

Можно использовать такую конструкцию:

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

(l /. Tan[x_] -> ComplexExpand[Tan[x]]) // FullSimplify
volmike
Сб мар 03, 2012 5:42 pm
Форум: Mathematica
Тема: Пара вопросов
Ответы: 7
Просмотры: 4362

volmike , ну, например l = Tan[a] - Tan[(2 a)/3] - Tan[a/3]; r = Tan[a] Tan[(2 a)/3] Tan[a/3]; Нужно доказать тождество l = r, приведя левую и правую часть к одному виду. Делается ч\з приведения тангенса к отношению синус к косинусу(sincos в maple). Но проблема в том, что производя ...
volmike
Пт мар 02, 2012 7:42 pm
Форум: Mathematica
Тема: Пара вопросов
Ответы: 7
Просмотры: 4362

Re: Пара вопросов

nerf писал(а):1)можно ли отключить автоматическое упрощение(например сокращение sin/cos->tan, чтобы можно было ими манипулировать, т.е. Hold не подходит)?


Приведите конкретный пример и желаемой действие манипуляции.
volmike
Пт мар 02, 2012 7:36 pm
Форум: Mathematica
Тема: Проблема со взятием вещественной части выражения
Ответы: 4
Просмотры: 3320

Re: Проблема со взятием вещественной части выражения

http://dl.dropbox.com/u/20252836/%D0%A1%D0%BD%D0%B8%D0%BC%D0%BE%D0%BA%20%D1%8D%D0%BA%D1%80%D0%B0%D0%BD%D0%B0%202012-02-29%20%D0%B2%2022.24.05.png Почему не выражает вещественную часть полностью? Хотя руками все просто. Аналогичная проблема и в более сложных выражениях. Mathematica очень щепетильно ...
volmike
Пт мар 02, 2012 7:09 pm
Форум: Mathematica
Тема: Проблема со взятием вещественной части выражения
Ответы: 4
Просмотры: 3320

Re: Работает только с числами

У меня такое впечатление, что Re работает только с числами. Пример: In[3]:=Assuming[x \[Element] Reals && y \[Element] Reals, Re[x^2 - y^2 + 2*I*x*y]] Out[3]=-2 Im[x y] + Re[x^2 - y^2] Используйте Maple, там по этой части все в порядке. Так работает (версия 8.0.4): Assuming[x \[Element] Rea...
volmike
Сб окт 03, 2009 9:58 am
Форум: Mathematica
Тема: Просьба протестировать функцию NSolve.
Ответы: 7
Просмотры: 18008

Совокупность решений {x,y,z,t}, выданных Mathematica {{0.828835 + 2.95595 I, 1.71729 + 2.08919 I, -2.81384 - 2.19281 I, -2.03723 - 1.30899 I}, {0.828835 - 2.95595 I, 1.71729 - 2.08919 I, -2.81384 + 2.19281 I, -2.03723 + 1.30899 I}, {1.33062 + 3.13435 I, 2.04143 + 2.1709...
volmike
Сб авг 29, 2009 4:56 pm
Форум: Mathematica
Тема: Условие для условной оптимизация
Ответы: 5
Просмотры: 9032

Странно, 7.0.0.0 считает правильно.
volmike
Пт авг 28, 2009 9:55 am
Форум: Mathematica
Тема: Условие для условной оптимизация
Ответы: 5
Просмотры: 9032

Какая версия Mathematica используется?