Base de reglas para ordenar parcialmente con el metodo de la burbuja, son lentas y parcialmente eficaces.
//////////////////////////////////////////////////////////////////////////////
Set BubSed =
[["Oo·OoºoOº·Ooº·º·",
"oOoºº·O·o·Ooºº·O",
"ºOo·Oº·Oooº·º·Oo",
"·ºOoº·OoOoº·ºOo·",
"·º·oOoºOoºOoO·º·",
"Ooº·º·Ooº·oOº·Oo",
"ºoOo·ºOoºO·oº··O",
"·º·oOoºOoºOo·Oº·",
"oOoºº·O·o·Ooºº·O",
"ºOo·Oº·Oooº·º·Oo",
"·Oo·Ooº·ºOo·ºOoº",
"·º·oOoºOoºOoO·º·",
"Ooº·º·Ooº·oOº·Oo",
"ºoOo·ºOoºO·oº··O",
"·º·oOoºOoºOo·Oº·",
"º·O·o·OoºoOoºº·O",
"oOoº·º·Ooº·º·OoO"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Mezcla de elementos para sedimentar por peso.",BubSed);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set BubUp1 = RulGet(
"º :- · ," + // Agua · sube
"· :- º ;" +
"o :- · ," +
"· :- o ;" +
"O :- · ," +
"· :- O ;" +
"o :- º ," + // Arena º sube, pero bajo el agua
"º :- o ;" +
"O :- º ," +
"º :- O ;" +
"O :- o ," + // Piedrilla o solo supera al pedrusco O
"o :- O ;");
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Reglas que realizan una semiordenacion por peso un conjunto de 4 elementos,
que simula un proceso de sedimentacion.",
BubUp1);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set BubLt1 = RulGet(
"º. :- .º ;" + // Asentamiento lateral al final para no hacer diagonales
"o. :- .o ;" +
"O. :- .O ;" +
"oº :- ºo ;" +
"Oº :- ºO ;" +
"Oo :- oO ;");
//////////////////////////////////////////////////////////////////////////////
PutDescription("Reglas de asentamiento lateral, no del todo eficaces.",
BubLt1);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FILE : bur.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : Base de reglas para ordenar parcialmente con el metodo de la
// burbuja, son lentas y parcialmente eficaces.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set BubSed =
[["Oo·OoºoOº·Ooº·º·",
"oOoºº·O·o·Ooºº·O",
"ºOo·Oº·Oooº·º·Oo",
"·ºOoº·OoOoº·ºOo·",
"·º·oOoºOoºOoO·º·",
"Ooº·º·Ooº·oOº·Oo",
"ºoOo·ºOoºO·oº··O",
"·º·oOoºOoºOo·Oº·",
"oOoºº·O·o·Ooºº·O",
"ºOo·Oº·Oooº·º·Oo",
"·Oo·Ooº·ºOo·ºOoº",
"·º·oOoºOoºOoO·º·",
"Ooº·º·Ooº·oOº·Oo",
"ºoOo·ºOoºO·oº··O",
"·º·oOoºOoºOo·Oº·",
"º·O·o·OoºoOoºº·O",
"oOoº·º·Ooº·º·OoO"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Mezcla de elementos para sedimentar por peso.",BubSed);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set BubUp1 = RulGet(
"º :- · ," + // Agua · sube
"· :- º ;" +
"o :- · ," +
"· :- o ;" +
"O :- · ," +
"· :- O ;" +
"o :- º ," + // Arena º sube, pero bajo el agua
"º :- o ;" +
"O :- º ," +
"º :- O ;" +
"O :- o ," + // Piedrilla o solo supera al pedrusco O
"o :- O ;");
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Reglas que realizan una semiordenacion por peso un conjunto de 4 elementos,
que simula un proceso de sedimentacion.",
BubUp1);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set BubLt1 = RulGet(
"º. :- .º ;" + // Asentamiento lateral al final para no hacer diagonales
"o. :- .o ;" +
"O. :- .O ;" +
"oº :- ºo ;" +
"Oº :- ºO ;" +
"Oo :- oO ;");
//////////////////////////////////////////////////////////////////////////////
PutDescription("Reglas de asentamiento lateral, no del todo eficaces.",
BubLt1);
//////////////////////////////////////////////////////////////////////////////
ChRules.Iterative programa de aplicacion iterativa de reglas de areas de caracteres
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio