Ver Mensaje Individual
  #4  
Antiguo 04-12-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
Considerando que de MySQL se lo mismo que de Quimica organica y de delphi se lo mismo que algebra basica esto me ha funcionado con Firebird

Código Delphi [-]
//qyPlot es un query.
//qyPlot.Fields[1].value son los valores que contiene ese indice de campo (p.e. 49.95, 50.0, 49.98, 50.10)
//añade la unidad Math al uses ahi esta declarado MeanAndStdDev
 
procedure TdmDatos.CalculaMediaStdDev;
var
  Numeros: array of double;
  nConta: integer;
  Desviacion,Promedio: extended;
begin
  if qyPlot.recordcount > 0 then
    begin
      setlength(Numeros, qyPlot.RecordCount);
      for nConta := 1 to qyPlot.RecordCount do
        begin
          Numeros[nConta-1] := qyPlot.Fields[1].Value ;
          qyPlot.Next ;
        end;
      //Calculamos el promedio y la desviacion estandard
      MeanAndStdDev(Numeros,Promedio,Desviacion);
      frmVistaPrincipal.ActualizaEstadistica(promedio,desviacion); //aqui actualizo el dato del formulario principal
    end;
end;

Es una idea. Ahora que si tu lo quieres como procedimiento almacenado en tu bd pues......ni como ayudarte. Suerte
__________________
ESTO ES UN FORO ... NO UN MÓVIL
¿Por qué no escribir de una manera comprensible para que los humanos lo podamos entender?
Responder Con Cita