Base de reglas y area para probar el comportamiento aleatorio del motor recursivo y aleatorios de reglas de rectangulos de caracteres. Permite comprobar que el comportamiento es realmente aleatorio tanto en la aplicacion de las reglas como sobre las subareas de aplicacion.
//////////////////////////////////////////////////////////////////////////////
Set RndAre = AreaBuild(
[["--------",
"-00--00-",
"-00--00-",
"--------",
"-00--00-",
"-00--00-",
"--------"]]);
//////////////////////////////////////////////////////////////////////////////
PutDescription("Area para probar el comportamiento aleatorio.", RndAre);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set RndRul = SetOfSet(
RuleBuild([["00 => 11",
"00 11"]]), // De cero a uno
RuleBuild([["00 => 22",
"00 22"]]), // De cero a dos
RuleBuild([["00 => 33",
"00 33"]]), // De cero a tres
RuleBuild([["00 => 44",
"00 44"]])); // De cero a tres
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas para probar el comportamiento aleatorio.",
RndAre);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FILE : rnd.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : Base de reglas y area para probar el comportamiento aleatorio del
// motor recursivo y aleatorios de reglas de rectangulos de caracteres.
// Permite comprobar que el comportamiento es realmente aleatorio tanto en la
// aplicacion de las reglas como sobre las subareas de aplicacion.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set RndAre = AreaBuild(
[["--------",
"-00--00-",
"-00--00-",
"--------",
"-00--00-",
"-00--00-",
"--------"]]);
//////////////////////////////////////////////////////////////////////////////
PutDescription("Area para probar el comportamiento aleatorio.", RndAre);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set RndRul = SetOfSet(
RuleBuild([["00 => 11",
"00 11"]]), // De cero a uno
RuleBuild([["00 => 22",
"00 22"]]), // De cero a dos
RuleBuild([["00 => 33",
"00 33"]]), // De cero a tres
RuleBuild([["00 => 44",
"00 44"]])); // De cero a tres
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas para probar el comportamiento aleatorio.",
RndAre);
//////////////////////////////////////////////////////////////////////////////
ChRules.RandRecursive programa de aplicacion de reglas de rectangulos de caracteres
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio