una simple función, un grave problema..

[DynaRoc]

lo primero gracias marcoszorrilla por contestar, llevo como 3 dias con esta tontería que no logro hacer funcionar


lo que dices en tu 1º post, claro que funciona, pero el problema ocurre cuando todos los parámetros de la función se obtienen de 3 o 4 textfield y se guardan en Double

no sé pq motivo no da el resultado 56!!! ( dá 76!!)

con respecto a tu 2º mensaje, no te he entendido lo que has explicado.

por cierto y para hacer el antilog ? sería con la funcion power ? ejemplo :

Power(10,23/10); // antilog(23)

ó 10^(23/10);

Gracias por adelantado

[marcoszorrilla]

Pues convendría mostrar el valor que tiene cada uno despues de la conversión a Double, ahí puede estar el problema, que obtienes más o menos decimales.

En cuanto al segundo ejemplo que pongo no tiene nada que ver con Delphi está hecho con Clipper, pero es un ejemplo de como a veces una función hay que dividirla en pasos para racionalizarla, esta función en una calculadora científica funcionaba y también en la hoja de cálculo, el problema el tipo de cálculo que utilizaba Clipper, por lo que para hacerla funciona la tuve que dividir en 4 tramos como vés.

Un Saludo.

[marcoszorrilla]

Por cierto en la unidad Math, también existen estás funciones:

Código Delphi [-]
 { Logorithmic functions }
 function LnXP1(X: Extended): Extended;   { Ln(X + 1), accurate for X near zero }
 function Log10(X: Extended): Extended;                     { Log base 10 of X}
 function Log2(X: Extended): Extended;                      { Log base 2 of X }
 function LogN(Base, X: Extended): Extended;                { Log base N of X }

Un Saludo.

[DynaRoc]

madre mia si es pa matarme jajaja


gracias marcoszorrilla sugerir que valla mostrando todos los valores y así ver el error

pues no tiene más misterio aki me he ekivocao xDDD

rest_ci := -7.5*(Log10(un_canal));
Edit5.Text := FloatToStr(S_I_tipo + 2.0*(Smaxlimite - rest_ci - Smax)); // muestro el resultado en un textfiled.

normal -----> - - = +

solucion :

rest_ci := +7.5*(Log10(un_canal));

gracias de nuevo por las funciones jeje

saludos