Método Laplace-Sánchez (página 3)

4

8

7

3

2

1

8531

1

1

4

5

2

3

8

6

4

3

1

8532

Las siguientes cuatro listas, desde la 8525 hasta la 8528 contienen al evento-posición 5 en la posición p5, esto exige una interpretación y es la siguiente;

El evento-posición 1 que se encuentra en p5 de la lista 8524, tiene 46 sucesos desde la última vez que ocurrió y con el paso de ese lapso, los siguientes eventos-posición número 5 de las siguientes listas auxiliares dejaron de ocurrir, ahora bien;

Si llegare a ocurrir el evento-posición 1, que se encuentra en p5 de la lista 8524, acarrearía al evento-posición que se encontrare en la siguiente posición 5 de la lista 8525 p5 y allí encontramos al primer 5, así sucesivamente hasta la lista 8528, donde se encuentra el último 5, de esta porción de La galería de Listas, donde se ha producido La Acumulación de Hitos,

Cabe destacar la Inestabilidad de este lugar en la galería de listas, que permite visualizar que los eventos aleatorios, aún teniendo idéntica probabilidad de suceder, poseen en algún momento en la evolución de la galería, una mayor y específica posibilidad acumulativa o predictibilidad de suceder que los demás eventos.

Con lo cual se puede concluir que;

"Mientras mayor sea el índice del hito, mayor es la acumulación de hitos sucesivos y que define a La Predictibilidad".

3,6 El Estudio Piloto

Se conoce hasta ahora lo siguiente;

Primero;

Existe obligatoriamente un margen de error ( Principio de Incertidumbre de Heisemberg ), que consiste en la cantidad de terminales los cuales se van a apostar combinado linealmente con la cantidad de tiempo asociada a la limitante presupuestal que se puede observar en la Tabla de apuestas para 20 terminales por intento, que se detalla más adelante, este ultimo consiste en la cantidad de sucesos que se realizan previamente al suceso favorable, y

Segundo;

Mientras que no se materialice el suceso favorable se debe apostar como mínimo el doble de la cantidad de dinero que se apostó en el fallido intento previo para garantizar la recuperación de una cantidad mayor a la totalidad de lo invertido con anterioridad, este es el Primer Factor Determinante que se debe tomar en cuenta necesariamente y quedó suficientemente demostrado, solo falta hacer una apropiada selección de aquel (o aquellos) evento (s) cuya ocurrencia sea inminente, se plantea La Galería de Listas cuya información constituye el Segundo Factor Determinante que se necesitará para efectuar una correcta toma de decisión.

Se define Intento como el acto de realizar una apuesta, se tiene con los terminales un porcentaje de retorno al primer intento, si efectivamente se acertó, del 50% y se halló que con tal retorno al primer intento, se pueden apostar a menos de veinte eventos para obtener utilidad, se estudiará y se apostará a los veinte terminales que pertenecen a una de las cinco porciones definidas y que se discriminará como el favorito según su predictibilidad, arrojando un retorno relativo que oscila entre 2,50 y 1,25 por unidad monetaria apostada, veamos la siguiente tabla;

Tabla para 20 terminales por intento

Las cantidades se expresan relativas a la unidad monetaria apostada (um)

Retorno absoluto= 50 Um

Retorno relativo= retorno absoluto / acumulado

Si la apuesta mínima por terminal que acepta cualesquiera de las agencias es por ejemplo de 1 Bs. para cubrir ocho intentos se necesitará de la siguiente cantidad de dinero:

Monto = 5100 x 1 Bs.= 5100 Bs.

y el monto de la apuesta inicial a los 20 terminales será de 1 Bs.

Se debe evaluar si la galería de listas es, o infinita o circular, entendiendo por circular, a que en algún lugar se repite, tanto la lista natural y seguidamente las siguientes listas correlativas, también se debe estudiar la relación que existe entre la acumulación de hitos y la longitud de la galería de listas, debido a que para 10,000 listas y los 100 primeros datos que arroja la rutina dato1 aparece la lista 8524, como la poseedora del hito mayor con índice 46 y para 100,000 listas resulta la lista 29744 con índice 53, además se debe determinar los tiempos que tarda en materializarse el pronóstico desde el momento que se detecta la inminencia o predictibilidad, a partir de un histórico, y evaluar si es menor o igual a los ocho intentos que definen a la limitante presupuestal descrita en la Tabla para 20 terminales por intento vista anteriormente y evaluar la validez del hallazgo para las rutinas #2 y #3, con millones de sucesos.

