De una forma cuadratica real

> f:=x^2+y^2+z^2+2*x*y+2*x*z+2*y*z;

> rango_signatura(f);