Осуществление функции Root из MathCad в Delphi

[NITRON]

Кто-нить знает как можно осуществить функцию Root из MathCad в Дельфи или что-то похожее?У меня есть текст Маскадовоской программы но мне нужно всё это перевести на Дельфи. Когда начал писать столкнулся с такой проблемой есть уравнение которое как я понял по Хелпу решается методом секущей Мюллера. Уравнение с двумя аргументами. Я нашел несколько исходников вроде тех которые надо но только на языке СИ 3.0 по ДОС, начал их переводить и получилось так что там есть цикл For k=0 .. to .. и получилось что k во время выполнения цикла в расчётах не участвует. Я опять зашел в тупик. нашел еще несколько опять же н СИ и вообще не чего не понял если что на всякий случай пример скачанного мной кода.//*********************************** *************** *#include #include #include double f(double x){return exp(x)+2*x;}double findRootMuller(double x0, double h, double eps, long max_step, double (&f)(double)) {double x1 = x0+h, x2 = x0+2*h, xn;double f_x0 = f(x0), f_x1 = f(x1), f_x2 = f(x2), f_xn;for(long k=0; kfabs(b-d))?(b+d)b-d);xn = x0-(x0-x1)*2*c/z; f_xn = f(xn);if(fabs(f_xn)