Алгоритм нахождения точки пересечения двух кривых заданных таблично

[Max2012]

Здравствуйте. Есть алгоритм, но он выдает другую точку.

x11:=2*nu111[1]; x21:=nu111[2];
y11:=teta1[1]-teta[1]; y21:=tetat1[2]-teta1[2];
repeat


xx1:=x11-y11*(x21-x11)/(y21-y11);
for jj:=2 to mm do

if xx1 <=2*nu111[jj] then
begin
x11:=x11; y11:=y11;

x21:=2*nu111[jj]; y21:=tetat1[jj]-teta1[jj];
break;
end;
Fz1:=y11+(xx1-x11)*(y21-y11)/(x21-x11);
x11:=xx1; y11:=Fz1;
until abs(Fz1)<0,00001;
Fte1:=0;

for jj:=2 to mm do

begin

if (xx1>=2*nu111[jj-1]) and (xx1<=2*nu111[jj] then
begin
Fte1:=tetat1[jj-1]+(xx1-2*nu111[jj-1]/(2*nu111[jj]-2*nu111[jj-1])*(tetat1[jj]-tetat1[jj-1]);
Ft1:=teta1[jj-1]+(xx1-2*nu111[jj-1])/(2* nu111 [jj]-2*nu111[jj-1]) *(teta1[jj]-teta1[jj-1]);
break;
end;
end;