Finalmente, evaluemos el botón 6;

Text16 = 0

Data1.Recordset.MoveFirst

While Not Data1.Recordset.EOF

leer1

If Val(Text6) > Val(Text16) Then

Text16 = Val(Text6)

Data5.Recordset.AddNew

Data5.Recordset.Fields("i5") = Val(Text6)

Data5.Recordset.Fields("lista") = Val(Text21)

Data5.Recordset.Update

End If

Data1.Recordset.MoveNext

Wend

End Sub

Veamos la tabla resultante, luego de correr 100 datos con la rutina 1 en una galería de listas de dimensión 10,000;

Se puede observar que la aparición de un nuevo hito, exige una galería de dimensión cada vez, mucho más que mayor.

4,0 Referencias.

Planeamiento y Análisis de Investigaciones, Víctor Morles, Serie Alma Mater, ediciones El Dorado, Caracas 1997.

Teoría del Caos, serie tecnologías emergentes del cómputo, Cesar Monroy Olivares, Alfaomega Grupo Editor 1997.

Elementos del Caos Físico en la Economía, Martín Emilio Sánchez Sifontes, Caracas 2002.

Desarrollo Experimental sobre la Extensión Dinámica de La Variable Estocástica y Método para ganarle al Juego Terminal, Martín Emilio Sánchez Sifontes, Caracas 2004.

5,0 Conclusiones

Se puede plantear una primera conclusión desde el punto de vista metafísico: El conjunto de eventos aleatorios, al manifestarse en la Lista Natural con "movimientos", se comporta como un ser vivo pseudo inteligente que, cuando el Ser Humano intenta anticipar el próximo paso, es capaz de producir como resultado del próximo suceso, precisamente un hecho que hace suponer que se está burlando, al ser la serie aleatoria absolutamente un conjunto de hechos brutales siempre intentará confundir a la neurona.

La Simplicidad, que es una necesidad humana, se convierte en Dogma en La Ciencia y se manifiesta en el Método de Pierre Simon Laplace para conocer más de los fenómenos aleatorios, recordemos;

"… el Verdadero Método para predecir el futuro consiste en estudiar La Historia y Estado Actual del Sistema…"

El Sistema;

"La Galería de Listas"

La Historia;

"La Acumulación de Hitos"

A esto es menester agregarle;

"La Inminencia", y

"La Lectura Regresiva".

Quedando definida La Inminencia o Predictibilidad como, la máxima acumulación de hitos.

El fenómeno estocástico no es de la competencia de La Teoría del Caos, y esta investigación establece claramente la competencia de la Mecánica en estos fenómenos, el fenómeno es Mecánico y de origen periódico y por lo tanto debe ser predecible, la Rama de la Mecánica que describe la trayectoria de los cuerpos en movimiento es La Cinemática, luego, tiene su representación funcional en la Estadística, básicamente la herramienta que lo describe es LA PROBABILIDAD y la Definición en la Física que logra explicar las interioridades de La Dinámica del fenómeno parte pues de LA POSIBILIDAD y La Predictibilidad o Acumulación de Hitos en La Galería de Listas.

Un suceso es individualmente estocástico con respecto a sus inmediatamente próximos más no es así en una visión colectiva, eclosionándose pues un elemento para la discusión, dado a que existe una relación directa entre el Potencial y la Repitencia, al aumentar la Repitencia aumenta el Potencial y viceversa.

Se observa una Propiedad General muy importante en los conjuntos equiprobables y de distribución de frecuencia plana, esta Propiedad es La Igualdad Proporcional, que no es más sino un comportamiento similar en las Listas Naturales y Auxiliares de 2, 3, 4… n, eventos, que sugiere un modelo matemático de la variable aleatoria cuyos dígitos presentan un Comportamiento Alternante entre El Irracional, cuando se suspende la repitencia del evento reciente, y el comportamiento de los dígitos del Número Racional de la Recta Real, seguramente será incluida en la Recta Real a la infinita reunión de conjuntos de eventos aleatorios equiprobables o no, por estar acotados sus comportamientos entre el número racional y el número irracional, entonces existen en la Recta Real, quedará ampliada la constitución de la Recta Real por: El Conjunto de los Números Enteros, Los Números Racionales, Los Números Irracionales y Los Números Aleatorios, cabe destacar que en los números Irracionales nunca se produce el evento reciente, verbi gratia los números: e, p ,v2, etc.

