Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-04-2006
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Thumbs up Sobre Int64

Buenas foristas,

Pues, tengo un pequeño problema. Debo realizar un generador de números aletorios para poder realizar los prácticos de la cátedra de Modelos y Simulación, en uno de los puntos se me pide que encuentre el período para un generador multiplicativo donde:
módulo = 10^8
semilla = 19
a = 211
Inicialmente tenía pensado que con el tipo integer iba de pelos, pero al probarlo con dicho valor, mi máquina se clavaba (como si entrara en blucles infinitos) y la ventana se ponían blanca. El algoritmo anda bien siempre que no sobrepasara los 10^6. Para poder permitir incluso números mayores, cambié por Int64, el cual segun la ayuda, permite hasta 2^63-1. Sigue funcionando bien.... pero he aquí, que inclusive así... sucede el mismo fenómeno. ¿Cómo es posible esto?...
Lo raro es que probé con generar números (con el mismo generador) de:
a = 7^5
m = 2^31-1
Como se me pide en otro de los puntos de dicho práctico y esto anda!.... bueno... al menos con la semilla que le pasé: 15 (no se especifica la semilla, es a elección)
Adjunto el código (.dpr, .dfm y .pas) por si alguien vee algo raro. La verdad es que no me explico No veo el porqué

NOTA: para hacer uso de la evaluación hago empleo de la función evaluateperiod() que se encuentra incorporada en el pas.
No se cuantos foristas entienden de lo que ando hablando... pero si alguien entiende un poquito de esto... no estaría de más una orientación. No pido una solución, sino si es posible que me indiquen o me orienten.

Saludos,
Archivos Adjuntos
Tipo de Archivo: zip Generador.zip (7,5 KB, 25 visitas)
__________________
Delphius
[Guia de estilo][Buscar]

Última edición por Delphius fecha: 04-04-2006 a las 05:19:42. Razón: Correcciones y aclaraciones
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
sobre P2P Delphius Varios 2 12-02-2005 19:22:10
Sobre BDE erfedecai Conexión con bases de datos 6 11-06-2004 13:34:27
No me permite cambiar un dominio de Int64 a integer apicito Firebird e Interbase 2 25-05-2004 19:05:04
Sobre DLL ElCherchu Varios 2 26-06-2003 19:03:42


La franja horaria es GMT +2. Ahora son las 23:12:45.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi