Exponenta.ru

То же самое можно написать короче без циклов, если векторы задать как ниже в коде. Или даже ещё короче, т.к. фактически имеем очень простую функцию одной переменной, заданной на конечном множестве: 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)...

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

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

Конечно я имел в виду решение в аналитическом виде, а не в процедурном. См. например статью в википедии и пример там https://en.wikipedia.org/wiki/Picard%E2%80%93Lindel%C3%B6f_theorem

Markiyan, метод Пикара (он же метод последовательных приближений или метод итераций) для дифуров на каждом шаге возвращает не число, а некоторую функцию, которая получается как результат вычисления интеграла с переменным верхним пределом. Как вы предполагаете считать такой интеграл численно? Можно к...

Почитайте статью 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 про свойства липшицевых отображений.

То, что Вы написали, это не метод Пикара, а что-то непонятное. Метод Пикара будет работать, если программа на каждом шаге сможет вычислить символьно некоторый интеграл. В данном примере Maple вычисляет только первые 2 интеграла. Чтобы интегралы вычислялись и дальше, я на каждом шаге использую прибли...

Нахождение суммы квадратов отклонений для найденного решения:
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));

Не надо.

Для вашей задачи есть отдельная команда 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);

Если точки рисуются в разных стилях, то придётся задавать отдельными командами. Замените последнюю строку вашего кода следующим: 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...

Скобки не нужны, если заданы отдельно 3 вектора, скажем X - вектор из первых координат ваших точек, Y - вектор из вторых координат, Z - вектор из третьих координат (в вашем примере это будут шести-мерные векторы): restart; with(plots): a := 2: b := 5: v1 := <a*b, -a-b, 1>: v2 := <a*b, 1, -a-b>: v3 :...

Вы забыли поставить знак умножения между 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 :...

Нужно просто поставить соответствующие скобки вокруг системы и всё заработает:
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);

Markiyan, кажется это проблема не Maple, а Windows, т.к. у меня в Maple 2017.3 (32 bit) всё работает нормально в Windows 10 (64 bit):