0 Usuarios y 1 Visitante están viendo este tema.
clc, clear, close allfigure(1)hold onk = 0 ;f = @(x,y) 2*x - y + log(abs(x+y+1)) - k ;fimplicit(f,[-10 10],'b','LineWidth',1.2)g = @(x,y) 2*x - y + log(x+y+1) - k ;fimplicit(g,[-10,10],'r--','LineWidth',1.2)axis equalfigure(2)hold onn = 50;c = linspace(-3,3,n);for k = 1:n f = @(x,y) 2*x - y + log(abs(x+y+1)) - c(k) ; fimplicit(f,[-10,10],'LineWidth',1.2,'Color',k/n*[1 1 1])endaxis equal