initial commit / add all books

1 files changed, 29 insertions, 0 deletions

diff --git a/1670/CH5/EX5.37/5_37.sce b/1670/CH5/EX5.37/5_37.sce
new file mode 100755
index 000000000..121b25afe
--- /dev/null
+++ b/1670/CH5/EX5.37/5_37.sce
@@ -0,0 +1,29 @@
+//Example 5.37

+//Lagranges Interpolation Method

+//Page no. 177

+clc;close;clear;

+

+x=[0,1,2,5]

+y=[2,3,12,147]

+x0=poly(0,'x')

+printf('\tx\ty=f(x)\n-----------------------\n')

+for i=1:4

+    printf('x%i\t%i\t  %i\n',i-1,x(i),y(i))

+end

+p=1;p1=1;i=1;

+for k=1:4

+    for j=1:4

+        if k~=j then

+            p=p*(x0-x(j))

+            p1=p1*(x(k)-x(j))

+        end

+end

+L(k)=p/p1

+p=1;p1=1;

+end

+p=0;

+for i=1:4

+    disp(L(i),"L(x) = ")

+    p=p+L(i)*y(i)

+end

+disp(p,"P(x) = ")
\ No newline at end of file