2014 dxdy logo

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

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





Начать новую тему Ответить на тему
 
 Помогите разобраться с manipulate в wolfram
Сообщение09.05.2017, 18:22 


31/01/14
13
Здравствуйте, вот хотел написать программу, которая рисует треугольник и его медианы, но программа не рисует линии, помогите разобраться. Заранее большое спасибо
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 
Заслуженный участник


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

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


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

-- 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 
Заслуженный участник


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

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


11/07/16
155
Цитата:
А есть ли вольфрама команда для построения коник?

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

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


31/01/14
13
Спасибо, с высотами я уже тоже разобрался

 Профиль  
                  
 
 Re: Помогите разобраться с manipulate в wolfram
Сообщение10.05.2017, 00:42 


31/01/14
13
И последний вопрос, как правильно написать, чтобы треугольник и окружность были на одном рисунке(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 
Заслуженный участник


25/02/11
1457
Код:
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 


31/01/14
13
Спасибо огромное

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 9 ] 

Модераторы: Toucan, maxal, Karan, PAV, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group