Programación General > Delphi

 Como Puedo Sacar Funciones Estadisticas???

(1/1)

mustang:
que tal de nuevo molestando con mis novatadas, pero necesito obtener algunas funciones de estadistica para un programa, los datos los tengo ke obtener en base al resultado de un query ke ejecuto sobre unas tablas y aventando el resultado en un dbgrid, ya mas o menos tengo el codigo para sacar la moda ke es el dato ke mas se repite en una columna pero no logro obtenerlo, aparte tengo ke sacar el crecimiento poblacional en base a otras columnas del mismo query, si alguien tiene el codigo o sabe si existen funciones ya hechas para tales casos se lo agradecere, muchisimas gracias de nuev, pongo el pedazo de codigo para segun yo obtener la moda, aunke no me sale


--- Código: Text --- begin query1.first; edadant:=query1.fieldbyname('Edad').Value; cuantos:=1; cuantosmoda:=cuantos; edadmoda:=query1.fieldbyname('Edad').Value; query1.Next; while Query1.Eof=False do      begin      showmessage('edadant trae '+Inttostr(edadant)+' y area actual es '+query1.fieldbyname('Edad').AsString);      if edadant=query1.fieldbyname('Edad').Value then//          showmessage('El dato NO cambio');          begin          cuantos:=cuantos+1;//          cuantosmoda:=cuantos;          showmessage('Cuantos moda trae '+IntToStr(cuantosmoda));          end      else          if cuantos > cuantosmoda then           begin//            showmessage('El dato cambio');            cuantosmoda:=cuantos;            edadmoda:=edadant;            showmessage('Cuantosmoda lleva '+ IntToStr(cuantosmoda));            showmessage('Edadmoda trae '+ IntToStr(edadmoda));            end;    if edadant<>query1.fieldbyname('Edad').Value then        cuantos:=1;    edadant:= query1.fieldbyname('Edad').Value;    query1.Next;    end;  if cuantos>cuantosmoda then      begin       cuantosmoda:=cuantos;       edadmoda:=edadant;       end; end; showmessage('Edad moda es '+ IntToStr(edadant)+' y se repite ' + IntToStr(cuantosmoda));  gracias de nuevo  :hola:

Amilius:
Necesitas guardar las frecuencias en una lista para que funcione.

ej. frecuencia de letras

Letra, Frecuencia:

A 11
B 12
G 1
E 2
H 0

Moda: B con 12

A 5
B 5
G 3
E 2
H 0

Moda: Sin moda o devuelves A y B con 5, dependiendo de lo que necesites.

Navegación

[0] Índice de Mensajes