Помогите разобраться с manipulate в wolfram

[4OBAEFKM]

Здравствуйте, вот хотел написать программу, которая рисует треугольник и его медианы, но программа не рисует линии, помогите разобраться. Заранее большое спасибо
Manipulate[
p1 = {p[[1]]};
p2 = {p[[2]]};
p3 = {p[[3]]};
m1 = {(p[[2]] + p[[3]])/2};
m2 = {(p[[1]] + p[[3]])/2};
m3 = {(p[[2]] + p[[1]])/2};

Graphics[
GraphicsComplex[
p~Join~{p1, p2, p3}, {Thick, Line[{1, 2, 3, 1}], Thick,
Line[{1, m1}], Line[{3, m3}], Line[{2, m2}], PointSize[Large],
Red, Point[{1, 2, 3, m1, m2, m3}]}],
PlotRange -> 10], {{p, {{0, 4}, {1, 3}, {-3, 3}}}, Locator}]

[Vince Diesel]

При наведении на картинку указываются ошибки. Уберите фигурные скобки в первых шести присваиваниях.

[4OBAEFKM]

Спасибо огромное , все заработало! А есть ли вольфрама команда для построения коник?

-- 09.05.2017, 20:01 --

И вот еще вопрос, решил добавить высоты:
res = NSolve[(x4 - p[[1, 2]])*(p[[2, 3]] - p[[2, 2]]) == (y4 -
p[[2, 2]])*(p[[1, 3]] -
p[[1, 2]]) && ((x4 - p[[1 , 1]])*(p[[1, 3]] -
p[[1, 2]]) + (y4 - p[[2 , 1]])*(p[[2, 3]] - p[[2, 2]]) ==
0), {x4, y4}];
h1 = {x4, y4} /. res[[1]]; и перестало работать

[Vince Diesel]

Кривые рисовать можно командой ContourPlot. А не работает - в матрице 3 на 2 элемента, скажем p[[2,3]], не существует.

[Markiyan Hirnyk]

Цитата:

А есть ли вольфрама команда для построения коник?

Посмотрите это.

[4OBAEFKM]

Спасибо, с высотами я уже тоже разобрался

[4OBAEFKM]

И последний вопрос, как правильно написать, чтобы треугольник и окружность были на одном рисунке(b , c ,d будут потом зависеть от p шек)
pulate[
p1 = p[[1]];
p2 = p[[2]];
p3 = p[[3]];
m1 = (p[[2]] + p[[3]])/2;
m2 = (p[[1]] + p[[3]])/2;
m3 = (p[[2]] + p[[1]])/2;

d = 4; b = -3; c = 2;
ContourPlot[
x*x + y*y + b*x + c*y + d == 0, {x, -10, 10}, {y, -10, 10}];
Graphics[
GraphicsComplex[
p~Join~{p1, p2, p3}, {Thick, Line[{1, 2, 3, 1}], Thick,
Line[{1, m1}], Line[{3, m3}], Line[{2, m2}], PointSize[Large],
Red, Point[{1, 2, 3, m1, m2, m3 }]}],
PlotRange -> 10], {{p, {{0, 4}, {1, 3}, {-3, 3}}}, Locator}]

[Vince Diesel]

Show[{ContourPlot[
    x*x + y*y + b*x + c*y == d, {x, -10, 10}, {y, -10, 10}],
   Graphics[
    GraphicsComplex[
     p~Join~{p1, p2, p3}, {Thick, Line[{1, 2, 3, 1}], Thick, 
      Line[{1, m1}], Line[{3, m3}], Line[{2, m2}], PointSize[Large], 
      Red, Point[{1, 2, 3, m1, m2, m3}]}], 
    PlotRange -> 10]}]

[4OBAEFKM]

Спасибо огромное