Как сделать все на одном графике в wolfram mathematic

[4OBAEFKM]

Решил вынести в отдельную тему,так как думаю ,это будет интересно:
как сделать так, чтобы треугольник и окружность были на одном рисунке(b , c ,d будут потом зависеть от p шек)
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;

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}]

-- 10.05.2017, 10:59 --

Пробовал с помощью insert, но не получается.

[Aritaborian]

4OBAEFKM в сообщении #1215387 писал(а):

думаю ,это будет интересно

Не думаю. Нужно просто использовать Show.