Помогите решить методом половинного деления следующие функции

[turin]

Помогите решить методом половинного деления следующие функции

Помогите решить вот такую задачу.Нужно решить методом половинного деления
следующие функции

1) F1:=(3*y*p20*Y*Y)/(Y*Y+betta*(1+Y))+r01*x*x*x0*x0+4*r01*v1*x-2*sigma/x0;
2)F2:=(3*y*p20*Y*Y)/(Y*Y+betta*(1+Y))-2*sigma/x0;
а это входящие в эти функции параметры
{xi:=(cp2*T0)/l;betta:=3*(y-1)*((r01*cp1)/(r02*cp2))*xi*xi;p20:=p0+(2*sigma)/x0;
Y:=sqrt((x*x0*x0*r01*cp1)/lambda1);}

а здесь нужно запрограммировать след функцию
3) lambda_t:=(vT*(A/2+sqrt(A*A/4+A))/(x0*x0))
vT:=lambda1/(r01*cp1) xi:=(cp2*T0)/l;eta:=(r01*cp1)/(r02*cp2);
p2:=p0+(2*sigma)/x0;E:=(2*sigma)/(3*y*x0*p2);A:=3*(y-1)*eta*xi*xi*E/(1-E);
причем значения для функции lambda_t должна совпадать со значениями функции F2,
так как lambda_t получилась путем решения уравнения F2=0 и выражением из неё корня x.

значения меняются x0=10^-7 до 10^-2 .

все константы описываются здесь
{p0:=10132.5;T0:=373;y:=1.28;r01:=1000;r02:=0.590;cp1:=4216;cp2:=2034; lambda1:=0.680;lambda2:=0.0248;v1:=0.0000002791; sigma:=0.05891;l:=2257200; }

Огромное спасибо всем кто поможет!!!

 

[turin]

забыл написать что программировать можно или на паскале или на делфи

 

[Vladimir_S]

Клонирование топиков запрещено!
Дубль темы удален.