git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@89 331e1502-861f-0410-8da2-ba01fb791d7f

This commit is contained in:
legrand 2006-12-20 10:50:21 +00:00
commit f796cbf249
184 changed files with 0 additions and 41792 deletions

View file

@ -1,165 +0,0 @@
// -*- mode: c++; c-indent-level: 4; c++-member-init-indent: 8; comment-column: 35; -*-
// "peoParaSGATransform.h"
// (c) OPAC Team, LIFL, August 2005
/* This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Contact: cahon@lifl.fr
*/
#ifndef __peoParaSGATransform_h
#define __peoParaSGATransform_h
#include "peoTransform.h"
#include "thread.h"
#include "mess.h"
#include "peo_debug.h"
extern int getNodeRank ();
template <class EOT> class peoParaSGATransform : public peoTransform <EOT> {
public :
using peoTransform <EOT> :: requestResourceRequest;
using peoTransform <EOT> :: resume;
using peoTransform <EOT> :: stop;
using peoTransform <EOT> :: getOwner;
/* Ctor */
peoParaSGATransform (eoQuadOp <EOT> & __cross,
double __cross_rate,
eoMonOp <EOT> & __mut,
double __mut_rate);
void operator () (eoPop <EOT> & __pop);
void packData ();
void unpackData ();
void execute ();
void packResult ();
void unpackResult ();
void notifySendingData ();
void notifySendingAllResourceRequests ();
private :
eoQuadOp <EOT> & cross;
double cross_rate;
eoMonOp <EOT> & mut;
double mut_rate;
unsigned idx;
eoPop <EOT> * pop;
EOT father, mother;
unsigned num_term;
};
template <class EOT>
peoParaSGATransform <EOT> :: peoParaSGATransform (eoQuadOp <EOT> & __cross,
double __cross_rate,
eoMonOp <EOT> & __mut,
double __mut_rate
) : cross (__cross),
cross_rate (__cross_rate),
mut (__mut),
mut_rate (__mut_rate) {
}
template <class EOT>
void peoParaSGATransform <EOT> :: packData () {
pack (idx);
:: pack (pop -> operator [] (idx ++));
:: pack (pop -> operator [] (idx ++));
}
template <class EOT>
void peoParaSGATransform <EOT> :: unpackData () {
unpack (idx);
:: unpack (father);
:: unpack (mother);
}
template <class EOT>
void peoParaSGATransform <EOT> :: execute () {
if (rng.uniform () < cross_rate)
cross (father, father);
if (rng.uniform () < mut_rate)
mut (father);
if (rng.uniform () < mut_rate)
mut (mother);
}
template <class EOT>
void peoParaSGATransform <EOT> :: packResult () {
pack (idx);
:: pack (father);
:: pack (mother);
}
template <class EOT>
void peoParaSGATransform <EOT> :: unpackResult () {
unsigned sidx;
unpack (sidx);
:: unpack (pop -> operator [] (sidx ++));
:: unpack (pop -> operator [] (sidx));
num_term += 2;
if (num_term == pop -> size ()) {
getOwner () -> setActive ();
resume ();
}
}
template <class EOT>
void peoParaSGATransform <EOT> :: operator () (eoPop <EOT> & __pop) {
printDebugMessage ("performing the parallel transformation step.");
pop = & __pop;
idx = 0;
num_term = 0;
requestResourceRequest (__pop.size () / 2);
stop ();
}
template <class EOT>
void peoParaSGATransform <EOT> :: notifySendingData () {
}
template <class EOT>
void peoParaSGATransform <EOT> :: notifySendingAllResourceRequests () {
getOwner () -> setPassive ();
}
#endif