2014 dxdy logo

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

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





Начать новую тему Ответить на тему
 
 Как сделать все на одном графике в wolfram mathematic
Сообщение10.05.2017, 10:58 


31/01/14
17
Решил вынести в отдельную тему,так как думаю ,это будет интересно:
как сделать так, чтобы треугольник и окружность были на одном рисунке(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, но не получается.

 Профиль  
                  
 
 Re: Как сделать все на одном графике в wolfram mathematic
Сообщение10.05.2017, 14:55 
Аватара пользователя


11/06/12
7649
Минск
4OBAEFKM в сообщении #1215387 писал(а):
думаю ,это будет интересно
Не думаю. Нужно просто использовать Show.

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

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



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

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


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

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