Update quiQuadrado.R