Exponenta.ru

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

Markiyan, я не понял сути вашей проблемы. Сам я не использую Document Mode, только WorkSheet Mode, т.е. 1d math input.

Кли, 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:=...

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

Здесь решение для одного семейства образующих. Для второго семейства всё аналогично. 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...

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

Попробуйте опцию 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.....

У вас какая-то старая версия 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.....

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

Для закрашивания двумерных областей (начиная с Maple 17) хорошо работает команда plots:-inequal . Вот пример: with(plots): inequal({0 < 3*y-x-2, x^2-y < 0, x^2+y^2 < 9}, x = -2 .. 2, y = 0 .. 3, color = "LightBlue"); https://b.radikal.ru/b15/1901/bc/26746a1710ed.png

Вот и отлично, рад за Вас! В целом по своему опыту (я работаю с Maple с 2002 года, начинал с 8 версии) успех на 99% зависит не от версии а от вашего знания математики и упорства в достижении поставленной цели. Если что-то долго не получается, то спрашивайте здесь, а ещё лучше на mapleprimes.com , гд...

Здесь ничем помочь не могу - я не хакер. Могу только посоветовать особенно не заморачиваться с версиями. Возьмите любую не слишком старую версию (чтобы была совместима с вашей операционной системой - смотрите системные требования) и работайте с ней.

Отличие очень простое: Maple 2018 выпущен в марте 2018 года, а Maple 18 - в мае 2014.