Números impares desde 1 hasta 1000

[ecfisa]

Hola roman.

Empezado por roman

Bueno, pero antes de agregar líneas por PostMessage o concatenar y pegar, ¿han intentado un BeginUpdate - EndUpdate?

LineComment Saludos

Olvidé incluirlos en las pruebas , tal vez por que recordaba que aunque mejoraba el tiempo, no lo hacía un rival de la concatenación.

Concatenando  :     203 µs.
Mensaje       :     261 µs.
Begin/Update  :  858024 µs.
Método Add    : 3320579 µs.

Saludos

[jhonny]

Empezado por ecfisa

Hola roman.

Olvidé incluirlos en las pruebas , tal vez por que recordaba que aunque mejoraba el tiempo, no lo hacía un rival de la concatenación.

Concatenando  :     203 µs.
Mensaje       :     261 µs.
Begin/Update  :  858024 µs.
Método Add    : 3320579 µs.

Saludos

Bueno, a mí el BeginUpdate/EndUpdate me ha arrojado los mismo números que me arroja el uso de TParallel. Que curioso todo.

[Casimiro Notevi]

Empezado por jhonny

Bueno, a mí el BeginUpdate/EndUpdate me ha arrojado los mismo números que me arroja el uso de TParallel. Que curioso todo.

¿Tenéis un ordenador compartido?

[jhonny]

Empezado por Casimiro Notevi

¿Tenéis un ordenador compartido?

jejeje bueno, me refiero a que las pruebas que hice con el BeginUpdate/EndUpdate, me arrojaron el mismo resultado que me habían arrojado las pruebas que había hecho con TParallel en el ejercicio anterior... o sea, 295 milisegundo en promedio para 10000 como valor máximo.

Lo que me asombra es que a ecfisa se le haya demorado tanto usando BeginUpdate/EndUpdate.

[roman]

Empezado por jhonny

Lo que me asombra es que a ecfisa se le haya demorado tanto usando BeginUpdate/EndUpdate.

A mi me asombran sus números. No sé cómo los obtuvo. Para 1000 números yo obtengo:

Concatenando: Alrededor de 3,000 microsegundos
BeginUpdate/EndUpdate: Alrededor de 72,000 microsegundos

Uso esto:

Código Delphi [-]
type
  ICounter = Interface
    function Ellapsed(): Single;
    function EllapsedAsString: String;
  end;

  TCounter = class(TInterfacedObject, ICounter)
  private
    Frequency, StartTicks: Int64;

  public
    constructor Create();
    function Ellapsed(): Single;
    function EllapsedAsString: String;
  end;

{ TCounter }

constructor TCounter.Create;
begin
  QueryPerformanceFrequency(Frequency);
  QueryPerformanceCounter(StartTicks);
end;

function TCounter.Ellapsed: Single;
var
  CurrentTicks: Int64;

begin
  QueryPerformanceCounter(CurrentTicks);
  Result := 1000000*(CurrentTicks - StartTicks);
  Result := Result/Frequency;
end;

function TCounter.EllapsedAsString: String;
begin
  Result := FormatFloat('0,000.0 µs', Ellapsed);
end;

Ejemplo:

Código Delphi [-]
var
  Counter: ICounter;

begin
  Counter := TCounter.Create();

  // Proceso a medir

  ShowMessage(Counter.EllapsedAsString);
end;

LineComment Saludos

[jhonny]

Empezado por roman

A mi me asombran sus números. No sé cómo los obtuvo. Para 1000 números yo obtengo:

Uso esto:

.
.
.

Yo uso este record: http://docwiki.embarcadero.com/Libra...ics.TStopwatch

Así:

Código Delphi [-]
var
  sw: TStopWatch;
begin
    sw := TStopWatch.Create;
    sw.Start;
      //Proceso a medir
    sw.Stop;
    
    Label1.Caption := sw.ElapsedMilliseconds.ToString; //Lugar donde muestro el resultado de la medición...
end;

[roman]

Tus resultados son en milisegundos y los míos en microsegundos. En realidad, lo hice en microsegundos porque ecfisa así lo hizo, o al menos es lo que indica la unidad µs que puso. Quizá sean milisegunods pero aún así, es demasiado tiempo para el beginupdate/endupdate. Aunque, ciertamente, es más lento este último método.

LineComment Saludos