Последний раз редактировалось Vitalius 19.07.2014, 21:15, всего редактировалось 6 раз(а).
Вот скрипт на Mathematica-е, с помощью которого можно изобразить кривые 4 порядка о чьих точек пересечения интересуемся (Оффтоп)
Код: dkx[r_, ra_, rb_] := {{2 r[[1]], 1, 0, 0}, {r[[1]]^2 + r[[2]]^2, r[[1]], r[[2]], 1}, {ra[[1]]^2 + ra[[2]]^2, ra[[1]], ra[[2]], 1}, {rb[[1]]^2 + rb[[2]]^2, rb[[1]], rb[[2]], 1}}; dky[r_, ra_, rb_] := {{2 r[[2]], 0, 1, 0}, {r[[1]]^2 + r[[2]]^2, r[[1]], r[[2]], 1}, {ra[[1]]^2 + ra[[2]]^2, ra[[1]], ra[[2]], 1}, {rb[[1]]^2 + rb[[2]]^2, rb[[1]], rb[[2]], 1}}; GTUVW[r_, rT_, rU_, rV_, rW_] := Det[dkx[r, rT, rU]] Det[dky[r, rV, rW]] - Det[dky[r, rT, rU]] Det[dkx[r, rV, rW]]; r = {x, y}; rP = {-11, -7}; rQ = {1, -8}; rR = {4, 10}; rS = {-20, 13}; ContourPlot[{GTUVW[r, rP, rQ, rR, rS] == 0, GTUVW[r, rQ, rR, rS, rP] == 0}, {x, -100, 1000}, {y, -450, 550}, ContourStyle -> {Red, Blue}, PlotPoints -> 50] В примере координаты точек  ,  ,  и  те же самые, что и у _Ivana - соответственно  ,  ,  и  . Кривые замкнуты. Область изменения  и  в примере выбрал так, чтобы были видны все две кривые. Само общее изображение выглядит так:  Вот и интересующая нас область пересечения двух крив: без четырёхугольника  вместе с четырёхугольником  И напоследок вся область пересечения двух крив (синяя кривая  видна полностью): 
|