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

Markiyan Hirnyk
Вс фев 12, 2012 4:22 pm
Форум: Maple
Тема: Диаграмма Вороного
Ответы: 2
Просмотры: 1531

Мое решение

Мой код в случае n=3. > restart; with(Statistics): > with(plots): > X := RandomVariable(Uniform(0, 10)): randomize(): > for j to 3 do A[j] := convert(Sample(X, 2), list) end do; [7.33230345482022194, 6.17871614912884226] [3.72916160700232790, 9.92005819168451275] [3.78839002851119932, 2.970398832956...
Markiyan Hirnyk
Вс фев 12, 2012 2:17 pm
Форум: Maple
Тема: ДУ - можно ли такое решить?
Ответы: 6
Просмотры: 2069

Re: ДУ - можно ли такое решить?

diff(y(x),x,x)-a*cos(y(x))=0 где a - константа y(0)=0 и y(200)=0 Мне система ответ не хочет выдавать :(( Можно, подбором дополнительного параметра b . restart; sol := dsolve({diff(y(x), x, x)-a*cos(y(x)) = 0, y(0) = 0, (D(y))(0) = b}, numeric, parameters = [a, b]) proc(x_rkf45) ... end proc sol(par...
Markiyan Hirnyk
Сб фев 11, 2012 9:20 pm
Форум: Maple
Тема: решение системы уравнений с дополнительным условием
Ответы: 8
Просмотры: 2279

Да

Парень, это возможно. Измените Ваш код в этом месте таким образом: > initg := x1(0) = y1, x2(0) = Pi*RealDomain[`^`](2, -1), x3(0) = 0, x4(0) = 0, x5(0) = 0, x6(0) = 0, x7(0) = rhs(op(1, R[1])), x8(0) = rhs(op(2, R[1])): > initg2 := x1(0) = y1, x2(0) = Pi*RealDomain[`^`](2, -1), x3(0) = 0, x4(0) = 0...
Markiyan Hirnyk
Сб фев 11, 2012 7:34 pm
Форум: Maple
Тема: решение системы уравнений с дополнительным условием
Ответы: 8
Просмотры: 2279

Дополнительное неравенство в системе

s := solve({d, f, y8 >= 0}, {y7, y8}):
S := evalf(s);

S := {y7 = -1.77960018335626899133, y8 = 12.5502285383086611568}, {y7 = .176157426538398294391, y8 = 1.58938002530964036245}, {y7 = 6.95027155514862408600, y8 = 34.8447538630668682300}
Markiyan Hirnyk
Сб фев 11, 2012 1:39 pm
Форум: Mathematica
Тема: Построение геодезической на поверхности
Ответы: 2
Просмотры: 8442

Re: Построение геодезической на поверхности

Здраствуйте, есть задача : Для данной поверхности построить геодезическую, выходящую из данной точки в данном направлении. Нужно также сделать возможным динамическое изменение точки, направления и длины геодезической. Но не понятно как строить геодезическую в принципе и как это реализовать в mathem...
Markiyan Hirnyk
Пт фев 10, 2012 9:36 pm
Форум: Maple
Тема: Решение уравнения
Ответы: 6
Просмотры: 2228

ФАЙЛД

Kazyc писал(а):[

Изображение

Пожалуйста, представьте .mw файл.
Markiyan Hirnyk
Пт фев 10, 2012 6:59 pm
Форум: Maple
Тема: Решение уравнения
Ответы: 6
Просмотры: 2228

Re: Решение

Kazyc писал(а):Спасибо за помощь, Markiyan Hirnyk!
Только почему-то он у меня ошибку выдает:
Error, (in simpl/relopsum) invalid terms in sum
Уважаемый Не Знаю Как Вас Звать !
Кто такой он? Пожалуйста, представьте Ваш файл в форум. Я не доверяю словам. Меня убеждают аргументы и факты.
Markiyan Hirnyk
Пт фев 10, 2012 5:45 pm
Форум: Maple
Тема: Решение уравнения
Ответы: 6
Просмотры: 2228

Решение

Да, можно. Несколько вариантов: f := piecewise(x = 0, 0, x > 0, x*ln(x)^2): sol := dsolve(diff(x(t), t) = f(x(t)), x(t)) t-Intat(1/(piecewise(_a = 0, 0, 0 < _a, _a*ln(_a)^2))(_a), _a = x(t))+_C1 = 0 value(sol) t-intat(1/(piecewise(_a = 0, 0, 0 < _a, _a*ln(_a)^2))(_a), _a = x(t))+_C1 = 0 sol1 := dsol...
Markiyan Hirnyk
Чт фев 09, 2012 11:15 pm
Форум: Maple
Тема: Диаграмма Вороного
Ответы: 2
Просмотры: 1531

Диаграмма Вороного

Как создать диаграмму Вороного, применяя Maple? Диаграмма Вороного конечного множества точек S на плоскости представляет такое разбиение плоскости, при котором каждая область этого разбиения образует множество точек, более близких к одному из элементов множества S, чем к любому другому элементу множ...
Markiyan Hirnyk
Вс фев 05, 2012 3:59 pm
Форум: Maple
Тема: помогите численно подсчитать интеграл Фурье
Ответы: 10
Просмотры: 3633

Условия

Спасибо огромное, Markiyan Hirnyk. А можно ли менять порядок интегрирования, в интеграле int(exp(-t*lambda^2)*exp(I*lambda*x)*int(exp(-I*lambda*xi)*f(xi), xi = -infinity .. infinity), lambda = -infinity .. infinity) на интеграл вида int(int(exp(-I*lambda*xi)*f(xi)*exp(-t*lambda^2)*exp(I*lambda*x), ...
Markiyan Hirnyk
Чт фев 02, 2012 11:29 pm
Форум: Maple
Тема: помогите численно подсчитать интеграл Фурье
Ответы: 10
Просмотры: 3633

Порядок интегрирования

Если поменять порядок интегрирования (см. В. Зорич, т. 2), получается
int(int(exp(-I*lambda*xi)*f(xi)*exp(-t*lambda^2), lambda = -infinity .. infinity), xi = -infinity .. infinity)
piecewise(csgn(t) = 1, int(exp(-(1/4)*xi^2/t)*f(xi)*sqrt(Pi)/sqrt(t), xi = -infinity .. infinity), infinity)
Markiyan Hirnyk
Чт фев 02, 2012 2:10 pm
Форум: Maple
Тема: вопрос по textplot
Ответы: 5
Просмотры: 1964

Ссылка

Markiyan Hirnyk
Чт фев 02, 2012 10:28 am
Форум: Maple
Тема: вопрос по textplot
Ответы: 5
Просмотры: 1964

\n

Используя новую строку:
plots:-textplot([-0.3, 5, "n \n i \n u \n Q"], font = [TIMES, ROMAN, 14], color = black, axes = none)
Markiyan Hirnyk
Пт янв 27, 2012 11:00 am
Форум: Maple
Тема: Maple Аппроксимация решений систем дифф.уравнений
Ответы: 13
Просмотры: 4968

Да

Это сделать можно: sys := diff(x1(t), t) = -4*x1(t)^2, diff(x2(t), t) = x1(t)^2-x2(t); F := dsolve({sys, x1(0) = 1, x2(0) = 1}, {x1(t), x2(t)}, numeric, output = array([0, .25, .5, .75, 1])); op([1], F); op([1, 3], F); op([1, 3, 2], F); A := LinearAlgebra:-Transpose(convert(rhs(op([1, 3, 2], F)), Ma...