TParticao Class Reference

#include <TeSkaterFunctions.h>

---

Detailed Description

Definition at line 26 of file TeSkaterFunctions.h.

Public Member Functions
void	BFS_Salva (TeSTElementSet &regSet, string name)
void	Particiona (int, long)
	TParticao (TSkaterGrafo *)
	~TParticao ()
Data Fields
TFilaR *	Clusters
TFilaDouble *	QuedaDesv
Private Member Functions
double	BFS_Desvio (int, int, double *)
void	BFS_Main (TFilaR::Item_ptr)
double *	BFS_Media (int, int, long *)
double	Dist (int, double *)
Private Attributes
TSkaterGrafo *	Grafo
int	Num_Grupos
long	PopMin

---

Constructor & Destructor Documentation

TParticao::TParticao

(

TSkaterGrafo *

G

)

Definition at line 14 of file TeSkaterFunctions.cpp.

References Clusters, Grafo, TFilaR::Insere(), Num_Grupos, QuedaDesv, and TeMAXFLOAT.

                                   {
  Grafo=G;
  QuedaDesv = new TFilaDouble;
  Clusters = new TFilaR;
  Clusters->Insere(0,TeMAXFLOAT,(long)TeMAXFLOAT);
  Num_Grupos = 1;
};

TParticao::~TParticao

(

)

Definition at line 23 of file TeSkaterFunctions.cpp.

References Clusters.

                     {
  delete Clusters;
};

---

Member Function Documentation

double TParticao::BFS_Desvio	(	int	Raiz,
		int	Exceto,
		double *	Media
	)			[private]

Calculo do desvio

Insere Filhos na Lista

Definition at line 70 of file TeSkaterFunctions.cpp.

References Dist(), Grafo, TFilaInt::Insere(), TSkaterGrafo::MyGrafo, TFilaInt::Retira(), and TFilaInt::Size().

Referenced by BFS_Main().

                                                              {
 double Acc=0;
 double Peso;// Usado na busca dos filhos
 int Indice; // Usado na busca dos filhos
 int Atual; // No sendo visitado
 TFilaInt *Fila;

 Fila = new TFilaInt;
 Fila->Insere(Raiz);

 while (Fila->Size()){
   Atual = Fila->Retira();

   /** Calculo do desvio **/
   Acc += Dist(Atual,Media);

   /** Insere Filhos na Lista **/
   Grafo->MyGrafo->Nos[Atual].ArViz->Adjacente(&Indice,&Peso);
   while(Indice != -1){
      if (Indice != Exceto)
        Fila->Insere(Indice);
      Grafo->MyGrafo->Nos[Atual].ArViz->Adjacente(&Indice,&Peso);
   };
 };
 return Acc;
};

void TParticao::BFS_Main

(

TFilaR::Item_ptr

Item

)

[private]

Definition at line 110 of file TeSkaterFunctions.cpp.

References BFS_Desvio(), BFS_Media(), Grafo, TFilaInt::Insere(), TSkaterGrafo::MyGrafo, PopMin, TFilaInt::Retira(), TFilaInt::Size(), and TeMAXFLOAT.

