9 respuestas en este tema

[abraham85]

hola gente como stan???
la media geométrica de una cantidad arbitraria de números (digamos n números) es la raíz n-ésima del producto de todos los números.
Por ejemplo, la media geométrica de 2 y 18 es  =  2 √ (2*18)
Otro ejemplo, la media de 1, 3 y 9 seria =  3√(1*3*9)
otro ejemplo seria    la media de 3,2,4 y 6 = 4√(3*2*4*6)
y asi.....bueno..eso necesito para los campos de una tabla....yo ya se cuantos elementos son
es decir ....ya se los N numeros...asi que ya tengo el N√....ese valor sta almanecenado en otro tabla que no es TCS1

sql

SELECT  SUM(actual), idnegocio 
FROM tcs1
WHERE idvariedad= 11110301
AND (actual<>0 OR actual IS NOT NULL) 
GROUP BY idnegocio

yo tengo sta funcion que me devuelve la suma de los precios de una variedad para agrupados por negocio
no existe una opcion que se llama MUL en sql? o algo parecido???
se entiende lo que tratao de decirles ? heehhehehehe
o se les ocurre alguna manera de hacerlo en delphi??
Gracias amigos!

[egostar]

Hola

¿ Lo que quieres es meter la formula que mencionas dentro de una sentencia SQL ?

Salud OS

[abraham85]

si...quiero meter esa formula en una sentencia sql....
o sino alguna manera de hacer en delphi 

[egostar]

si...quiero meter esa formula en una sentencia sql....
o sino alguna manera de hacer en delphi 

Pues de poderse todo se puede

De una forma genérica puedes utilizar la función POWER y la raíz se representa como  1 / exponente

Tu tres ejemplos serían algo así:

sql

SELECT ( POWER(2.0*18.0 , 1.0/2.0) ) AS Resultado FROM TuTabla

sql

SELECT ( POWER(1.0*3.0*9.0 , 1.0/3.0) ) AS Resultado FROM TuTabla

sql

SELECT ( POWER(3.0*2.0*4.0*6.0 , 1.0/4.0) ) AS Resultado FROM TuTabla

Salud OS

[Marc]

Hola.

Yo no conozco ninguna función de Agregado SQL que haga la multiplicación de valores (tipo la función SUM con la suma). Así que me parece que no podrás hacerlo en una simple consulta.

¿ Porqué no utilizas un procedimiento almacenado ?

Saludos.

[Rolphy Reyes]

Hola.

Yo no conozco ninguna función de Agregado SQL que haga la multiplicación de valores (tipo la función SUM con la suma). Así que me parece que no podrás hacerlo en una simple consulta.

¿ Porqué no utilizas un procedimiento almacenado ?

Saludos.

Saludos.

En Oracle y SQL Server la función Power esta disponible desde hace mucho tiempo, sin embargo, Firebird la implemento (Built-in) a partir de su versión 2.1; cabe mencionar que la misma estaba en las fbudf, UDF externas.

Creo que como Egostar indica, se puede resolver el problema.

[abraham85]

bueno gente...aca lo hize a la manera artesenal.....

si alguien despues me puede corregir y ayudar a optimizar el codigo....se lo agradeceria muchosisisisismo

delphi

procedure TFCarga.Button5Click(Sender: TObject);
var
variedad,n:integer;
actual:currency;
negocio:integer;
idnegocio:integer;
multi,totvariedad:currency;
begin
 
 
 AQimpu.SQL.Text :=' SELECT idvariedad,idnegocio from tvs1 where procasosval = 1';
         AQimpu.Active:=true;
         While not AQimpu.Eof do
          begin
           multi:=1;
           n:=0;
           variedad := AQimpu.Fields[0].Asinteger;
           negocio  := AQimpu.Fields[1].Asinteger;
           AQimpu2.SQL.Text := 'select actual, idnegocio ' +
                               'from tcs1 '+
                               'where (idvariedad='+ inttostr(variedad)+')'+
                               'and (actual<>0 or actual is not null) '+
                               'and idnegocio = '+inttostr(negocio)+' ';
 
            AQimpu2.Active:=true;
            while not AQimpu2.Eof do
             begin
              actual:= AQimpu2.Fields[0].Ascurrency;
              multi := actual * multi;
              n:=n+1;
              AQimpu2.Next;
             end;
           if n=1 then totvariedad := multi
                  else totvariedad := Power(multi, 1/n)   ;
           AQimpu3.SQL.Text := 'update  tvs1  '+
                                  'set  actual ='+ currtostr(totvariedad) +' '+
                                  'where idvariedad= '+ inttostr(variedad)+' '+
                                  'and  idnegocio= '+inttostr(negocio)+' ';
           AQimpu3.ExecSQL;
           AQimpu.Next;
          end;
 AQimpu.Active := False;
 
 
end;

Gracias amigos!

[eduarcol]

Probaste la opción aportada por egostar??

[abraham85]

no...pero en parte si .....

porq  los numeros que  necesitaba obtener staban en otra tabla  y dependian de la variedad y negocio....y que no fueran nulas...
los obtengo de un select que hago antes....y despues voy recorriendo la query y almacenando en MULTI el resultado de la multiplicacion.....
de todas maneras ya anda... ......asi q muchas Gracias a todos heheeheheheheeheh

[Delphius]

Hola abraham85, también tienes la posibilidad de crear tu propia UDF con Delphi y exportarla luego a Firebird.
Otra alternativa, aunque no sabría decir hasta que punto es viable, es la de emplear un SP.

Saludos,