function FIGURAS(varargin)
close all
LUX=['Incidente ','Reflejada ','Refractada']; % TRAPI TITLE
for J=1:nargin
    E=varargin{J};
    [caracter,A,B,d]=CARACTER(E);
    if abs(A)<1e-10
        A=0;
    end
    if abs(B)<1e-10
        B=0;
    end
    v=(1+10*(J-1)):10*J;    % TRAPI TITLE
    RGB=eye(3);             % TRAPI COLOR
    if (A~=0)&&(B~=0)
        subplot(1,3,J)
        hold on
        x=linspace(-A,A,500);
        y=linspace(-B,B,500);
        plot(x,zeros(length(x)),'Linestyle','-.','Linewidth',.8,'Color',[0 0 0])
        plot(zeros(length(y)),y,'Linestyle','-.','Linewidth',.8,'Color',[0 0 0])
        b=-2*(B/A)*x*cos(d);
        c=((B*x/A).^2-B*B*sin(d)*sin(d));
        y1=real(.5*(-b-sqrt(b.^2-4*c)));
        y2=real(.5*(-b+sqrt(b.^2-4*c)));
        plot(x,y1,'Linewidth',3,'Color',RGB(J,:))
        axis equal
        xlim([-A,A])
        ylim([-B,B])
        plot(x,y2,'Linewidth',3,'Color',RGB(J,:))
        title(['Luz ',LUX(v)])
        xlabel(['Pol. ',caracter])
        ylabel('E perp.')
        box on
        hold off
    elseif (A==0)&&(B~=0)
        subplot(1,3,J)
        hold on
        y=linspace(-B,B,500);
        x=y;
        plot(x,zeros(length(x)),'Linestyle','-.','Linewidth',.8,'Color',[0 0 0])
        plot(zeros(length(y)),y,'Linewidth',3,'Color',RGB(J,:))
        axis equal
        xlim([-B,B])
        ylim([-B,B])
        title(['Luz ',LUX(v)])
        xlabel(['Pol. ',caracter])
        ylabel('E perp.')
        box on
        hold off
    elseif (B==0)&&(A~=0)
        subplot(1,3,J)
        hold on
        x=linspace(-A,A,500);
        y=x;
        plot(zeros(length(y)),y,'Linestyle','-.','Linewidth',.8,'Color',[0 0 0])
        plot(x,zeros(length(x)),'Linewidth',3,'Color',RGB(J,:))
        axis equal
        xlim([-A,A])
        ylim([-A,A])
        title(['Luz ',LUX(v)])
        xlabel(['Pol. ',caracter])
        ylabel('E perp.')
        box on
        hold off
    elseif (A==0)&&(B==0)
        disp('************')
        disp('No hay LUZ REFLEJADA')
    end
end
end