Nothing
boundedSBXover <-
function(parent_chromosome,lowerBounds,upperBounds,cprob,mu){
popSize=nrow(parent_chromosome);
varNo=ncol(parent_chromosome);
child <- parent_chromosome;
p <- 1;
for (i in 1:(popSize/2)) {
#if the random probability is less than cprob, then crossover
if (runif(1) < cprob) {
for (j in 1:varNo) {
parent1 <- child[p,j];
parent2 <- child[p+1,j];
yl <- lowerBounds[j];
yu <- upperBounds[j];
# SBX (Simulated Binary Crossover)
rnd = runif(1);
if (rnd <= 0.5) { # Variable selected
if (abs(parent1 - parent2) > 0.000001) {
if (parent2 > parent1){
y2 <- parent2;
y1 <- parent1;
} else {
y2 <- parent1;
y1 <- parent2;
}
# Find beta value
if((y1 - yl) > (yu - y2)) {
beta = 1.0 + (2.0*(yu-y2)/(y2-y1));
} else {
beta = 1.0 + (2.0*(y1-yl)/(y2-y1));
}
# Fine alpha
alpha = 2.0 - (beta^(-(1.0+mu)));
rnd = runif(1);
if (rnd <= 1.0/alpha) {
alpha = alpha*rnd;
betaq = alpha^(1.0/(1.0+mu));
} else { # rnd > 1.0/alpha
alpha = alpha*rnd;
alpha = 1.0/(2.0-alpha);
betaq = alpha^(1.0/(1.0+mu));
}
# Generating two children
child1 = 0.5*((y1+y2)-betaq*(y2-y1));
child2 = 0.5*((y1+y2)+betaq*(y2-y1));
} else{ # abs(parent1 - parent2) <= 0.000001
betaq = 1.0;
y1 = parent1;
y2 = parent2;
# Generating two children
child1 = 0.5*((y1+y2)-betaq*(y2-y1));
child2 = 0.5*((y1+y2)+betaq*(y2-y1));
} # abs(parent1 - parent2) ends here
if (child1 > yu) {
child1 = yu;
} else if (child1 < yl) {
child1 = yl;
}
if (child2 > yu) {
child2 = yu;
} else if (child2 < yl) {
child2 = yl;
}
} else { # Variable NOT selected
# Copying parents to children
child1 = parent1;
child2 = parent2;
} # Variable selection ends here
child[p,j] <- child1;
child[p+1,j] <- child2;
} # next j (var)
} # Xover ends here
p <- p + 2;
} # next i
return(child);
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.