How to find point of intersection ?

I have 4 coordinate and need to find the point of intersection. Can someone share the coding to find the intersection point and to display the point in graph below. Thank You.

Answer 1

[Star Strider]

Try this:

blue = [1 5; 1 5];                      % [x1 x2; y1 y2] 
red = [1 5; 3 2];                       % [x1 x2; y1 y2] 

Bb = [blue(1,:)' ones(2,1)] \ blue(2,:)'
Br = [red(1,:)' ones(2,1)] \ red(2,:)'

xint = (Br(2) - Bb(2)) / (Bb(1) - Br(1))
yint = [xint 1] * Bb

figure
plot(blue(1,:)', blue(2,:)', '-b')
hold on
plot(red(1,:), red(2,:), '-r')
plot(xint, yint, 'pg', 'MarkerSize',10)
hold off

producing:

xint =
    2.6000

yint =
    2.6000

[thineesh Vijayakumar]

Thank You :)

[thineesh Vijayakumar]

plot(blue(1,:)', blue(2,:)', '-b')

hold on

plot(red(1,:), red(2,:), '-r')

plot(xint, yint, 'pg', 'MarkerSize',10)

hold off

what mean 'pg' ? thank you

[Star Strider]

As always, my pleasure!

The 'pg' in the plot call denotes a green five-pointed star (‘pentagram’) marker. See the documentation section on Marker (link) for details.

Answer 2

[darova]