Математический форум Math Help Planet
http://mathhelpplanet.com/

Даны две прямые, строим биссектрисы
http://mathhelpplanet.com/viewtopic.php?f=21&t=55303
Страница 1 из 1

Автор:  Avgust [ 23 июл 2017, 12:29 ]
Заголовок сообщения:  Даны две прямые, строим биссектрисы

Составил красивую прогу для построения биссектрис. Точка [math](x_0, y_0)[/math] - точка пересечения прямых
[math]y_1=a_1x+b_1\, ; \quad y_2=a_2x+b_2[/math]
with(plots): with(plots): a1 := -1.5; b1 := 6; a2 := 4.5; b2 := 3; x0 := (b2-b1)/(a1-a2); y0 := a1*x0+b1; q1 := plot({a1*x+b1, a2*x+b2}, x = x0-1 .. x0+1, y = y0-1 .. y0+1, color = black, thickness = 3,scaling=CONSTRAINED): q2 := plot({(a1*sqrt(a2^2+1)-a2*sqrt(a1^2+1))*x/(sqrt(a2^2+1)-sqrt(a1^2+1))+(b1*sqrt(a2^2+1)-b2*sqrt(a1^2+1))/(sqrt(a2^2+1)-sqrt(a1^2+1)), (a1*sqrt(a2^2+1)+a2*sqrt(a1^2+1))*x/(sqrt(a2^2+1)+sqrt(a1^2+1))+(b1*sqrt(a2^2+1)+b2*sqrt(a1^2+1))/(sqrt(a2^2+1)+sqrt(a1^2+1))}, x = x0-1 .. x0+1, y = y0-1 .. y0+1, color = red,scaling=CONSTRAINED): display(q1, q2);

В данном случае график такой (красные линии - биссектрисы):

Изображение

Уравнения биссектрис в явном виде выводил сам:
Изображение

Если коэффициенты a1 := -5; b1 := 1; a2 := 1; b2 := 2, то

Изображение

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/