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