Error Invalid Floating Operation

[[Delphius]]

Lamento abrir el hilo de hace una semana. Estuve fuera estos dias. Veras, Seoane... en tu código hay una parte interesante:
[delphi]) div t;[delphi]

Solo quería aclarar que puede haber una falla en esta parte:
¡un cero! No es gran cosa... pero bueno solo aclaro eso.
Según estuve viendo... no siempre el valor la suma del filtro es
positiva. En algunos la suma es cero. Y por ende... aqui falla.

Mediante tu código logré llevarlo según mis apuntes... y con
filtro en formato real y no como tu expones.
Unos pequeños cambios y listo. Muchas gracias!