Histograma. Obtener máximos y mínimos relativos

[[Delphius]]

Bueno, Robert01 estuve probando lo que tu comentabas, y la verdad no es que se "pisa" los datos con el paso siguiente.
De acuedo a las pruebas (paso a paso) que hice, el código se ejecuta.. la instrucción se realiza pero si observo con watch, se ve que no incrementa la cantidad ni pide la memoria adecuada, ni le asigna el valor...

Debería poder realizar esta parte:

Código Delphi [-]
in(Count);
SetLength(Value, Count);
Value[Count - 1] := 0;

La verdad es que me parece muy raro... si anteriormente a esta parte del código realiza el procedimiento similar para el almacenamiento de la moda (ver zip adjuntado en el post anterior) ¿Porqué no lo hace para los máximos y mínimos? Es un misterio...

No le veo error al código. Demasiado raro: que con F7 se ve que se ejecuta estas instrucciones, pero que en realidad no está incrementando el valor ni almacenando.... He probado moviendo el código un poco más arriba... he alterado el código de diversas formas, incluso la más absurda:

Código Delphi [-]
ImageInfo.Channel[k].Vallyes.Maximum.Count
ImageInfo.Channel[k]....

Y Nada... las instrucciones son realizadas... pero el watch dice otra cosa.

Si alguien ve el error, ¿me puede dar un buen zopapo (paliza) virtual?

Muchas gracias... por ayudarme Robert01.
Saludos

[Robert01]

Delphius:

Yo hace un tiempo estaba probando un código y por un error que no se donde está no ejecutaba el bucle porque los índices permanecían en 0. según cual fuera el caso.

La primera vez que usaba el bucle andaba todo bien pero a la segunda vez que trataba de usar esa parte de código ocurría el error.
No se si había declarado las variables en forma inadecuada o que.

Yo lo que hice fue usar un bucle do while para ver lo que pasaba.

Saludos

[[Delphius]]

Pues yo ya no se que hacer... no funciona... he probado haciendolo con while, for, Repeat... y nada... es como dices:

Empezado por Robert01

los índices permanecían en 0.

El bucle (ya sea FOR, REPEAR, WHILE) se ejecuta... pero no cambia en nada los valores...

¡Brujería!

Saludos,

[Robert01]

Delphius:

Así debería andar bien

Yo llamaba dos veces un procedure, el índice que permanecía en 0 era k, entonces hice algo así:

Código Delphi [-]
    if (sen1 = 0) then begin

        AlgSent :='ascendente';
        T1:=now;
        k:=1;
        while k <=1500 do begin
          randomize;
          for i:= 1 to ult do
            a[i]:=round(random*ult);

          insercion(a,prim,ult,sen1);
          T2:=now;
          k:=k+1;
        end;

      end

      else if (sen1=1) then begin

        AlgSent :='descendente';
        T1:=now;
        k:=1;
        while k <=1500 do begin
          randomize;
          for i:= 1 to ult do
            a[i]:=round(random*ult);
          insercion(a,prim,ult,sen1);
          T2:=now;
          k:=k+1;
        end;

      end;

i,k están declaradas como integer en el mismo formulario. Inserción es un procedure, no le hagas caso al mismo solo presta atención a la lógica a ver si te sirve.


A mi me solucionó el problema pero no se cual es el error que había cometido que tuve que aplicar esta solución qu eno me parece muy buena


Un saludo desde el aquelarre