Procedures como parámetros

[Magician^]

Sobre:

Empezado por roman

¡Eeeeh! ¡No vale! Yo quería ver la implementación de esta función!

Puedes encontrar la implementación si búscas información sobre cálculo numérico, en general pueden haber varias implementaciones según el método que decidas usar, aqui te va una de las implementaciones:

function dfx(fx:tfx;x:real;h:real):real; {funcion que deriva fx respecto a x}
var ii,ji,ki:integer;
	p,s:real;
	xi:array[0..3]of real;
const
	n=3; {tercer grado}
begin
  Result:=0;
  xi[0]:=x-2*h; xi[1]:=x-h; xi[2]:=x; xi[3]:=x+h;
  for ii:=0 to n do
  begin
	s:=0;
	for ki:=0 to n do if ki<>ii then
	begin
	   p:=1;
	   for ji:=0 to n do if (ji<>ki) and (ji<>ii) then p:=p*(x-xi[ji]);
	   s:=s+p;
	end;
	p:=1;
	for ji:=0 to n do if ji<>ii then p:=p*(xi[ii]-xi[ji]);
	Result:=Result+s*fx(xi[ii])/p
  end;
end;

Servido

[roman]

Empezado por Magician^

Servido

Gracias Magician. Me siento algo apenado ya que realmente estaba bromeando un poco y de hecho erróneamente estaba pensando en derivación simbólica en lugar de numérica de manera que me dije: ¿Cómo ha de ser la función para aceptar una función arbitraria y derivarla?

Te pido disculpas.

[Magician^]

Empezado por roman

Gracias Magician. Me siento algo apenado ya que realmente estaba bromeando un poco y de hecho erróneamente estaba pensando en derivación simbólica en lugar de numérica de manera que me dije: ¿Cómo ha de ser la función para aceptar una función arbitraria y derivarla?

Te pido disculpas.

Amigo, no te preocupes.

La función "derivar", acepta una función arbitraria pero esta debe de estar compilada en el código. En realidad también se puede implementar interpretación simbólica, para ello hay un paso intermedio. Inclusive podria ser tan potente como quisieras usando un interprete del tipo "JvInterpreter" del cual puedes obtener información en este enlace:
http://homepages.borland.com/jedi/jv...nterpreter.htm

Creo que esto debería de tener su propio hilo no?

Saludos.