scr = NaN
.scr
убрал. Может скинете код целиком, вдруг что-то упускаю. this
, но как - не придумал За ними продолжать кривую нельзя
While a <> 100 do
begin
yt:=0;
a:=a+1;
for i:= 0 to Length(xArray) do
begin
p:=1;
for j:= 0 to Length(xArray) do
begin
if j <> i then
begin
p:= p*(a-xArray[j])/(xArray[i] - xArray[j]);
end
end;
yt:= yt+yArray[i]*p;
end;
xt:= a;
chart1.SeriesList[1].AddXY(xt, yt);
While a <> 100 do
begin
yt:=0;
a:=a+1;
for i:= 0 to Length(xArray) do
begin
p:=1;
for j:= 0 to Length(xArray) do
begin
if j <> i then
begin
p:= p*(a/100-xArray[j])/(xArray[i] - xArray[j]);
end
end;
yt:= yt+yArray[i]*p;
end;
xt:= //непонятен порядок расчёта
chart1.SeriesList[1].AddXY(xt, yt);
end;
While a <> 100 do
begin
a:=a+1;
for i:= 0 to Length(xArray) do
begin
p:=1;
for j:= 0 to Length(xArray) do
begin
if j <> i then
begin
p:= p+(a/100-yArray[j])/(yArray[i] - yArray[j]);
end
end
end;
xt:= a;
yt:= p;
chart1.SeriesList[1].AddXY(xt, yt);