Question

find the vector from origin to the midpoint of the vector p1p2 joining the points p1 (4 3) and p2 ( 8 -5 )​

Answer 1

Answer:

Step-by-step explanation:

Var

V :Vector; ...

V.x := p2X - p1X;   { your DeltaX }

V.y := p2Y - p1Y;   { your DeltaY }

V.z := 0;

Ang := Vec2Ang(V);

You'll get angles in degrees in the range of +-180. If you want values from 0-360, then test for a negative angle and add 360 to it.

if (Ang<0) then Ang := Ang + 360;

If you are looking for the angle between two vectors, the answer is a little more complicated, but easily done. Write back for more details.