2024-06-29 14:03:57 -04:00
|
|
|
/*
|
|
|
|
* <Short Description>
|
|
|
|
* Copyright (C) 2024 Brett Terpstra
|
|
|
|
*
|
|
|
|
* This program is free software: you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This program 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 General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
/*
|
|
|
|
* <Short Description>
|
|
|
|
* Copyright (C) 2024 Brett Terpstra
|
|
|
|
*
|
|
|
|
* This program is free software: you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This program 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 General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
#include <blt/gp/program.h>
|
|
|
|
#include <blt/gp/generators.h>
|
|
|
|
#include <blt/gp/tree.h>
|
|
|
|
#include <blt/std/logging.h>
|
2024-07-03 14:04:48 -04:00
|
|
|
#include <blt/gp/transformers.h>
|
2024-07-03 21:27:57 -04:00
|
|
|
#include <string_view>
|
|
|
|
#include <iostream>
|
2024-06-29 14:03:57 -04:00
|
|
|
|
|
|
|
static constexpr long SEED = 41912;
|
|
|
|
|
2024-07-03 21:27:57 -04:00
|
|
|
|
2024-06-29 14:03:57 -04:00
|
|
|
blt::gp::type_provider type_system;
|
|
|
|
blt::gp::gp_program program(type_system, std::mt19937_64{SEED}); // NOLINT
|
|
|
|
|
2024-07-03 21:27:57 -04:00
|
|
|
blt::gp::operation_t add([](float a, float b) { return a + b; }, "add"); // 0
|
|
|
|
blt::gp::operation_t sub([](float a, float b) { return a - b; }, "sub"); // 1
|
|
|
|
blt::gp::operation_t mul([](float a, float b) { return a * b; }, "mul"); // 2
|
|
|
|
blt::gp::operation_t pro_div([](float a, float b) { return b == 0 ? 0.0f : a / b; }, "div"); // 3
|
2024-06-29 14:03:57 -04:00
|
|
|
|
2024-07-03 21:27:57 -04:00
|
|
|
blt::gp::operation_t op_if([](bool b, float a, float c) { return b ? a : c; }, "if"); // 4
|
|
|
|
blt::gp::operation_t eq_f([](float a, float b) { return a == b; }, "eq_f"); // 5
|
|
|
|
blt::gp::operation_t eq_b([](bool a, bool b) { return a == b; }, "eq_b"); // 6
|
|
|
|
blt::gp::operation_t lt([](float a, float b) { return a < b; }, "lt"); // 7
|
|
|
|
blt::gp::operation_t gt([](float a, float b) { return a > b; }, "gt"); // 8
|
|
|
|
blt::gp::operation_t op_and([](bool a, bool b) { return a && b; }, "and"); // 9
|
|
|
|
blt::gp::operation_t op_or([](bool a, bool b) { return a || b; }, "or"); // 10
|
|
|
|
blt::gp::operation_t op_xor([](bool a, bool b) { return static_cast<bool>(a ^ b); }, "xor"); // 11
|
|
|
|
blt::gp::operation_t op_not([](bool b) { return !b; }, "not"); // 12
|
2024-06-29 14:03:57 -04:00
|
|
|
|
2024-07-03 18:40:21 -04:00
|
|
|
blt::gp::operation_t lit([]() { // 13
|
2024-06-29 14:03:57 -04:00
|
|
|
//static std::uniform_real_distribution<float> dist(-32000, 32000);
|
|
|
|
static std::uniform_real_distribution<float> dist(0.0f, 10.0f);
|
|
|
|
return dist(program.get_random());
|
2024-07-03 21:27:57 -04:00
|
|
|
}, "lit");
|
2024-06-29 14:03:57 -04:00
|
|
|
|
|
|
|
/**
|
|
|
|
* This is a test using multiple types with blt::gp
|
|
|
|
*/
|
|
|
|
int main()
|
|
|
|
{
|
|
|
|
type_system.register_type<float>();
|
|
|
|
type_system.register_type<bool>();
|
|
|
|
|
|
|
|
blt::gp::operator_builder builder{type_system};
|
|
|
|
builder.add_operator(add);
|
|
|
|
builder.add_operator(sub);
|
|
|
|
builder.add_operator(mul);
|
|
|
|
builder.add_operator(pro_div);
|
|
|
|
|
|
|
|
builder.add_operator(op_if);
|
|
|
|
builder.add_operator(eq_f);
|
|
|
|
builder.add_operator(eq_b);
|
|
|
|
builder.add_operator(lt);
|
|
|
|
builder.add_operator(gt);
|
|
|
|
builder.add_operator(op_and);
|
|
|
|
builder.add_operator(op_or);
|
|
|
|
builder.add_operator(op_xor);
|
|
|
|
builder.add_operator(op_not);
|
|
|
|
|
|
|
|
builder.add_operator(lit, true);
|
|
|
|
|
|
|
|
program.set_operations(builder.build());
|
|
|
|
|
|
|
|
blt::gp::ramped_half_initializer_t pop_init;
|
|
|
|
|
|
|
|
auto pop = pop_init.generate(blt::gp::initializer_arguments{program, type_system.get_type<float>().id(), 500, 3, 10});
|
2024-07-03 14:04:48 -04:00
|
|
|
|
|
|
|
// for (auto& tree : pop.getIndividuals())
|
|
|
|
// {
|
|
|
|
// auto value = tree.get_evaluation_value<float>(nullptr);
|
|
|
|
//
|
|
|
|
// BLT_TRACE(value);
|
|
|
|
// }
|
|
|
|
|
|
|
|
blt::gp::crossover_t crossover;
|
|
|
|
|
2024-07-09 00:49:49 -04:00
|
|
|
auto& ind = pop.get_individuals();
|
2024-06-29 14:03:57 -04:00
|
|
|
|
2024-07-03 21:27:57 -04:00
|
|
|
std::vector<float> pre;
|
|
|
|
std::vector<float> pos;
|
|
|
|
blt::size_t errors = 0;
|
|
|
|
BLT_INFO("Pre-Crossover:");
|
2024-07-09 00:49:49 -04:00
|
|
|
for (auto& tree : pop.get_individuals())
|
2024-06-29 14:03:57 -04:00
|
|
|
{
|
2024-07-08 22:20:51 -04:00
|
|
|
auto f = tree.tree.get_evaluation_value<float>(nullptr);
|
2024-07-03 21:27:57 -04:00
|
|
|
pre.push_back(f);
|
|
|
|
BLT_TRACE(f);
|
|
|
|
}
|
|
|
|
|
|
|
|
BLT_INFO("Crossover:");
|
|
|
|
blt::gp::population_t new_pop;
|
2024-07-09 00:49:49 -04:00
|
|
|
while (new_pop.get_individuals().size() < pop.get_individuals().size())
|
2024-07-03 14:04:48 -04:00
|
|
|
{
|
2024-07-03 21:27:57 -04:00
|
|
|
auto& random = program.get_random();
|
2024-07-09 00:49:49 -04:00
|
|
|
std::uniform_int_distribution dist(0ul, pop.get_individuals().size() - 1);
|
2024-07-03 21:27:57 -04:00
|
|
|
blt::size_t first = dist(random);
|
|
|
|
blt::size_t second;
|
|
|
|
do
|
2024-07-03 14:04:48 -04:00
|
|
|
{
|
2024-07-03 21:27:57 -04:00
|
|
|
second = dist(random);
|
|
|
|
} while (second == first);
|
|
|
|
|
2024-07-08 22:20:51 -04:00
|
|
|
auto results = crossover.apply(program, ind[first].tree, ind[second].tree);
|
2024-07-03 21:27:57 -04:00
|
|
|
if (results.has_value())
|
|
|
|
{
|
|
|
|
// bool print_literals = true;
|
|
|
|
// bool pretty_print = false;
|
|
|
|
// bool print_returns = false;
|
|
|
|
// BLT_TRACE("Parent 1: %f", ind[0].get_evaluation_value<float>(nullptr));
|
|
|
|
// ind[0].print(program, std::cout, print_literals, pretty_print, print_returns);
|
|
|
|
// BLT_TRACE("Parent 2: %f", ind[1].get_evaluation_value<float>(nullptr));
|
|
|
|
// ind[1].print(program, std::cout, print_literals, pretty_print, print_returns);
|
|
|
|
// BLT_TRACE("------------");
|
|
|
|
// BLT_TRACE("Child 1: %f", results->child1.get_evaluation_value<float>(nullptr));
|
|
|
|
// results->child1.print(program, std::cout, print_literals, pretty_print, print_returns);
|
|
|
|
// BLT_TRACE("Child 2: %f", results->child2.get_evaluation_value<float>(nullptr));
|
|
|
|
// results->child2.print(program, std::cout, print_literals, pretty_print, print_returns);
|
2024-07-09 03:57:58 -04:00
|
|
|
new_pop.get_individuals().emplace_back(std::move(results->child1));
|
|
|
|
new_pop.get_individuals().emplace_back(std::move(results->child2));
|
2024-07-03 21:27:57 -04:00
|
|
|
} else
|
|
|
|
{
|
|
|
|
switch (results.error())
|
|
|
|
{
|
|
|
|
case blt::gp::crossover_t::error_t::NO_VALID_TYPE:
|
|
|
|
BLT_ERROR("No valid type!");
|
|
|
|
break;
|
|
|
|
case blt::gp::crossover_t::error_t::TREE_TOO_SMALL:
|
|
|
|
BLT_ERROR("Tree is too small!");
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
errors++;
|
2024-07-09 00:49:49 -04:00
|
|
|
new_pop.get_individuals().push_back(ind[first]);
|
|
|
|
new_pop.get_individuals().push_back(ind[second]);
|
2024-07-03 14:04:48 -04:00
|
|
|
}
|
2024-06-29 14:03:57 -04:00
|
|
|
}
|
|
|
|
|
2024-07-03 21:27:57 -04:00
|
|
|
BLT_INFO("Post-Crossover:");
|
2024-07-08 22:20:51 -04:00
|
|
|
for (auto& tree : new_pop.for_each_tree())
|
2024-07-03 21:27:57 -04:00
|
|
|
{
|
|
|
|
auto f = tree.get_evaluation_value<float>(nullptr);
|
|
|
|
pos.push_back(f);
|
|
|
|
BLT_TRACE(f);
|
|
|
|
}
|
|
|
|
|
|
|
|
BLT_INFO("Stats:");
|
|
|
|
blt::size_t eq = 0;
|
|
|
|
for (const auto& v : pos)
|
|
|
|
{
|
|
|
|
for (const auto m : pre)
|
|
|
|
{
|
|
|
|
if (v == m)
|
|
|
|
{
|
|
|
|
eq++;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
BLT_INFO("Equal values: %ld", eq);
|
|
|
|
BLT_INFO("Error times: %ld", errors);
|
2024-07-03 14:04:48 -04:00
|
|
|
|
2024-06-29 14:03:57 -04:00
|
|
|
return 0;
|
|
|
|
}
|