| |
|
|
| | Здравствуйте. Есть код в delphi который определяет точки пересечения двух кривых. В одной программе требуется 2 раза найти точки пересечения у разных кривых у 2-х графиков.Для первого графика точка всегда находится правильно, а для другого графика тот же алгоритм с другими переменными нет. В чем может быть дело ?
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;
|
| |
| |
|
