Математический форум 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/ |