14e9a7f678
git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@38 331e1502-861f-0410-8da2-ba01fb791d7f
165 lines
3.6 KiB
C++
Executable file
165 lines
3.6 KiB
C++
Executable file
// -*- 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
|