pon.tol de ChRules.Iterative

Base de reglas con reglas de un pingpong electronico, pong, incluye el area de juego, pueden funcionar de manera aleatoria, creo.

Declaraciones

Constantes

Set PonUpA
Mesa de pingpong electronico, saque desde arriba.
Set PonDwA
Mesa de pingpong electronico, saque desde abajo.
Set PonRb1
Base de reglas de un ping pong electronico, pong, mediante reglas de reescritura de areas rectangulares de caracteres. Los 4 estados de la pelota se codifican mediante 4 caracteres.

Constantes

Set PonUpA

//////////////////////////////////////////////////////////////////////////////
Set PonUpA =
[["+---------+",
  "|··=······|",
  "|···b·····|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|······=··|",
  "+---------+"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Mesa de pingpong electronico, saque desde arriba.",PonUpA);
//////////////////////////////////////////////////////////////////////////////

Set PonDwA

//////////////////////////////////////////////////////////////////////////////
Set PonDwA =
[["+---------+",
  "|····=····|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·····p···|",
  "|····=····|",
  "+---------+"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Mesa de pingpong electronico, saque desde abajo.",PonDwA);
//////////////////////////////////////////////////////////////////////////////

Set PonRb1

//////////////////////////////////////////////////////////////////////////////
Set PonRb1 = RulGet(
   "b·· :- ··p ,"  + // Rebota en la pala inferior
   "·=· :- ·=· ;"  + 

   "b·| :- ·p| ,"  + // Rebota en la pala inferior pegado a la pared
   "·=| :- ·=| ;"  + 

   "·=· :- ·=· ,"  + // Rebota en la pala superior
   "p·· :- ··b ;"  + 

   "·=| :- ·=| ,"  + // Rebota en la pala superior pegado a la pared
   "p·| :- ·b| ;"  + 

   "··d :- q·· ,"  + // Rebota en la pala inferior
   "·=· :- ·=· ;"  + 

   "|·d :- |q· ,"  + // Rebota en la pala inferior pegado a la pared
   "|=· :- |=· ;"  + 

   "·=· :- ·=· ,"  + // Rebota en la pala superior
   "··q :- d·· ;"  + 

   "|=· :- |=· ,"  + // Rebota en la pala superior pegado a la pared
   "|·q :- |d· ;"  + 

   "b·· :- b·· ,"  + // Intenta cojerlo
   "··= :- ·=· ;"  + 

    "b· :- b· ,"   + // Intenta cojerlo
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

   "··= :- ·=· ,"  + // Intenta cojerlo
   "p·· :- p·· ;"  + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

   "··d :- ··d ,"  + // Intenta cojerlo
   "=·· :- ·=· ;"  + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

   "=·· :- ·=· ,"  + // Intenta cojerlo
   "··q :- ··q ;"  + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

  "b··· :- b··· ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "···= :- ··=· ;" + 

  "···= :- ··=· ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "p··· :- p··· ;" + 

  "···d :- ···d ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "=··· :- ·=·· ;" + 

  "=··· :- ·=·· ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "···q :- ···q ;" + 
 
    "b· :- ·· ,"   + // Avanza hacia la derecha bajando
    "·· :- ·b ;"   + 

    "·d :- ·· ,"   + // Avanza hacia la izquierda bajando
    "·· :- d· ;"   + 

    "·· :- q· ,"   + // Avanza hacia la izquierda subiendo
    "·q :- ·· ;"   + 

    "·· :- ·p ,"   + // Avanza hacia la derecha subiendo
    "p· :- ·· ;"   + 

    "b| :- d| ;"   + // Rebota en la pared derecha bajando

    "|d :- |b ;"   + // Rebota en la pared izquierda bajando

    "|q :- |p ;"   + // Rebota en la pared izquierda subiendo

    "p| :- q| ;"   + // Rebota en la pared derecha subiendo

     "- :- - ,"    + // Gol
     "p :- o ;"    + 

     "- :- - ,"    + // Gol
     "q :- o ;"    + 

     "b :- o ,"    + // Gol
     "- :- - ;"    + 

     "d :- o ,"    + // Gol
     "- :- - ;"); 
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas de un ping pong electronico, pong, mediante reglas de 
reescritura de areas rectangulares de caracteres.
Los 4 estados de la pelota se codifican mediante 4 caracteres.",
PonRb1);
//////////////////////////////////////////////////////////////////////////////

Time oriented language

//////////////////////////////////////////////////////////////////////////////
// FILE    : pon.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Base de reglas con reglas de un pingpong electronico, pong,
// incluye el area de juego, pueden funcionar de manera aleatoria, creo.
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Set PonUpA =
[["+---------+",
  "|··=······|",
  "|···b·····|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|······=··|",
  "+---------+"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Mesa de pingpong electronico, saque desde arriba.",PonUpA);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Set PonDwA =
[["+---------+",
  "|····=····|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·········|",
  "|·····p···|",
  "|····=····|",
  "+---------+"]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Mesa de pingpong electronico, saque desde abajo.",PonDwA);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Set PonRb1 = RulGet(
   "b·· :- ··p ,"  + // Rebota en la pala inferior
   "·=· :- ·=· ;"  + 

   "b·| :- ·p| ,"  + // Rebota en la pala inferior pegado a la pared
   "·=| :- ·=| ;"  + 

   "·=· :- ·=· ,"  + // Rebota en la pala superior
   "p·· :- ··b ;"  + 

   "·=| :- ·=| ,"  + // Rebota en la pala superior pegado a la pared
   "p·| :- ·b| ;"  + 

   "··d :- q·· ,"  + // Rebota en la pala inferior
   "·=· :- ·=· ;"  + 

   "|·d :- |q· ,"  + // Rebota en la pala inferior pegado a la pared
   "|=· :- |=· ;"  + 

   "·=· :- ·=· ,"  + // Rebota en la pala superior
   "··q :- d·· ;"  + 

   "|=· :- |=· ,"  + // Rebota en la pala superior pegado a la pared
   "|·q :- |d· ;"  + 

   "b·· :- b·· ,"  + // Intenta cojerlo
   "··= :- ·=· ;"  + 

    "b· :- b· ,"   + // Intenta cojerlo
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

    "b· :- b· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "=· :- ·= ;"   + 

   "··= :- ·=· ,"  + // Intenta cojerlo
   "p·· :- p·· ;"  + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

    "=· :- ·= ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "p· :- p· ;"   + 

   "··d :- ··d ,"  + // Intenta cojerlo
   "=·· :- ·=· ;"  + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

    "·d :- ·d ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·= :- =· ;"   + 

   "=·· :- ·=· ,"  + // Intenta cojerlo
   "··q :- ··q ;"  + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

    "·= :- =· ,"   + // Intenta cojerlo
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·· :- ·· ,"   +
    "·q :- ·q ;"   + 

  "b··· :- b··· ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "···= :- ··=· ;" + 

  "···= :- ··=· ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "p··· :- p··· ;" + 

  "···d :- ···d ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "=··· :- ·=·· ;" + 

  "=··· :- ·=·· ," + // Intenta cojerlo de mas lejos
  "···· :- ···· ," +
  "···q :- ···q ;" + 
 
    "b· :- ·· ,"   + // Avanza hacia la derecha bajando
    "·· :- ·b ;"   + 

    "·d :- ·· ,"   + // Avanza hacia la izquierda bajando
    "·· :- d· ;"   + 

    "·· :- q· ,"   + // Avanza hacia la izquierda subiendo
    "·q :- ·· ;"   + 

    "·· :- ·p ,"   + // Avanza hacia la derecha subiendo
    "p· :- ·· ;"   + 

    "b| :- d| ;"   + // Rebota en la pared derecha bajando

    "|d :- |b ;"   + // Rebota en la pared izquierda bajando

    "|q :- |p ;"   + // Rebota en la pared izquierda subiendo

    "p| :- q| ;"   + // Rebota en la pared derecha subiendo

     "- :- - ,"    + // Gol
     "p :- o ;"    + 

     "- :- - ,"    + // Gol
     "q :- o ;"    + 

     "b :- o ,"    + // Gol
     "- :- - ;"    + 

     "d :- o ,"    + // Gol
     "- :- - ;"); 
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas de un ping pong electronico, pong, mediante reglas de 
reescritura de areas rectangulares de caracteres.
Los 4 estados de la pelota se codifican mediante 4 caracteres.",
PonRb1);
//////////////////////////////////////////////////////////////////////////////

Árbol de ficheros

ChRules.Iterative programa de aplicacion iterativa de reglas de areas de caracteres

←make.tol aplica unas bases de reglas de reescritura a varios escenarios
←make.bat mandato de ejecucion del programa de aplicacion de reglas
tol directorios que contienen fichero de codigo fuente Tol
- cmm funciones comunes
  - ←txt.tol funciones de textos
  - ←set.tol funciones de conjuntos
  - ←dir.tol funciones de directorios
- app directorio funciones y datos de areas, reglas y motor de reglas
  - ←are.tol funciones de areas sobre las que se aplican las reglas
  - ←rul.tol funciones de reglas que transforman de areas de caracteres
  - ←eng.tol funciones del motor iterativo de aplicacion de reglas
  - ←bub.tol para realizar un orden parcial con metodo de burbuja
  - ←cel.tol automata celular con reglas de reproduccion y muerte
  - ←lab.tol base de reglas para que un robot salga de un laberinto
  - ←fll.tol base de reglas para rellenar, fill, superficies cerradas
  - ←pon.tol base de reglas de un pingpong electronico, pong
- ←inc.tol para la inclusion de funciones, areas y bases de reglas
simulator directorio del simulador en Javascript del motor iterativo de reglas
- css directorio para css, Cascading Style Sheets, del simulador
  - ←simulator.css css para simular areas de aplicacion de las reglas
- src directorio de codigo fuente Javascript del simulador de reglas
  - ←simulator.js simula el funcionamiento del motor de aplicacion de reglas
  - ←simulatorarray.js array con ejemplos de evolucion para cada base de reglas
→automata_celular_al_azar.html automata celular de reglas al azar de reproduccion y muerte
→automata_celular_determinista.html automata celular determinista de reglas de reproduccion y muerte
→burbuja_y_sedimentos.html orden parcial con metodo de burbuja simulando una sedimentacion
→laberinto_2_cabezones.html laberinto con 2 robots que se autobloquean y no pueden salir
→laberinto_2_negociadores.html laberinto con 2 robots y reglas para resolver su mutuo bloqueo
→laberinto_mas_grande.html robot que sale del laberinto aplicando reglas de la mano derecha
→laberinto_mano_izquierda_html robot que busca la salida aplicando reglas de la mano izquierda
→laberinto_mini_1_robot.html pequeño laberinto con un robot y reglas de la mano derecha
→partida_de_pong_al_15.html partida de pong donde el 15% de las veces las reglas son al azar
→partida_de_pong_al_20.html partida de pong donde el 20% de las veces las reglas son al azar
→partida_de_pong_azarosa.html partida de pingpong electronico, pong, con reglas aleatorias
→partida_de_pong_eterna.html ciclo eterno de una partida de pong, con reglas deterministas
→rellena_caja_al_azar.html reglas para llenar superficies aplicadas a una caja con lineas
→rellena_k_al_azar.html rellenado de superficies aplicado al interior de una letra K
→simulator.html simulador del motor iterativo de reglas de areas de caracteres
→chrules_iterative.pdf funciones del motor de aplicacion de reglas de caracteres

Secciones de la página

pon. tol

Declaraciones

Constantes

Time oriented language

Árbol de ficheros

Artículos del sitio

Presentación de Tol

Todos los programas

Simuladores visuales

Sitios que me gustan

Por categorías

Algoritmia

Búsqueda y ordenación

Computación fisiológica

Editorial y edición

Gráficos de datos

Herramientas y utilidades

Hipertexto

Informática forense

Lectura óptica de datos

Metaprogramación

No determinista

Ofimática

Recursión e iteración

Reglas y restricciones

Series y estadística

pon.tol de ChRules.Iterative

Declaraciones

Constantes

Set PonUpA

Set PonDwA

Set PonRb1

Time oriented language

Árbol de ficheros