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

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

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
Просмотры: 339

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
Просмотры: 339

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
Просмотры: 339

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
Просмотры: 904

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);
Kitonum
Ср фев 06, 2019 11:17 am
Форум: Maple
Тема: Гиперболоид
Ответы: 12
Просмотры: 597

Re: Гиперболоид

Markiyan, кажется это проблема не Maple, а Windows, т.к. у меня в Maple 2017.3 (32 bit) всё работает нормально в Windows 10 (64 bit):
Изображение
Kitonum
Вт фев 05, 2019 11:41 pm
Форум: Maple
Тема: Гиперболоид
Ответы: 12
Просмотры: 597

Re: Гиперболоид

Markiyan, я не понял сути вашей проблемы. Сам я не использую Document Mode, только WorkSheet Mode, т.е. 1d math input.
Kitonum
Вт фев 05, 2019 11:11 pm
Форум: Maple
Тема: Гиперболоид
Ответы: 12
Просмотры: 597

Re: Гиперболоид

Кли, t это просто имя для параметра (прямые в пространстве удобно задавать параметрически), а p это параметр для выбора различных прямых. Ниже - решение проблемы для гиперболического параболоида: restart; a:=2: b:=3: N:=20: H:=1/2*(x^2/a^2-y^2/b^2): L1:=[a*(p^2+2*t)/(2*p),-b*(p^2-2*t)/(2*p),t]; L2:=...
Kitonum
Вт фев 05, 2019 11:02 pm
Форум: Maple
Тема: Гиперболоид
Ответы: 12
Просмотры: 597

Re: Гиперболоид

Вот улучшенный код для построения образующих (я использовал готовые формулы, взятые из английской вики). Здесь строятся оба семейства, параметр N задаёт число прямых из каждого семейства: restart; a:=1: b:=2: c:=3: N:=30: H:=x^2/a^2+y^2/b^2-z^2/c^2=1: L1:=<a*cos(p),b*sin(p),0>+t*<-a*sin(p),b*cos(p),...
Kitonum
Вт фев 05, 2019 12:53 pm
Форум: Maple
Тема: Гиперболоид
Ответы: 12
Просмотры: 597

Re: Гиперболоид

Здесь решение для одного семейства образующих. Для второго семейства всё аналогично. a:=1: b:=2: c:=3: H:=x^2/a^2+y^2/b^2-z^2/c^2=1: H1:=H-y^2/b^2; H2:=(x/a-z/c)*(x/a+z/c)=(1-y/b)*(1+y/b); Sys1:={cos(p)*(x/a-z/c)+sin(p)*y/b=sin(p), sin(p)*(x/a+z/c)-cos(p)*y/b=cos(p)}; LinearAlgebra:-GenerateMatrix(e...
Kitonum
Ср янв 30, 2019 12:39 pm
Форум: Maple
Тема: maple
Ответы: 15
Просмотры: 722

Re: maple

Если вы хотите закрашивать свою область отдельными отрезками, то сами отрезки лучше брать не параллельными осям координат, а проходящими через начало. При этом мы нуждаемся в полярных уравнениях ваших окружностей. Вот реализация этой идеи: restart; C1:=eval(x^2+y^2=2*y, [x=r*cos(t),y=r*sin(t)]): Eq1...
Kitonum
Вт янв 29, 2019 10:10 pm
Форум: Maple
Тема: maple
Ответы: 15
Просмотры: 722

Re: maple

Попробуйте опцию numpoints : restart; A:=plot([2*sin(phi), 4*sin(phi)],phi=0..Pi,color=[red,blue],thickness=3,coords=polar): B:=plot(sqrt(3)*x,x=0..2,color=green, thickness=3): C:=plot(x/sqrt(3),x=0..2,color=gold, thickness=3): R:=plots:-implicitplot((r-2*sin(phi))*(r-4*sin(phi)), r=0..4, phi=Pi/6.....
Kitonum
Вт янв 29, 2019 9:46 pm
Форум: Maple
Тема: maple
Ответы: 15
Просмотры: 722

Re: maple

У вас какая-то старая версия Maple, в которой ещё нет этой опции. Просто уберите её из кода.
Kitonum
Вт янв 29, 2019 9:29 pm
Форум: Maple
Тема: maple
Ответы: 15
Просмотры: 722

Re: maple

Я кое-что подкорректировал для улучшения качества: A:=plot([2*sin(phi), 4*sin(phi)],phi=0..Pi,color=[red,blue],thickness=3,coords=polar): B:=plot(sqrt(3)*x,x=0..2,color=green, thickness=3): C:=plot(x/sqrt(3),x=0..2,color=gold, thickness=3): R:=plots:-implicitplot((r-2*sin(phi))*(r-4*sin(phi)), r=0.....
Kitonum
Чт янв 24, 2019 11:57 pm
Форум: Maple
Тема: maple
Ответы: 15
Просмотры: 722

Re: maple

Посмотрите этот мой пост https://www.mapleprimes.com/posts/145922-Perimeter-Area-And-Visualization-Of-A-Plane-Figure- на mapleprimes.com Процедура Picture позволяет раскрасить плоскую область, ограниченную кусочно гладкой кривой (граница этой области). Граница может быть задана как явными, так и пар...