850b834510
git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@127 331e1502-861f-0410-8da2-ba01fb791d7f
170 lines
3.6 KiB
C++
Executable file
170 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 "core/thread.h"
|
|
#include "core/messaging.h"
|
|
#include "core/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;
|
|
|
|
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( mother, father );
|
|
|
|
if( rng.uniform() < mut_rate ) mut( mother );
|
|
if( rng.uniform() < mut_rate ) mut( father );
|
|
}
|
|
|
|
|
|
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
|