1 files changed, 32 insertions, 0 deletions
diff --git a/413/CH3/EX3.3/Example_3_3.sce b/413/CH3/EX3.3/Example_3_3.sce
new file mode 100644
index 000000000..efd167c30
--- /dev/null
+++ b/413/CH3/EX3.3/Example_3_3.sce
@@ -0,0 +1,32 @@
+clc
+clear
+x=[3.2 2.7 1 4.8 5.6];
+y=[22 17.8 14.2 38.3 51.7]
+for i=1:1:5
+X=[x(1,i)  y(1,i)]
+disp(X)
+end
+for i=1:1:4
+A(1,i)=(y(1,i+1)-y(1,i))/(x(1,i+1)-x(1,i)) 
+end
+for i=1:1:3
+B(1,i)=(A(1,i+1)-A(1,i))/(x(1,i+2)-x(1,i)) 
+end
+for i=1:1:2
+C(1,i)=(B(1,i+1)-B(1,i))/(x(1,i+3)-x(1,i)) 
+end
+for i=1:1:1
+D(1,i)=(C(1,i+1)-C(1,i))/(x(1,i+4)-x(1,i)) 
+end
+out=[x(1,1),y(1,1) ]
+disp(out)
+out1=[x(1,2),y(1,2), A(1,1) ]
+disp(out1)
+out2=[x(1,3),y(1,3), A(1,2), B(1,1),C(1,1),D(1,1) ]
+disp(out2)
+out3=[x(1,4),y(1,4), A(1,3), B(1,2),C(1,2) ]
+disp(out3)
+out4=[x(1,5),y(1,5), A(1,4), B(1,3) ]
+disp(out4)
+P3=C(1,1)*(3-x(1,1))*(3-x(1,2))*(3-x(1,3))+B(1,1)*(3-x(1,1))*(3-x(1,2))+A(1,1)*(3-x(1,1))+y(1,1)
+disp(P3)
+\ No newline at end of file