Referenced by Particiona().

                                            {//Raiz,Populacao,Desvio
 //int i=0;
 int Atual; // No sendo visitado
 double Peso;// Usado na busca dos filhos
 int Indice=0; // Usado na busca dos filhos
 double *M1,*M2,D1,D2;
 long Pop1,Pop2;
 double D_Min = TeMAXFLOAT;
 double DMin1;
 double DMin2;
 long Raiz1,PopMin1;
 long Raiz2,PopMin2;
 TFilaInt *Fila;

 if (!Item->Desvio) return;

 Fila = new TFilaInt;
 Fila->Insere(Item->Raiz);

 M1 = new double[Grafo->MyGrafo->Num_Var];
 M2 = new double[Grafo->MyGrafo->Num_Var];

 while (Fila->Size()){
   Atual = Fila->Retira();
    //i++;
   /* Insere Filhos na fila */
     Grafo->MyGrafo->Nos[Atual].ArViz->AdjacenteB(&Indice,&Peso);
     while (Indice != -1){
      Fila->Insere(Indice);
      M1 = BFS_Media(Indice,0,&Pop1);
      D1 = BFS_Desvio(Indice,0,M1);

      M2 = BFS_Media(Item->Raiz,Indice,&Pop2);
      D2 = BFS_Desvio(Item->Raiz,Indice,M2);
      if (((D1+D2) < D_Min) && (Pop1 > PopMin) && (Pop2 > PopMin)) { //encontrou um minimo
           D_Min = (D1+D2);
           Raiz1 = Indice;
           Raiz2 = Atual;
           PopMin1 = Pop1;
           PopMin2 = Pop2;
           DMin1 = D1;
           DMin2 = D2;
      };
      Grafo->MyGrafo->Nos[Atual].ArViz->AdjacenteB(&Indice,&Peso);
     };
   };
   /*Atualizacao dos dados*/
if (D_Min != TeMAXFLOAT){
   Item->D1 = DMin1;
   Item->D2 = DMin2;
   Item->P1 = PopMin1;
   Item->P2 = PopMin2;
   Item->R1 = Raiz1;
   Item->R2 = Raiz2;
   Item->Queda = Item->Desvio - DMin1 - DMin2;
 } else
   Item->Desvio = 0;

   delete Fila;
   delete M1;
   delete M2;
};

double * TParticao::BFS_Media	(	int	Raiz,
		int	Exceto,
		long *	Populacao
	)			[private]

Calculo da Media

Insere Filhos na Lista

Definition at line 28 of file TeSkaterFunctions.cpp.

References Grafo, TFilaInt::Insere(), TSkaterGrafo::MyGrafo, TFilaInt::Retira(), and TFilaInt::Size().

Referenced by BFS_Main().

                                                                {
 double *Acc;
 double Peso;// Usado na busca dos filhos
 int Indice; // Usado na busca dos filhos
 int i;
 int n=0;
 int Atual; // No sendo visitado
 TFilaInt *Fila;

 Acc = new double[Grafo->MyGrafo->Num_Var];
 for(i=0;i<Grafo->MyGrafo->Num_Var;i++)
   Acc[i] =0;
 *Populacao = 0;

 Fila = new TFilaInt;
 Fila->Insere(Raiz);

 while (Fila->Size()){
   Atual = Fila->Retira();

   /** Calculo da Media **/
   n++;
   for(i=0;i<Grafo->MyGrafo->Num_Var;i++)
    Acc[i] += Grafo->MyGrafo->Nos[Atual].Variaveis[i];
   *Populacao = *Populacao + Grafo->MyGrafo->Nos[Atual].Populacao;

   /** Insere Filhos na Lista **/
   Grafo->MyGrafo->Nos[Atual].ArViz->Adjacente(&Indice,&Peso);
   while(Indice!=-1){
      if (Indice != Exceto)
        Fila->Insere(Indice);
      Grafo->MyGrafo->Nos[Atual].ArViz->Adjacente(&Indice,&Peso);
   };
 };
 for(i=0;i<Grafo->MyGrafo->Num_Var;i++)
   Acc[i] /=n;

 delete Fila;
 return Acc;
};

void TParticao::BFS_Salva	(	TeSTElementSet &	regSet,
		string	name
	)

Insere Filhos na Lista

Definition at line 299 of file TeSkaterFunctions.cpp.

References TeBaseSTInstanceSet< GeometryType, TimeType, InstanceType >::addProperty(), Clusters, TeBaseSTInstanceSet< GeometryType, TimeType, InstanceType >::getAttributeIndex(), TeBaseSTInstanceSet< GeometryType, TimeType, InstanceType >::getSTInstance(), Grafo, TFilaInt::Insere(), TSkaterGrafo::MyGrafo, TeAttributeRep::name_, TFilaR::Proximo(), TFilaInt::Retira(), TeBaseSTInstance< GeometryType, TimeType >::setPropertyValue(), TFilaInt::Size(), Te2String(), TeINT, and TeAttributeRep::type_.

Referenced by TeSkaterFunction().

                                                             {
 double Peso;// Usado na busca dos filhos
 int Indice; // Usado na busca dos filhos
 int Atual; // No sendo visitado
 int i=1;
 TFilaInt *Fila;
 int Raiz;

 TeAttributeRep rep;
 rep.name_ = name;
 rep.type_ = TeINT;
 regSet.addProperty(rep, "");
 int index = regSet.getAttributeIndex(name); //get the index of the inserted attribute

 Raiz=Clusters->Proximo();
 while (Raiz != -1){

   string value = Te2String(i);

   Fila = new TFilaInt;
   Fila->Insere(Raiz);

   while (Fila->Size()){
     Atual = Fila->Retira();

     /** Insere Filhos na Lista **/
     Grafo->MyGrafo->Nos[Atual].ArViz->Adjacente(&Indice,&Peso);
     while(Indice != -1)
         {
        Fila->Insere(Indice);
        Grafo->MyGrafo->Nos[Atual].ArViz->Adjacente(&Indice,&Peso);
     };
     //set the attribute in the set
         TeSTInstance* ins = regSet.getSTInstance(Grafo->MyGrafo->Nos[Atual].Label);
         if(ins)
                ins->setPropertyValue(index, value); 
   }
   i++;
   Raiz=Clusters->Proximo();
  }
}

double TParticao::Dist	(	int	Atual,
		double *	Media
	)			[private]

Definition at line 98 of file TeSkaterFunctions.cpp.

References Grafo, and TSkaterGrafo::MyGrafo.

Referenced by BFS_Desvio().

                                              {
  int i;
  double Acc=0;

  for(i=0;i<Grafo->MyGrafo->Num_Var;i++)
    Acc += (Grafo->MyGrafo->Nos[Atual].Variaveis[i] - Media[i]) *
           (Grafo->MyGrafo->Nos[Atual].Variaveis[i] - Media[i]);
  return Acc;
};

void TParticao::Particiona	(	int	N_Grp,
		long	Pop
	)

Definition at line 174 of file TeSkaterFunctions.cpp.

References BFS_Main(), Clusters, Grafo, TFilaDouble::Insere(), TFilaR::Insere(), TFilaR::mFila, TSkaterGrafo::MyGrafo, Num_Grupos, PopMin, TFilaR::Proximo(), QuedaDesv, and TFilaR::Retira().

