Método numérico para las configuraciones de equilibrio de un potencial volumétrico de Maier-Saupe en un modelo de tensor Q de un cristal líquido nemático anisotrópico