Автор Тема: Ф. Лагранжа, начертить график по формуле лагранжа на отрезке  (Прочитано 3337 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Астасья

  • Постоялец
  • ***
  • Сообщений: 173
    • Просмотр профиля
Начертить график на отрезке а,в??????помогите...вроде всё есть вот только график не получается

program gf;uses crt;
const n=5;v=10;
var x,y,ak:array [0..n] of real;
    Pnx,xx,a,b,c,w:real;k,j:integer;
begin
x[0]:=10; y[0]:=45;
x[1]:=20; y[1]:=56;
x[2]:=30; y[2]:=78;
x[3]:=40; y[3]:=23;
x[4]:=50; y[4]:=20;
x[5]:=60; y[5]:=10;

    a:=x[0];
    for j:=0 to n do
    if x[j]<a then a:=x[j];
    writeln('min=',a);

    b:=x[0];
    for j:=0 to n do
    if x[j]>b then b:=x[j];
    writeln('max=',b);

c:=(b-a)/v;writeln('шаг=',c);
for k:=0 to n do
 begin
 ak[k]:=1;
  for j:=0 to n do
  if (j<>k)then ak[k]:=ak[k]*(x[k]-x[j]);
 ak[k]:=1/ak[k];
 end;
xx:=a;
Pnx:=0;
while (xx<=b) do
begin
 for k:=0 to n do
 begin
 w:=1;
for j:=0 to n do
if (j<>k) then w:=w*(xx-x[j]);
Pnx:=Pnx+y[k]*ak[k]*w;
end;
writeln('Pnx(',xx,')=',Pnx );
xx:=xx+c;
end;
end.
« Последнее редактирование: 25 Октября 2011, 01:08:47 от Asix »

Оффлайн wital1984

  • Постоялец
  • ***
  • Сообщений: 189
    • Просмотр профиля
Re: ф.Лагранжа
« Ответ #1 : 28 Сентября 2011, 00:17:24 »
можете полностью написать условие?

Оффлайн Астасья

  • Постоялец
  • ***
  • Сообщений: 173
    • Просмотр профиля
Re: ф.Лагранжа
« Ответ #2 : 28 Сентября 2011, 08:41:25 »
начертить график по формуле лагранжа на отрезке а,b ,где а -min ,b-max

Оффлайн Астасья

  • Постоялец
  • ***
  • Сообщений: 173
    • Просмотр профиля
Re: ф.Лагранжа
« Ответ #3 : 29 Сентября 2011, 15:18:05 »
График получился=)))))Надо поставить крестики на графике по которым он был построен?????ПОМОГИТЕ!!!!!!!!!


program lagr;
uses graphabc;
const n=5;m=10;
var x,y,ak:array [0..n] of real;p:array [0..m] of real;xx,pn,w,a,b,x1,x2,h,h1,f_max,kx,ky:real;i,j,k,l:integer;

begin
x[0]:=-5;y[0]:=20;
x[1]:=0.3;y[1]:=0.09;
x[2]:=0.8;y[2]:=0.64;
x[3]:=2.3;y[3]:=5.3;
x[4]:=1;y[4]:=1;
x[5]:=8;y[5]:=68.9;

for k:=0 to n do
 begin
   ak[k]:=1;
     for j:=0 to n do
      if j<>k then ak[k]:=ak[k]*(x[k]-x[j]);
   ak[k]:=1/ak[k];
 end;
for k:=0 to n do
  begin
   w:=1;
   for i:=0 to n do
      if i<>k then w:=w*(xx-x);
   pn:=pn+ak[k]*y[k]*w;
  end;
a:=x[0];
b:=x[0];
for i:=1 to n do
 begin
   if x<a then a:=x;
   if x>b then b:=x;
 end;
writeln;
h:=(b-a)/m;
x1:=a;
for l:=0 to m do
begin
x1:=a+l*h;
  pn:=0;
   for k:=0 to n do
     begin
        w:=1;
       for i:=0 to n do
         if i<>k then w:=w*(x1-x);
         pn:=pn+ak[k]*y[k]*w;
     end;
p[l]:=pn;
end;

kx:=600/(b-a);
line(0,200,600,200);
f_max:=p[m];
ky:=200/f_max;
moveto(0,round(200-ky*p[0]));
for i:=0 to m do
lineto(round(i*kx*h),round(200-ky*p));
line(0,195,0,205);
h1:=600/m;
x2:=0;
for i:=0 to m do
   begin
     line(round(x2),195,round(x2),205);
     textout(round(x2),210,floattostr(a+(b-a)/m*i));
     x2:=x2+h1;
   end;
end.

Оффлайн Астасья

  • Постоялец
  • ***
  • Сообщений: 173
    • Просмотр профиля
Re: ф.Лагранжа
« Ответ #4 : 02 Октября 2011, 12:10:10 »
кто-нибудь поможет??????????????

 

Помогите построить график функции y=x^2 на промежутке [-3; 3]

Автор Лика483

Ответов: 2
Просмотров: 9637
Последний ответ 19 Января 2011, 07:56:54
от testtest
Построить график в MathCAD

Автор Snshn

Ответов: 2
Просмотров: 4071
Последний ответ 01 Февраля 2012, 12:54:48
от Dlacier
График в Maple

Автор DeadChild

Ответов: 7
Просмотров: 3794
Последний ответ 04 Декабря 2011, 23:41:01
от DeadChild
Метод простой итерации в MS Excel: ошибка в формуле

Автор lonesome_pirate

Ответов: 3
Просмотров: 4757
Последний ответ 06 Марта 2014, 19:41:34
от mad_math
Вычисление по формуле, согласно норме матрицы

Автор drongoo

Ответов: 5
Просмотров: 6971
Последний ответ 09 Мая 2010, 06:36:20
от drongoo