Referenced by TeSkaterFunction().

                                             {
  int i;
  int Raiz;
  int Sai;
  double QMax;
  int R1,R2;
  double D1,D2;
  long P1,P2;
  TFilaR::Item_ptr Item;
  double Acc;

  PopMin = Pop;

  if (Pop == -1){ // Nao levar em conta populacao
    while (N_Grp != Num_Grupos){
      Item = Clusters->mFila->Head;
      for(i=0;i<Clusters->mFila->Size;i++){
        if (!Item->Queda) BFS_Main(Item);
        Item = Item->Proximo;
      };
      Item = Clusters->mFila->Head;
      QMax = 0;
      for(i=0;i<Clusters->mFila->Size;i++){
        if (Item->Queda > QMax){
          QMax = Item->Queda;
          Raiz = Item->Raiz;
          R1 = Item->R1;
          R2 = Item->R2;
          D1 = Item->D1;
          D2 = Item->D2;
          P1 = Item->P1;
          P2 = Item->P2;
        };
        Item = Item->Proximo;
      };
     Grafo->MyGrafo->Nos[R2].ArViz->Retira(R1);
     Num_Grupos++;
     Clusters->Insere(R1,D1,P1);
     Clusters->Retira(Raiz);
     Clusters->Insere(Raiz,D2,P2);
     Acc = 0;
     while (Clusters->Proximo() != -1) Acc += Clusters->mFila->Atual->Desvio;
     QuedaDesv->Insere(Acc);
    };
  } else
    if (N_Grp == 0)
  {
    Sai=0;
    while (!Sai){
      Item = Clusters->mFila->Head;
      for(i=0;i<Clusters->mFila->Size;i++){
        if (!Item->Queda) BFS_Main(Item);
        Item = Item->Proximo;
      };

      Item = Clusters->mFila->Head;
      QMax = 0;
      Sai = 1;
      for(i=0;i<Clusters->mFila->Size;i++){
        if (Item->Desvio) Sai = 0;
        if (Item->Queda > QMax){
          QMax = Item->Queda;
          Raiz = Item->Raiz;
          R1 = Item->R1;
          R2 = Item->R2;
          D1 = Item->D1;
          D2 = Item->D2;
          P1 = Item->P1;
          P2 = Item->P2;
        };
        Item = Item->Proximo;
      };
     if (!Sai){
       Grafo->MyGrafo->Nos[R2].ArViz->Retira(R1);
       Num_Grupos++;
       Clusters->Insere(R1,D1,P1);
       Clusters->Retira(Raiz);
       Clusters->Insere(Raiz,D2,P2);
       Acc = 0;
       while (Clusters->Proximo() != -1) Acc += Clusters->mFila->Atual->Desvio;
       QuedaDesv->Insere(Acc);
      };
    };//while
  } else { // Grupos com populacao restringida
    Sai=0;
    while (!Sai){
      Item = Clusters->mFila->Head;
      for(i=0;i<Clusters->mFila->Size;i++){
        if (!Item->Queda) BFS_Main(Item);
        Item = Item->Proximo;
      };

      Item = Clusters->mFila->Head;
      QMax = 0;
      Sai = 1;
      for(i=0;i<Clusters->mFila->Size;i++){
        if (Item->Desvio) Sai = 0;
        if (Item->Queda > QMax){
          QMax = Item->Queda;
          Raiz = Item->Raiz;
          R1 = Item->R1;
          R2 = Item->R2;
          D1 = Item->D1;
          D2 = Item->D2;
          P1 = Item->P1;
          P2 = Item->P2;
        };
        Item = Item->Proximo;
      };
     if (!Sai){
       Grafo->MyGrafo->Nos[R2].ArViz->Retira(R1);
       Num_Grupos++;
       Clusters->Insere(R1,D1,P1);
       Clusters->Retira(Raiz);
       Clusters->Insere(Raiz,D2,P2);
       Acc = 0;
       while (Clusters->Proximo() != -1) Acc += Clusters->mFila->Atual->Desvio;
       QuedaDesv->Insere(Acc);
       if (Num_Grupos >= N_Grp) Sai = 1;
      };
    };//while
 }//else
};

---

Field Documentation

TFilaR* TParticao::Clusters

Definition at line 36 of file TeSkaterFunctions.h.

Referenced by BFS_Salva(), Particiona(), TParticao(), and ~TParticao().

TSkaterGrafo* TParticao::Grafo [private]

Definition at line 32 of file TeSkaterFunctions.h.

Referenced by BFS_Desvio(), BFS_Main(), BFS_Media(), BFS_Salva(), Dist(), Particiona(), and TParticao().

int TParticao::Num_Grupos [private]

Definition at line 34 of file TeSkaterFunctions.h.

Referenced by Particiona(), and TParticao().

long TParticao::PopMin [private]

Definition at line 33 of file TeSkaterFunctions.h.

Referenced by BFS_Main(), and Particiona().

TFilaDouble* TParticao::QuedaDesv

Definition at line 39 of file TeSkaterFunctions.h.

Referenced by Particiona(), TeSkaterFunction(), and TParticao().

---

The documentation for this class was generated from the following files:

• TeSkaterFunctions.h
• TeSkaterFunctions.cpp

---