summaryrefslogtreecommitdiff
path: root/260/CH10/EX10.9/10_9.sce
blob: 0a4aad2b01ba50e566315f8670ef383f1bd73163 (plain)
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
//Eg-10.9
//Pg-447

clear
clc

x = [6 9 14 17.5 20];
y = [5 3.04 4.68 2.7 4.75];

n = length(x);    //no. of data points

for(i = 1:n-1)
    s(i,1) = (y(i+1)-y(i))/(x(i+1)-x(i));
end



x = poly(0,'x');

for(i = 1:n-1)
    f(i) = y(i) - s(i)*(x-6);
end

printf('The expressions for first order splines are :\n')
disp(f)