La Teoría del Caos consiste en el estudio de los sistemas dinámicos no lineales y complejos que indica la imposibilidad de conocer el futuro de una gran cantidad de fenómenos, existiendo un horizonte desde donde el cual hacia el futuro, cualquier modelo matemático estará alejado de la realidad, careciendo de sentido intentar predicciones más allá de este límite, la presente investigación ha servido para estudiar la Dinámica de los eventos estocásticos y de distribución de frecuencia plana la cual consiste en ciclos pseudo periódicos.

A pesar que se halló el Comportamiento General que se observa en los dígitos que arroja el fenómeno, posee similarmente un horizonte de predictibilidad, allí se observa otra manifestación del Principio de Libertad.

Si bien es cierto que la definición de fenómeno estocástico reza que es todo aquel suceso que no guarda relación con los sucesos inmediatos, y que La Teoría del Caos no estudia esta clase de fenómenos, se halló en el fenómeno que efectivamente si existe una relación entre el pasado y el futuro que le será interesante a esta Teoría: La Inminencia.

Con respecto a la continuidad del flujo de información de la fuente hacia el registro, se pudiera pensar que ignorar algún dato no hará mella en el registro dado a que los eventos individualmente no guardan relación entre sí, eso es cierto en la medida que sea aleatorio el ignorar algún dato, también es cierto que cada dato, venga de donde venga, siempre y cuando sea aleatorio, enriquece el registro y hará la investigación más rápida, esto conduce a pensar que dos fuentes aleatorias de iguales conjuntos mezcladas entre sí, producirán los mismos resultados y a esto se le ha llamado Principio de Pureza, así mismo si se dividen los datos de una fuente aleatoria en dos o más sub-fuentes el comportamiento de ellas será similar al de la fuente original, por supuesto las fuentes de información han de ser respetadas.

Se pudiera estudiar la 1ra., 2da., 3ra. y hasta la n-ésima Lista Natural Auxiliar, como la lista n es función de la lista n-1, y que define a la continuidad entre ellas, se podrá hacer la lectura regresiva desde aquel lugar de La Galería de Listas con mayor acumulación de Hitos hasta La Lista Natural, produciéndose el pronóstico que tendrá mayor Posibilidad de suceder, a esto se le denominará Lectura Regresiva, y será el núcleo del Pronóstico, falta por demostrar si la sucesión de listas auxiliares es infinita o circular, por circular se entiende que en algún lugar de cierta cantidad de listas, se repite sucesivamente la serie.

Como cada ser Humano experimenta a diario cualquiera cantidad de vivencias se puede comprender que, si una persona se atreve a pronosticar hechos en la vida de muchas personas entonces en algún momento acierta, esto quiere decir que los brujos, lectores de cartas, adivinos, astrólogos, y demás no tienen contacto con el futuro, lo único que hacen es decir verosimilitudes que, si se encuentran dentro de el conjunto de lo posible, entonces algún subconjunto de aquellos que perciben la información les creerán en conexión con el futuro, luego de experimentar la materialización del conocimiento habido con anterioridad, demostrándose así que estos iluminados no tienen visiones ni contacto con el futuro, sencillo, si toda cosa tiene alguna probabilidad de ocurrir, en la medida que no ocurra en esa medida se acerca el instante de su realización.

El Título del Trabajo expuesto dice así "Investigación sobre la Predictibilidad en el Juego de Lotería Terminal", si se asocia al vocablo "Predictibilidad" con la acumulación de hitos, tenemos entonces que La Probabilidad es "La Calidad de Lo Probable", La Posibilidad es "La Calidad de lo Posible" pudiendo ser definida mejor aún a La Predictibilidad como "La Calidad de Lo Predecible", todo esto motivado a que la La Lectura Regresiva desde aquel lugar donde se formó la mayor Acumulación de Hitos hacia La Lista Natural será la decisión más acertada que brota de modo Puramente Racional.

Se debe evaluar la expresión matemática de la ventaja definida en Las Bases Teóricas de la Investigación con la frecuencia con que se acierta obtenida experimentalmente y la probabilidad de perder el monto acumulado que se arriesga hasta el 8vo. Intento;

Ventaja = MrG – MrP

MrG = Pg. Mg, MrP = Pp. Mp

Pg = Probabilidad de ganar, Pp = Probabilidad de perder.

Mg = Monto a ganar, Mp = Monto a perder.

Pero se debe adecuar esta expresión matemática a la nueva realidad de La Predictibilidad;

Ventaja = G – P

G = ? Fg. Mg, P = Fp. Mp

Fg = frec. absoluta de las veces que se gana, Fp =frec.abs. de perder

Mg = Monto a ganar, Mp = Monto a perder.

Lo que se busca con la adaptación de la expresión matemática de la ventaja es contrastar todo lo que se gana, respetando El Método Laplace-Sánchez, expuesto en esta investigación, hasta la materialización del instante fatal que no suceda en ninguno de los ocho instantes el evento seleccionado, versus apostar a la ocurrencia fortuita de cualquier evento.

P = Fp. Mp Fp = 1, Mp = 5100 P = 5100

G = ? Fg. Mg

Y así llegar al momento de evaluar al Sistema de Hipótesis que se planteó en el aparte 2,5 de la Investigación, recordemos;

Sistema de Hipótesis

1ra. Hipótesis.

"Se pueden producir pronósticos acertados con una frecuencia relativa mayor que La Probabilidad."

2da. Hipótesis.

"La frecuencia relativa de aciertos sistemáticos no puede ser mayor que La Probabilidad."

Para poder entonces, evaluar la validez y utilidad del presente método que requiere de mayor cantidad de tiempo en su verificación.

Básicamente el fenómeno es Un Caso del Movimiento en el Espacio de varias partículas materiales confinadas en una región y por lo tanto Objeto de Estudio de La Mecánica.

La Posibilidad existe en todo aquello que, manteniendo alguna probabilidad de suceder, sucederá, en la medida que el valor de La Predictibilidad alcance valores altos, se acerca el momento en el cual este índice se inicialice al no suceder el evento que le posee, que ha bien se ha denominado instante fatal.

Con esta investigación las palabras de Jean Pierre Laplace podrían cobrar vigencia actual y permanente;

"… el verdadero Método para predecir el futuro consiste en estudiar La Historia y estado actual del Sistema…".

La no regla en el universo necesita una regla para hacerla tender a la regla, El universo se ordena, desordena y reordena, al depurarse, por supuesto a regla se reordena una porción.

Finalmente, se recomienda realizar cada uno de los experimentos con los algoritmos propuestos, para realizar la comprobación de los hallazgos y llevar por cada sorteo una y sola una base de datos, respetando celosamente cada una de las fuentes naturales de información, vale decir: los sorteos.

Probabilidad General

"Se define a La Probabilidad General del Evento i ( PGw(i) ) como el producto de, La Probabilidad General del Registro ( PGw ) y el cociente que se obtiene entre la cantidad de eventos iguales Ei y la cantidad de eventos totales Et"

Cuando se habla de eventos iguales se refiere a que en el conjunto existan eventos con idénticos atributos que los asemeje entre sí y sea indiferente estudiar uno u otro y se les asigne por lo tanto de igual Probabilidad Clásica, veamos un ejemplo;

Conjunto de tres eventos = ( 0,0,1)

Probabilidad General del evento ( 0 ) para un Registro de cinco sucesos igual a;

la condición de igualdad se cumple con el evento ( 0 ) y existen 2 eventos iguales

y la Probabilidad General del evento ( 1 ) para el mismo Registro es igual a;

siendo la suma de la Probabilidad general de cada evento PGw(i) igual a la Probabilidad General del Registro PGw, y la interpretación que exige estos valores es que, en promedio, en cada 3 Registros se encontrarán 10 sucesos del evento ( 0 ) y 5 sucesos del evento ( 1 ).

luego, se puede escribir la expresión matemática de La Probabilidad General del evento i ( PGw(i) ) de la siguiente manera;

Ei = cantidad de eventos i iguales, Et = cantidad de eventos totales.

