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

Kitonum
Вт окт 08, 2019 8:36 pm
Форум: Maple
Тема: Вывод тригонометрических функций
Ответы: 2
Просмотры: 83

Re: Вывод тригонометрических функций

Посмотрите этот вопрос https://www.mapleprimes.com/questions/228002-Trigonometric-Function-Error на форуме mapleprimes.com , где речь идёт об аналогичной ошибке.
Kitonum
Пн июл 01, 2019 9:33 pm
Форум: Maple
Тема: Как построить график функции
Ответы: 3
Просмотры: 176

Re: Как построить график функции

То же самое можно написать короче без циклов, если векторы задать как ниже в коде. Или даже ещё короче, т.к. фактически имеем очень простую функцию одной переменной, заданной на конечном множестве: restart; N := 160: P := 4: A := 1: X := Vector(1 .. P*N, i->i-1): Y := Vector(1 .. P*N, i->A*sqrt(i-1)...
Kitonum
Вт май 14, 2019 8:36 pm
Форум: Maple
Тема: Минимизация функций в мапл
Ответы: 2
Просмотры: 165

Re: Минимизация функций в мапл

Вот простой пример как это можно сделать:

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

restart;
y:=x^2+2*x+4;
sol:=minimize(y, location);
x0:=eval(x,op([1,1],sol[2]));
y0:=sol[1];
Kitonum
Пн мар 25, 2019 1:08 pm
Форум: Maple
Тема: Kernel connection has been lost...
Ответы: 8
Просмотры: 438

Re: Kernel connection has been lost...

Maple пытается символьно вычислить этот интеграл (что вероятно невозможно) и программа зависает. Проблема легко решается, если интеграл считать численно: restart; with(Student[VectorCalculus]): ArcLength(`<,>`(cos(t)^(1/100), sin(t)^(1/100)), t = 0 .. (1/2)*Pi, output = integral); evalf(%); https://...
Kitonum
Пт мар 22, 2019 9:06 pm
Форум: Maple
Тема: Метод Пикара
Ответы: 9
Просмотры: 392

Re: Метод Пикара

Конечно я имел в виду решение в аналитическом виде, а не в процедурном. См. например статью в википедии и пример там https://en.wikipedia.org/wiki/Picard%E2%80%93Lindel%C3%B6f_theorem
Kitonum
Пт мар 22, 2019 8:20 pm
Форум: Maple
Тема: Метод Пикара
Ответы: 9
Просмотры: 392

Re: Метод Пикара

Markiyan, метод Пикара (он же метод последовательных приближений или метод итераций) для дифуров на каждом шаге возвращает не число, а некоторую функцию, которая получается как результат вычисления интеграла с переменным верхним пределом. Как вы предполагаете считать такой интеграл численно? Можно к...
Kitonum
Чт мар 21, 2019 7:09 pm
Форум: Maple
Тема: Метод Пикара
Ответы: 9
Просмотры: 392

Re: Метод Пикара

Почитайте статью https://ru.wikipedia.org/wiki/%D0%9B%D0%B8%D0%BF%D1%88%D0%B8%D1%86%D0%B5%D0%B2%D0%BE_%D0%BE%D1%82%D0%BE%D0%B1%D1%80%D0%B0%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5 про свойства липшицевых отображений.
Kitonum
Чт мар 21, 2019 12:15 am
Форум: Maple
Тема: Метод Пикара
Ответы: 9
Просмотры: 392

Re: Метод Пикара

То, что Вы написали, это не метод Пикара, а что-то непонятное. Метод Пикара будет работать, если программа на каждом шаге сможет вычислить символьно некоторый интеграл. В данном примере Maple вычисляет только первые 2 интеграла. Чтобы интегралы вычислялись и дальше, я на каждом шаге использую прибли...
Kitonum
Чт мар 07, 2019 11:36 pm
Форум: Maple
Тема: МНК
Ответы: 8
Просмотры: 298

Re: МНК

Нахождение суммы квадратов отклонений для найденного решения:
restart;
with(LinearAlgebra):
Eq1:=5*x+7*y=14;
Eq2:=3*x+2*y=12;
Eq3:=7*x+y=9;
Eq4:=6*x+5*y=17;
Sol:=LeastSquares({Eq1,Eq2,Eq3,Eq4}, {x,y});
evalf(eval(`+`(op(map((lhs-rhs), [Eq1,Eq2,Eq3,Eq4])^~2)), Sol));
Kitonum
Пн мар 04, 2019 6:15 pm
Форум: Maple
Тема: МНК
Ответы: 8
Просмотры: 298

Re: МНК

Не надо.
Kitonum
Пн мар 04, 2019 5:42 pm
Форум: Maple
Тема: МНК
Ответы: 8
Просмотры: 298

Re: МНК

Для вашей задачи есть отдельная команда LinearAlgebra:-LeastSquares . Пакет linalg давно устарел и его лучше не использовать:
restart;
with(LinearAlgebra):
Eq1:=5*x+7*y=14;
Eq2:=3*x+2*y=12;
Eq3:=7*x+y=9;
Eq4:=6*x+5*y=17;
Sol:=LeastSquares({Eq1,Eq2,Eq3,Eq4}, {x,y});
evalf(Sol);
Kitonum
Ср фев 27, 2019 2:56 pm
Форум: Maple
Тема: Нарисовать точки в 3D - ошибка floating-point
Ответы: 6
Просмотры: 259

Re: Нарисовать точки в 3D - ошибка floating-point

Если точки рисуются в разных стилях, то придётся задавать отдельными командами. Замените последнюю строку вашего кода следующим: A:=pointplot3d([v1, v2, v3, v4, v5, v6, o], color = red, symbol=solidsphere, symbolsize=17): B:=pointplot3d([w1, w2, w3, w4, w5, w6], color = blue, symbol=solidsphere, sym...
Kitonum
Сб фев 23, 2019 9:56 pm
Форум: Maple
Тема: Нарисовать точки в 3D - ошибка floating-point
Ответы: 6
Просмотры: 259

Re: Нарисовать точки в 3D - ошибка floating-point

Скобки не нужны, если заданы отдельно 3 вектора, скажем X - вектор из первых координат ваших точек, Y - вектор из вторых координат, Z - вектор из третьих координат (в вашем примере это будут шести-мерные векторы): restart; with(plots): a := 2: b := 5: v1 := <a*b, -a-b, 1>: v2 := <a*b, 1, -a-b>: v3 :...
Kitonum
Чт фев 21, 2019 6:04 pm
Форум: Maple
Тема: Нарисовать точки в 3D - ошибка floating-point
Ответы: 6
Просмотры: 259

Re: Нарисовать точки в 3D - ошибка floating-point

Вы забыли поставить знак умножения между a и b . Для Maple ab это просто символ. Также v1, v2, v3, v4, v5, v6 должны быть окружены скобками (квадратными или фигурными). Ещё кое-что подправил: restart; with(plots): a := 2: b := 5: v1 := <a*b, -a-b, 1>: v2 := <a*b, 1, -a-b>: v3 := <-a-b, a*b, 1>: v4 :...
Kitonum
Чт фев 07, 2019 11:07 am
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 10
Просмотры: 796

Re: Дефект в команде Solve

Нужно просто поставить соответствующие скобки вокруг системы и всё заработает:
restart;
solve({S1^2*w1^2+S2^2*w2^2+S3^2*w3^2+2*S12*w1*w2+2*S13*w1*w3+2*S23*w2*w3 = SG^2, S1P*w1+S2P*w2+S3P*w3 = SGP, w1*ws1+w2*ws2+w3*ws3 = 1}, {w1, w2, w3}, explicit);