Cita:
Empezado por seoane
Ya puestos a ser originales
Código Delphi [-]
function Raiz(X: Extended): Extended;
begin
Result:= Exp(Ln(X)/2);
end;
|
xDDD Bueno, pues ahi mi otra opción xD
Código Delphi
[-]function Raiz(x: Extended): Extended;
var
n, i: Extended;
begin
n:=x;
i:=0.0;
while i <> n do
begin
i:=n;
n:=(x/n + n)/2;
end;
Result:=n;
end;
El algoritmo se reduce al método de Newton sobre la función f(r)= (r^2)-x