Matlab - dibujar la trayectoria que siguen la interseccion de dos curvas

clear all

close all

syms x y

% e1=4*x+y-3

% e2=3*x-2*y-4

% https://www.lawebdelprogramador.com/foros/Matlab/1673847-dibujar-la-trayectoria-que-siguen-la-interseccion-de-dos-curvas.html#last

for i=-40:1:40

e1=poly2sym([i 0],x)+poly2sym([1,0],y)+-3;

e2=poly2sym([3 0],x)+poly2sym([-2,0],y)+-4;

s=solve(e1,e2);

xs=s.x;

ys=s.y;

y1=solve(e1,y);

M1=coeffs(y1);

m1=M1(end);

y2=solve(e2,y);

M2=coeffs(y2);

m2=M2(end);

E1=inline(y1);

X1=[-10  10];

Y1=E1(X1);

hold on

plot(X1,Y1)

E2=inline(y2);

X2=[-10  10];

Y2=E2(X2);

plot(X2,Y2)

plot(xs,ys,'*')

grid on

pause(0.3)

end

hold off

>> interseccion