2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 18:22 
Здравствуйте, вот хотел написать программу, которая рисует треугольник и его медианы, но программа не рисует линии, помогите разобраться. Заранее большое спасибо
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}]

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 19:37 
При наведении на картинку указываются ошибки. Уберите фигурные скобки в первых шести присваиваниях.

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 19:53 
Спасибо огромное , все заработало! А есть ли вольфрама команда для построения коник?

-- 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]]; и перестало работать

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 20:37 
Кривые рисовать можно командой ContourPlot. А не работает - в матрице 3 на 2 элемента, скажем p[[2,3]], не существует.

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 20:50 
Цитата:
А есть ли вольфрама команда для построения коник?

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

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 20:53 
Спасибо, с высотами я уже тоже разобрался

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение10.05.2017, 00:42 
И последний вопрос, как правильно написать, чтобы треугольник и окружность были на одном рисунке(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}]

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение10.05.2017, 11:12 
Код:
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]}]

 
 
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение10.05.2017, 11:34 
Спасибо огромное

 
 
 [ Сообщений: 9 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group