0 / 0 / 0
Регистрация: 21.11.2018
Сообщений: 13
1

выписать кубические сплайны дефекта 1 на каждом отрезке

16.12.2018, 14:11. Показов 1489. Ответов 1
Метки нет (Все метки)

y=ln(2-x) x*= 0,5
xi=0;0.2;0.4;0.6;0.8

i 0 1 2 3 4
xi 0 0,2 0,4 0,6 0,8
yi 0,69 0,58 0,47 0,33 0,18
(x1)= (x5)=0
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Program SPLAIN;
var     x,y:array[0..4] of real;
        a,b,d:array[0..3] of real;
        c:array[0..4] of real;
        a1,b1,c1,d1,P,Q:array[1..3] of real;
        i,j,k:integer;
begin
x[0]:=-5;
x[1]:=-4;
x[2]:=-3;
x[3]:=-2;
x[4]:=-1;
   for i:=0 to 4 do y[i]:=1/(x[i]);
  a1[1]:=0;                            c1[1]:=(x[2]-x[1])/3;
  a1[2]:=(x[2]-x[1])/3;          c1[2]:=(x[3]-x[2])/3;
  a1[3]:=(x[3]-x[2])/3;          c1[3]:=0;
   for i:=1 to 3 do begin
b1[i]:=2*(x[i+1]-x[i-1])/3;
d1[i]:=(y[i+1]-y[i])/(x[i+1]-x[i])-(y[i]-y[i-1])/(x[i]-x[i-1]);
end;
P[1]:=-c1[1]/b1[1];  Q[1]:=d1[1]/b1[1];
   for i:=2 to 3 do
begin
P[i]:=-c1[i]/(b1[i]+a1[i]*P[i-1]);
Q[i]:=(d1[i]-a1[i]*Q[i-1])/(b1[i]+a1[i]*P[i-1])
end;
c[0]:=0;
c[4]:=0;
   for i:=3 downto 1 do
c[i]:=P[i]*c[i+1]+Q[i];
   for i:=0 to 3 do
begin
d[i]:=(c[i+1]-c[i])/3/(x[i+1]-x[i]);
b[i]:=(y[i+1]-y[i])/(x[i+1]-x[i])-(x[i+1]-x[i])*(c[i+1]+2*c[i])/3;
a[i]:=y[i];
end;
writeln('coeff a: ');
   for i:=0 to 3 do write(a[i]:10:3,' ');
readln;
writeln('coeff b: ');
   for i:=0 to 3 do write(b[i]:10:3,' ');
readln;
writeln('coeff c: ');
   for i:=0 to 3 do write(c[i]:10:3,' ');
readln;
writeln('coeff d: ');
    for i:=0 to 3 do write(d[i]:10:3,' ');
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2018, 14:11
Ответы с готовыми решениями:

Кубические сплайны
Здраствуйте. Везде в описаниях кубического сплайна фигурирует условие что Х0 < X1 < X2 <..<Xn....

Сплайн интерполяция(кубические сплайны)
Доброго времени суток. Вот необходимо разобраться в методе "сплайн интерполяция(кубический...

Кубические сплайны в специальной форме
Для краевых условий 1-3 построить кубические сплайны в специальной форме. подскажите как...

Кубические сплайны для отыскания производной по точкам
В Maple есть хорошие встроенные функции, для воспроизведения производной по заданному набору точек...

1
0 / 0 / 0
Регистрация: 21.11.2018
Сообщений: 13
16.12.2018, 14:13  [ТС] 2
Pascal
1
2
3
4
5
6
begin
x[0]:=0;
x[1]:=0.2;
x[2]:=0.4;
x[3]:=0.6;
x[4]:=0.8;
ошиблась,такие значения тут
для первой нашел, а для остальных ошибка
Миниатюры
выписать кубические сплайны дефекта 1 на каждом отрезке  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2018, 14:13
Помогаю со студенческими работами здесь

В чем преимущество сплайна дефекта 1 над сплайном дефекта 2 ?
Помогите разобраться с вопросом,чем сплайн дефекта один превосходит сплайн дефекта 2 ? Я...

Кубические автоморфные числа равны последним цифрам своих кубов. Например: б3 = 216, найти все кубические автоморфные числа не превышающие 999
Кубические автоморфные числа равны последним цифрам своих кубов. Например: б3 = 216, найти все...

Сплайны Безье и В-сплайны
Вопрос: как построить сплайн Безье (или В-сплайн) через N точек, соединяя каждую точку кубической...

Дан текст. В каждом предложении выписать самое длинное и самое короткое слово
Дан текст. В каждом предложении выписать самое длинное и самое короткое слово.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru