И снова геометрия

[pu4koff]

Сообщение от zumm

МдЭ ребятА, не помогли вы мне на этот раз, пришлось и правда читать матчасть и использовать матрицы...

1. Levsha100 этот способ и рекомендовал.
2. Где матрицы в коде?
3. У Вас поворот фигуры сейчас без матриц реализован? Обычно все эти преобразования делают на матрицах, т.к. оно понятнее и быстрее для множества точек делается.

[zumm]

Что значит где матрица? А поворот по вашему как осуществляется?

[pu4koff]

Сообщение от zumm

Что значит где матрица? А поворот по вашему как осуществляется?

Странная матрица какая-то. Массив какой-то. И зачем поворот для проверки попадения в данном случае тоже непонятно. Странно всё как-то.
В функцию передаётся нормальный квадрат, поворачивается и проверяется попали или нет? Может проще точку повернуть и проверить: попала ли она в неповернутый квадрат?

[DomiNick]

Не знаю жива ли сама тема (чтот не могу найти ), но в Яндексе вродь осталась сохранённая копия - открывается?

[Rapid]

По мне так уровень 7-8 (начало изучения геометрии) класса среднеобразовательной школы.

Матрицы и уравнения фигур туда не входят.

[Snejnaya]

можно "повернуть" квадрат и рассматриваемую точку до горизонтального положения, а дальше по варианту MaTBeu. Это будет быстрее и легче, чем строить уравнения прямых.
Если угол "наклона" квадрата неизвестен его можно найти через скалярное произведение векторов.

[zumm]

Snejnaya, к сожалению, у нас может быть не только квадрат но и прямоугольник. Я уже решил как это сделать, и все работает на матрицах.

PS но все равно спс, сейчас всем хоть как то помогавшим спасибки поставлю.

[Somebody]

Векторное/псевдоскалярное произведения.
Считаются произведения (P[] - вершины выпуклого многоугольника, 0 - заданная точка):
(x[i] - x0) * (y[i+1] - y[i]) - (x[i+1] - x[i]) * (y[i] - y0)
Если они одинакового знака, то точка внутри многоугоьника, если что-то из этого - ноль, то на стороне, иначе вне.

type
	TPoint = record
		x, y: Double;
	end;

function PointInConvexPolygon(const p0: TPoint; const polygon: array of TPoint): Boolean;
const
	prec = 1e-8;
var
	pos, neg: Boolean;
	prod: Double;
	i: Integer;
	p1, p2: ^TPoint;
begin
	pos := false;
	neg := false;
	for i := Low(polygon) to High(polygon) - 1 do
	begin
		p1 := @polygon[i];
		p2 := @polygon[i + 1];
		prod := (p1.x - p0.x) * (p2.y - p1.y) - (p2.x - p1.x) * (p1.y - p0.y);
		pos := pos or (prod > +prec);
		neg := neg or (prod < -prec);
		if not (pos and neg) then
			continue;
		Result := false;
		exit;
	end;
	p1 := @polygon[High(polygon)];
	p2 := @polygon[Low(polygon)];
	prod := (p1.x - p0.x) * (p2.y - p1.y) - (p2.x - p1.x) * (p1.y - p0.y);
	pos := pos or (prod > +prec);
	neg := neg or (prod < -prec);
	Result := not (pos and neg);
end;

Проверял не слишком тщательно, но вроде работает.