clear
% ecuación general de la recta : ax+by+c=0
syms x y %declaramos las variables simbólicas x y
L1=-2*x+6*y-12; % introducimos la ecuación recta L1
P=[2,3]; % introducimos el punto de pase de la recta L2
X=coeffs(L1,x); a=X(2); % Extraemos el coeficiente de x de la recta L1
Y=coeffs(L1,y); b=Y(2); % Extraemos el coeficiente de y de la recta L1
m=-a/b; % hallamos la pendiente de la recta L1
L2=y-P(2)-(-1/m)*(x-P(1)) %Hallamos la ecuación de la recta L2
ezplot(L1); %graficamos la recta L1
hold on %agregamos la función hold on para poder agregar otra gráfica a la figura activa
ezplot(L2) % %graficamos la recta L2
plot(P(1),P(2),'*') % graficamos el punto de pase P de la recta L2
grid on %agregamos el mallado a la gráfica.
axis('image') % dimensionamos la figura activa para poder exportar
hold off % desactiva el agregar más gráficas a la ventana de figura activa.