function [caracter,E01,E02,d]=CARACTER(E) % E=[abs(E1)*exp(1i*d1);abs(E2)*exp(1i*d2)] % MATLAB: -pi0) if abs(d-pi/2)<3*eps if (E01==E02) caracter='Circular D'; else caracter='Elíp. centrada D'; end else caracter='Elíp. general D'; end else if abs(d+pi/2)<3*eps if abs(E01-E02)<3*eps caracter='Circular L'; else caracter='Elíp. centrada L'; end else caracter='Elíp. general L'; end end end