W = cantidad de sucesos que definen al Registro, N = cantidad de eventos totales.

Resultando en el conjunto equiprobable La Probabilidad General de cada Evento ( PGw(i) ) igual a la Probabilidad General del Registro ( PGw ), y en el conjunto no equiprobable la Sumatoria de la Probabilidad General de cada Evento i diferente, igual a la Probabilidad General del Registro siendo comprobable encontrar en los registros del conjunto equiprobable, a cada elemento en la proporción que define La Probabilidad General de cada Evento ( PGw(i) ), se ha hallado una expresión bastante general sobre los fenómenos estocásticos, siendo el conjunto equiprobable un caso particular, veamos;

Si los eventos son equiprobables, sucede lo siguiente,

La condición de igualdad se presenta en todos los eventos puesto que la probabilidad clásica es idéntica para cada uno, luego la cantidad de eventos iguales es idéntica a la cantidad de eventos totales, entonces;

La Probabilidad General de los Eventos es igual a la Probabilidad General del Registro, y

Si el Registro es unitario se obtiene la expresión clásica de La Probabilidad de suceder que posee cada evento.

6,0 Anexos de La Investigación.

cambiando los límites de la sumatoria del primer miembro de la igualdad es decir u = x-1 tenemos que;

en consecuencia:

demostración

evaluando los miembros de la igualdad se tiene que;

Programación completa

Sub pronóstico()

mayor

buscamayor

lectura

End Sub

Sub mayor()

Data1.Recordset.MoveFirst

leer1

While Not Data1.Recordset.EOF

leer2

If Val(Text16) > Val(Text6) Then leer1 'en LN izquierda la L aux más antigua

Data1.Recordset.MoveNext

Wend

End Sub

Sub buscamayor()

Data1.Recordset.MoveFirst

leer2

While Not Val(Text21) = Val(Text22)

Data1.Recordset.MoveNext

leer2

Wend

End Sub

Sub lectura()

leer1 'lectura inversa en La Galería de Listas

d = Val(Text21)

Text27 = 5

If Not d = 1 Then

Data1.Recordset.MoveNext

While Not d = 1

Data1.Recordset.MovePrevious

leer1

d = Data1.Recordset.Fields("lista")

If Val(Text27) = 5 Then

evento = Val(Text1)

ElseIf Val(Text27) = 4 Then

evento = Val(Text2)

ElseIf Val(Text27) = 3 Then

evento = Val(Text3)

ElseIf Val(Text27) = 2 Then

evento = Val(Text4)

ElseIf Val(Text27) = 1 Then

evento = Val(Text5)

End If

Text27 = Val(evento) ' acarreo

Wend

Else

Text27 = Val(Text1)

End If

End Sub

Sub proceso()

If Val(Text27) = Val(Text25) Then

guardadata

Text30 = 1

Else

Text30 = Val(Text30) + 1

End If

End Sub

Sub guardadata()

Data4.Recordset.AddNew

Data4.Recordset.Fields("tiempodeespera") = Val(Text30)

Data4.Recordset.Update

End Sub

Sub leer1()

Text23 = Data1.Recordset.Fields("estado")

Text1 = Data1.Recordset.Fields("p5")

Text2 = Data1.Recordset.Fields("p4")

Text3 = Data1.Recordset.Fields("p3")

Text4 = Data1.Recordset.Fields("p2")

Text5 = Data1.Recordset.Fields("p1")

Text6 = Data1.Recordset.Fields("i5")

Text7 = Data1.Recordset.Fields("i4")

Text8 = Data1.Recordset.Fields("i3")

Text9 = Data1.Recordset.Fields("i2")

Text10 = Data1.Recordset.Fields("i1")

Text21 = Data1.Recordset.Fields("lista")

End Sub

Sub leer2()

Text24 = Data1.Recordset.Fields("estado")

Text11 = Data1.Recordset.Fields("p5")

Text12 = Data1.Recordset.Fields("p4")

Text13 = Data1.Recordset.Fields("p3")

Text14 = Data1.Recordset.Fields("p2")

Text15 = Data1.Recordset.Fields("p1")

Text16 = Data1.Recordset.Fields("i5")

Text17 = Data1.Recordset.Fields("i4")

Text18 = Data1.Recordset.Fields("i3")

Text19 = Data1.Recordset.Fields("i2")

Text20 = Data1.Recordset.Fields("i1")

Text22 = Data1.Recordset.Fields("lista")

End Sub

Sub galería()

Data1.Recordset.MoveFirst

While Not Data1.Recordset.EOF

leer1

mover

guardar

Data1.Recordset.MoveNext

Wend

End Sub

Sub mover()

If Val(Text25) = Val(Text1) Then

x = 5

If Val(Text23) = 0 And Val(j) > Val(Text6) Then Text23 = 1 ' esto es para saber si el índice de p5 es real, Estado = 1

Text1 = Val(Text2): Text2 = Val(Text3): Text3 = Val(Text4): Text4 = Val(Text5)

Text6 = Val(Text7) + 1: Text7 = Val(Text8) + 1: Text8 = Val(Text9) + 1: Text9 = Val(Text10) + 1

ElseIf Val(Text25) = Val(Text2) Then

x = 4

Text2 = Val(Text3): Text3 = Val(Text4): Text4 = Val(Text5)

Text6 = Val(Text6) + 1: Text7 = Val(Text8) + 1: Text8 = Val(Text9) + 1: Text9 = Val(Text10) + 1

ElseIf Val(Text25) = Val(Text3) Then

x = 3

Text3 = Val(Text4): Text4 = Val(Text5)

Text6 = Val(Text6) + 1: Text7 = Val(Text7) + 1: Text8 = Val(Text9) + 1: Text9 = Val(Text10) + 1

ElseIf Val(Text25) = Val(Text4) Then

x = 2

Text4 = Val(Text5)

Text6 = Val(Text6) + 1: Text7 = Val(Text7) + 1: Text8 = Val(Text8) + 1: Text9 = Val(Text10) + 1

ElseIf Val(Text25) = Val(Text5) Then

x = 1

Text6 = Val(Text6) + 1: Text7 = Val(Text7) + 1: Text8 = Val(Text8) + 1: Text9 = Val(Text9) + 1

End If

Text5 = Val(Text25)

Text25 = Val(x)

End Sub

Sub guardar()

Data1.Recordset.Edit

Data1.Recordset.Fields("estado") = Val(Text23)

Data1.Recordset.Fields("p5") = Val(Text1)

Data1.Recordset.Fields("p4") = Val(Text2)

Data1.Recordset.Fields("p3") = Val(Text3)

Data1.Recordset.Fields("p2") = Val(Text4)

Data1.Recordset.Fields("p1") = Val(Text5)

Data1.Recordset.Fields("i5") = Val(Text6)

Data1.Recordset.Fields("i4") = Val(Text7)

Data1.Recordset.Fields("i3") = Val(Text8)

Data1.Recordset.Fields("i2") = Val(Text9)

'Data1.Recordset.Fields("i1") = Val(Text10) ' el valor aquí siempre es 1

Data1.Recordset.Update

End Sub

Sub aleatorio()

'dato1

dato2

'dato3

End Sub

Sub dato1()

' por supuesto, esta asignación de valores a cada subconjunto es arbitraria

Text25 = Int(Rnd * 10): Text26 = Val(Text25)

asignación

End Sub

Sub dato2()

leerpotencia

For jx = 1 To Val(centena)

Rnd

Next

centena = Int(Rnd * 1000)

For jx = 1 To Val(decena)

Rnd

Next

decena = Int(Rnd * 100)

For jx = 1 To Val(unidad)

Rnd

Next

unidad = Int(Rnd * 10)

guardapotencia

Text25 = Int(Rnd * 10): Text26 = Val(Text25)

asignación

End Sub

Sub dato3()

'dato2 'aquí esta rutina #2 es opcional

n = 1

p2 = Int(Rnd * 10) + 1 ' para que el valor sea entre 1 y 10

For u = 0 To Val(p2)

n = n * 10

Next

p1 = Rnd * n * 10

p3 = Int(Val(p1)) – Int(Val(p1) / 10) * 10

Text25 = Val(p3): Text26 = Val(Text25)

asignación

End Sub

Sub asignación()

If Val(Text25) < 2 Then

Text26 = Val(Text25): Text25 = 1

ElseIf Val(Text25) > 1 And Val(Text25) < 4 Then

Text26 = Val(Text25): Text25 = 2

ElseIf Val(Text25) > 3 And Val(Text25) < 6 Then

Text26 = Val(Text25): Text25 = 3

ElseIf Val(Text25) > 5 And Val(Text25) < 8 Then

Text26 = Val(Text25): Text25 = 4

ElseIf Val(Text25) > 7 Then

Text26 = Val(Text25): Text25 = 5

End If

End Sub

Sub leerpotencia()

Data2.Recordset.MoveFirst

unidad = Data2.Recordset.Fields("unidad")

decena = Data2.Recordset.Fields("decena")

centena = Data2.Recordset.Fields("centena")

End Sub

Sub guardapotencia()

Data2.Recordset.MoveFirst

Data2.Recordset.Edit

Data2.Recordset.Fields("unidad") = Val(unidad)

Data2.Recordset.Fields("decena") = Val(decena)

Data2.Recordset.Fields("centena") = Val(centena)

Data2.Recordset.Update

End Sub

Private Sub Command1_Click()

End

'programa básico

End Sub

Private Sub Command2_Click()

' la galería no es única, si p5 no empieza en 5 se obtiene otra galería, la correcta empieza en 5

' porque 5 se refiere a la posición del evento más antiguo

' estado se refiere a que los índices sean reales

If Not Data1.Recordset.EOF Then

Data1.Recordset.MoveFirst

While Not Data1.Recordset.EOF

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Wend

End If

For j = 1 To Val(Text28)

Data1.Recordset.AddNew

Data1.Recordset.Fields("estado") = 0

Data1.Recordset.Fields("p5") = 5

Data1.Recordset.Fields("p4") = 4

Data1.Recordset.Fields("p3") = 3

Data1.Recordset.Fields("p2") = 2

Data1.Recordset.Fields("p1") = 1

Data1.Recordset.Fields("i5") = 1

Data1.Recordset.Fields("i4") = 1

Data1.Recordset.Fields("i3") = 1

Data1.Recordset.Fields("i2") = 1

Data1.Recordset.Fields("i1") = 1

Data1.Recordset.Fields("lista") = Val(j)

Data1.Recordset.Update

Next j

If Not Data2.Recordset.EOF Then

Data2.Recordset.MoveFirst

While Not Data2.Recordset.EOF

Data2.Recordset.Delete

Data2.Recordset.MoveNext

Wend

End If

Data2.Recordset.AddNew

Data2.Recordset.Fields("unidad") = 1

Data2.Recordset.Fields("decena") = 10

Data2.Recordset.Fields("centena") = 100

Data2.Recordset.Update

If Not Data4.Recordset.EOF Then

Data4.Recordset.MoveFirst

While Not Data4.Recordset.EOF

Data4.Recordset.Delete

Data4.Recordset.MoveNext

Wend

End If

If Not Data5.Recordset.EOF Then

Data5.Recordset.MoveFirst

While Not Data5.Recordset.EOF

Data5.Recordset.Delete

Data5.Recordset.MoveNext

Wend

End If

End Sub

Private Sub Command3_Click()

For j = 1 To 100

dato1

galería

Next j

Text29 = "Fin Correr Listas"

End Sub

Private Sub Command4_Click()

Text30 = 1

For j = 1 To 100

aleatorio

Text27 = 5

pronóstico

proceso

galería

Text33 = Val(j)

Next j

Text29 = "Fin Macro Prueba I"

End Sub

Private Sub Command5_Click()

If Not Data3.Recordset.EOF Then

Data3.Recordset.MoveFirst

While Not Data3.Recordset.EOF

Data3.Recordset.Delete

Data3.Recordset.MoveNext

Wend

End If

End Sub

Text29 = "Archivo #3 Borrado"

Private Sub Command6_Click()

pronóstico

End Sub

Private Sub Command7_Click()

Text16 = 0

Data1.Recordset.MoveFirst

While Not Data1.Recordset.EOF

leer1

If Val(Text6) > Val(Text16) Then

Text16 = Val(Text6)

Data5.Recordset.AddNew

Data5.Recordset.Fields("i5") = Val(Text6)

Data5.Recordset.Fields("lista") = Val(Text21)

Data5.Recordset.Update

End If

Data1.Recordset.MoveNext

Wend

End Sub

Autor:

Marta N Sanchez Sifontes