Интерполяция многочленом ньютона Опции

[Dark_san]

Вот такое вот у меня было лицо
Нужен алгоритм для решения програмным путём
Входные данные - 12 X|Y и 4 точки x1 x2 x3 x4.

[Dark_san]

Не забраковала, а потерялась )
Где там игрики?
куда икс вводить нашла
а вот с игриками- проблема

[Lapp]

Не забраковала, а потерялась )

Гм..

Где там игрики?
куда икс вводить нашла
а вот с игриками- проблема

Странно. Ты видишь вот это:

  y: array[0..n]of double = (
    0.99,
    0.95,
    0.91,
    0.87,
    0.84,
    0.80,
    0.77,
    0.74,
    0.71,
    0.68,
    0.65,
    0.63
  );

- ? Это твои "игрики". Я при наборе отрезал два знака в конце. Понимаешь? Добавь. Вот и все. В чем проблема? Ты меня начинаешь разочаровывать, бушмэночка..

Проверил на Турбо - да, есть проблема. Решается небольшой коррекцией функции FinDif. В ней нужно ввести дополнительные переменные, чтобы разбить вычисление выражения. Вот так:

function FinDif(k,i: integer): double;
var
   a,b: double;
begin
  if k=0 then FinDif:=y[i] else begin
     a:=FinDif(k-1,i+1);
     b:=FinDif(k-1,i);
     FinDif:=a-b
  end
end;

Как ты понимаешь (надеюсь), в математику или алгоритм это не вносит никаких изменений. Но Турбо, видимо, плохо работает со стеком сопроцессора и переполняет его. Этот workaround спасает ситуацию (не знаю, насколько). Но лучше все-таки взять пергаментный свиток побольше, аккуратно переписать на него весь пакет ТурбоПаскаль, отнести его к самому большому баобабу в округе, дождаться новолуния и закопать его со всеми почестями, станцевав потом на этом месте sarabanda с бубном (или что там у вас полагается по погребальному обряду), а потом скачать FreePascal с http://FreePascal.org и зажить счастливо. Кстати, извиняюсь, Турбо, кажется, не умеет определять строку сбоя, FP умеет, забыл я уже все..

Да, и еще - на всякий случай - измени внутренность цикла в функции NewtonPol, вот так:

    f:=f/k;
    p:=p+f*Prod(t,k-1)*FinDif(k,0)

Это тоже не влияет на математику, но к компьютерным вычислениям относится более щадяще..

Пиши, что получается. Задавай вопросы, что есть что и зачем. Не стесняйся. Мне гораздо больше нравится, когда спрашивают, а не когда спишут, сдадут и забудут..