Buenas prácticas de programación

[elcigarra]

Empezado por Lepe

Sustitúyelo por esto otro:

for I:= low(nombrearray) to high(nombrearray) do

Si, si, lo cambio.
Aclaro "por si las moscas" que los errores no se deben a que me pasé del largo del array (aunque sí lo hago en el "pseudocódigo" simplificado que puse. Reconozco que cada tanto me como uno de estos pero no es el caso que pregunto en este hilo, porque además los errores no los dá al final, sino en cualquier lado.

[elcigarra]

Perdón, lo acabo de correr.
El error que me deja abajo del "Application.Run" es:
"Invalid Pointer Operation", nada de floating point.

Y ese error lo da después que hizo lo que tenía que hacer, vació las listas, array, barrió todo e iba a devolver el programa al usuario... a veces.

Una prueba más que hice...
Cada vez que empezaba la iteración me estaba dando un error de windows que decía algo así como "debugger fault" (debí haber anotado). Así que cerré el IDE y corrí el ejecutable pelado. Les cuento que estuvo 2 segundos paralizado y se cerró sin más.. sin aviso, ni error ni nada. A mi me suena a memoria... Hay algo que no debo estar liberando.

[[gatosoft]]

Bueno, yo hice el ejercicio básico, según lo indicado por nuestro amigo y cuando entra a la función de graficar me arroja un Stack Overflow... (Y eso que la función no tiene nada)

Código Delphi [-]
Var ArrayGrande: Array of Extended;

function GenerarRandomico: Extended;
Begin
  //Utilizo la famosa distribución.... randómica...
  Result:= Random(50000000);
end;

procedure graficar(vector: array of extended);
begin
//
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var i:Integer;
begin
  Randomize;
  SetLength(arraygrande, 2000000);

  for i:=Low(arraygrande) to High(ArrayGrande) do
    arraygrande[i] := GenerarRandomico;

  graficar(arraygrande);
  ShowMessage('Listo');
end;

hice una modificación quitando la variable que se pasa como parámetro y utilizando la global en el procedimiento graficar y aqui si funciona...

Código Delphi [-]
procedure graficar;
begin
  // aqui utilizo la variable global: arraygrande
end;

bueno, ni que decir, pude ejecutarlo sin problemas... Yo no creo que sea un problema de memoria, insisito, pienso que hay algo mas en tu codigo que genera este error... y como te comente anteriormente, no siempre se muestra la linea que origina el error sino la linea que detecta la violación...

Pienso que deberías intentar el "Metodo de Descartes", es decir ir descartando codigo comentandolo y ejecutandolo por partes.... por ejemplo... has el ejercicio solamente con la generación de los numeros (sin imprimirlos) si vuelve a fallar puedes decir que el algoritmo que grafica no tiene nada que ver...

Cambia la formula de generación de aleatorios, maneja una distribución sencilla (como la que yo utilizo Result:= random (100)) si sigue fallando, entonces sabras que el error tampoco está por ahi... en fin...

otra alternativa, si consideras que puede ser memoria sería ayudarte de una "memoria cache" o un Buffer para generar, almacenar y leer tus datos... me refiero a que puedes guardar los datos en un archivo o BD y no en memoria... Obviamente como ejercicio, no te pido que cambies la logica de tu codigo, es tambien solo para descartar...

un saludo

[Neftali [Germán.Estévez]]

Al final no me ha quedado claro si el error te estás dando en la iteración(que sólo asigna randoms) o en la parte de la gráfica.

[[coso]]

Hola,

desde la ayuda de delphi

Open array parameters allow arrays of different sizes to be passed to the same procedure or function. To define a
....
When you pass an array as an open array value parameter, the compiler creates a local copy of the array within the routine’s stack frame. Be careful not to overflow the stack by passing large arrays.

probablemente llegaba un momento en el que tanto tu array como la copia petaban la pila.

Haciendo esto

Código Delphi [-]
type ExtArray = array of Extended;
...
procedure Graficar(e : ExtArray);
begin
//
end;
 
procedure Hacer;
var
     i : cardinal;
     e : ExtArray;
begin
     Randomize;
     SetLength(e, 200000);
     for i:=0 to 200000-1 do
         e[i] := GenerarRandomico;
     graficar(e);
     ShowMessage('Listo');
end;

funciona.

PD : alguien sabe como acceder al valor de un puntero a lo 'array', pues he probado

Código Delphi [-]
graficar(@arraygrande)
..
 
procedure Graficar (P : PExtended)
var   
      i : integer
begin
        for i := 0 to 200000-1 do
        label1.caption := Formatfloat('0.00',extended(p)[i]^;
end;

que tendria que ser la manera, y no

[[Lepe]]

¿sería posible comprimir los fuentes y subirlo al foro? (si solo es un un form, el dpr y el pas, puedes agregarlo al hilo).

Si asignas nil a un array, y después intentas acceder a él, es muy posible que salte esa excepción que dices, pero no es la única posiblidad...

Saludos

[elcigarra]

Neftali, los errores de los que hablo los en cualquier lado, en cualquier linea, en cualquier momento de la iteración... Es completamente aleatorio.

Con respecto al código si... Yo habia desarrollado algunos algoritmos para generar estos "randómicos" tan particulares e incluso usando el random plano (Random) o el random de distribución gaussiana (RandomG) y volaba sólido como una piedra. El tema es que inserté un algoritmo nuevo a la aplicación (el código no es muy complejo y ya lo revisé y parece estar bien) y con este dan todos estos errores... en todos lados menos en el mismo algoritmo. Por eso me parecía que tal vez era muy exigente con la memoria o el procesador... por eso quería saber si tenía que tener especiales cuidados con los arrays y listas grandes.

Con respecto al código creanme que si fuera por mí se los mandaría como lo he hecho siempre (me ahorraría bastantes dolores de cabeza) pero esta vez no se me permite hacerlo porque es propiedad del instituto nacional donde trabajo ...

Seguiré probando... Tal vez sea momento de cambiar de algoritmo y empezar de nuevo esta parte. Gracias a todos.