Racipiente (pantano o area, base de hechos) y reglas de la vida (base de reglas con reglas de escritura) para un automata celular.
Constantes
Set CelP31Set CelRb1Set CelRb2//////////////////////////////////////////////////////////////////////////////
Set CelP31 =
[["----********************----",
"---*····················*---",
"--*······················*--",
"-*···········O············*-",
"*··········O···O···········*",
"*············O·············*",
"*······O···O···O···O·······*",
"*····O···O···O···O···O·····*",
"*······O···O···O···O·······*",
"*············O·············*",
"*··········O···O···········*",
"-*···········O············*-",
"--*······················*--",
"---*····················*---",
"----********************----"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Recipiente para el automatar celular.", CelP31);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CelRb1 = RulGet(
"O·O :- ·O· ," +
"··· :- O·O ;" + // Huevo por reproduccion hacia abajo con movimiento
"··· :- O·O ," +
"O·O :- ·O· ;" + // Huevo por reproduccion hacia arriba con movimiento
"O· :- ·O ," +
"·· :- O· ," +
"O· :- ·O ;" + // Huevo por reproduccion lateral con movimiento
"·O :- O· ," +
"·· :- ·O ," +
"·O :- O· ;" + // Huevo por reproduccion lateral con movimiento
"OO :- ·O ," +
"O· :- O· ;" + // Muerte por exceso de poblacion, muera la apretada
"OO :- O· ," +
"·O :- ·O ;" + // Muerte por exceso de poblacion, muera la apretada
"·O :- ·O ," +
"OO :- O· ;" + // Muerte por exceso de poblacion, muera la apretada
"O· :- O· ," +
"OO :- ·O ;" + // Muerte por exceso de poblacion, muera la apretada
"O :- O ," +
"O :- · ," +
"O :- O ;" + // Muerte por exceso de poblacion, muera la apretada
"OOO :- O·O ;" + // Muerte por exceso de poblacion, muera la apretada
"O* :- ·* ;" + // Muerte al irse tocar la membrana exterior
"*O :- *· ;" + // Muerte al irse tocar la membrana exterior
"O :- · ," +
"* :- * ;" + // Muerte al irse tocar la membrana exterior
"* :- * ," +
"O :- · ;" + // Muerte al irse tocar la membrana exterior
"··· :- ··· ," +
"·O· :- ··· ," +
"··· :- ··· ;"); // Muerte por aislamiento
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Reglas de la vida para un automata celular con seres adultos, huevos, formas
de reproduccion y de muerte.",
CelRb1);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CelRb2 = RulGet(
"O·O :- ·o· ," +
"··· :- O·O ;" + // Huevo por reproduccion hacia abajo con movimiento
"··· :- O·O ," +
"O·O :- ·o· ;" + // Huevo por reproduccion hacia arriba con movimiento
"O· :- ·O ," +
"·· :- o· ," +
"O· :- ·O ;" + // Huevo por reproduccion lateral con movimiento
"·O :- O· ," +
"·· :- ·o ," +
"·O :- O· ;" + // Huevo por reproduccion lateral con movimiento
"OO :- +O ," +
"O· :- O· ;" + // Muerte por exceso de poblacion, muera la apretada
"OO :- O+ ," +
"·O :- ·O ;" + // Muerte por exceso de poblacion, muera la apretada
"·O :- ·O ," +
"OO :- O+ ;" + // Muerte por exceso de poblacion, muera la apretada
"O· :- O· ," +
"OO :- +O ;" + // Muerte por exceso de poblacion, muera la apretada
"O :- O ," +
"O :- + ," +
"O :- O ;" + // Muerte por exceso de poblacion, muera la apretada
"OOO :- O+O ;" + // Muerte por exceso de poblacion, muera la apretada
"O* :- +* ;" + // Muerte al irse tocar la membrana exterior
"*O :- *+ ;" + // Muerte al irse tocar la membrana exterior
"O :- + ," +
"* :- * ;" + // Muerte al irse tocar la membrana exterior
"* :- * ," +
"O :- + ;" + // Muerte al irse tocar la membrana exterior
"o :- O ;" + // Eclosion del huevo del que sale un adulto
"+ :- · ;" + // Putrefaccion del cadaver que desaparece
"··· :- ··· ," +
"·O· :- ·+· ," +
"··· :- ··· ;"); // Muerte por aislamiento
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Reglas de la vida para un automata celular con seres adultos (O),
con huevos (o), formas de reproduccion y de muerte en 2 fases pasando por una
fase de cadaver (+).",
CelRb2);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FILE : cel.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : Racipiente (pantano o area, base de hechos) y reglas de la vida
// (base de reglas con reglas de escritura) para un automata celular.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CelP31 =
[["----********************----",
"---*····················*---",
"--*······················*--",
"-*···········O············*-",
"*··········O···O···········*",
"*············O·············*",
"*······O···O···O···O·······*",
"*····O···O···O···O···O·····*",
"*······O···O···O···O·······*",
"*············O·············*",
"*··········O···O···········*",
"-*···········O············*-",
"--*······················*--",
"---*····················*---",
"----********************----"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Recipiente para el automatar celular.", CelP31);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CelRb1 = RulGet(
"O·O :- ·O· ," +
"··· :- O·O ;" + // Huevo por reproduccion hacia abajo con movimiento
"··· :- O·O ," +
"O·O :- ·O· ;" + // Huevo por reproduccion hacia arriba con movimiento
"O· :- ·O ," +
"·· :- O· ," +
"O· :- ·O ;" + // Huevo por reproduccion lateral con movimiento
"·O :- O· ," +
"·· :- ·O ," +
"·O :- O· ;" + // Huevo por reproduccion lateral con movimiento
"OO :- ·O ," +
"O· :- O· ;" + // Muerte por exceso de poblacion, muera la apretada
"OO :- O· ," +
"·O :- ·O ;" + // Muerte por exceso de poblacion, muera la apretada
"·O :- ·O ," +
"OO :- O· ;" + // Muerte por exceso de poblacion, muera la apretada
"O· :- O· ," +
"OO :- ·O ;" + // Muerte por exceso de poblacion, muera la apretada
"O :- O ," +
"O :- · ," +
"O :- O ;" + // Muerte por exceso de poblacion, muera la apretada
"OOO :- O·O ;" + // Muerte por exceso de poblacion, muera la apretada
"O* :- ·* ;" + // Muerte al irse tocar la membrana exterior
"*O :- *· ;" + // Muerte al irse tocar la membrana exterior
"O :- · ," +
"* :- * ;" + // Muerte al irse tocar la membrana exterior
"* :- * ," +
"O :- · ;" + // Muerte al irse tocar la membrana exterior
"··· :- ··· ," +
"·O· :- ··· ," +
"··· :- ··· ;"); // Muerte por aislamiento
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Reglas de la vida para un automata celular con seres adultos, huevos, formas
de reproduccion y de muerte.",
CelRb1);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CelRb2 = RulGet(
"O·O :- ·o· ," +
"··· :- O·O ;" + // Huevo por reproduccion hacia abajo con movimiento
"··· :- O·O ," +
"O·O :- ·o· ;" + // Huevo por reproduccion hacia arriba con movimiento
"O· :- ·O ," +
"·· :- o· ," +
"O· :- ·O ;" + // Huevo por reproduccion lateral con movimiento
"·O :- O· ," +
"·· :- ·o ," +
"·O :- O· ;" + // Huevo por reproduccion lateral con movimiento
"OO :- +O ," +
"O· :- O· ;" + // Muerte por exceso de poblacion, muera la apretada
"OO :- O+ ," +
"·O :- ·O ;" + // Muerte por exceso de poblacion, muera la apretada
"·O :- ·O ," +
"OO :- O+ ;" + // Muerte por exceso de poblacion, muera la apretada
"O· :- O· ," +
"OO :- +O ;" + // Muerte por exceso de poblacion, muera la apretada
"O :- O ," +
"O :- + ," +
"O :- O ;" + // Muerte por exceso de poblacion, muera la apretada
"OOO :- O+O ;" + // Muerte por exceso de poblacion, muera la apretada
"O* :- +* ;" + // Muerte al irse tocar la membrana exterior
"*O :- *+ ;" + // Muerte al irse tocar la membrana exterior
"O :- + ," +
"* :- * ;" + // Muerte al irse tocar la membrana exterior
"* :- * ," +
"O :- + ;" + // Muerte al irse tocar la membrana exterior
"o :- O ;" + // Eclosion del huevo del que sale un adulto
"+ :- · ;" + // Putrefaccion del cadaver que desaparece
"··· :- ··· ," +
"·O· :- ·+· ," +
"··· :- ··· ;"); // Muerte por aislamiento
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Reglas de la vida para un automata celular con seres adultos (O),
con huevos (o), formas de reproduccion y de muerte en 2 fases pasando por una
fase de cadaver (+).",
CelRb2);
//////////////////////////////////////////////////////////////////////////////
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