1 files changed, 18 insertions, 0 deletions
diff --git a/50/DEPENDENCIES/iteratedinterpol.sci b/50/DEPENDENCIES/iteratedinterpol.sci
new file mode 100755
index 000000000..2997bd6c5
--- /dev/null
+++ b/50/DEPENDENCIES/iteratedinterpol.sci
@@ -0,0 +1,18 @@
+function [L012,L02,L01]=iteratedinterpol (x,f,n)
+    X=poly(0,"X");
+    L01=(1/(x(2)-x(1)))*det([f(1) x(1)-X;f(2) x(2)-X]);
+    L02=(1/(x(3)-x(1)))*det([f(1) x(1)-X;f(3) x(3)-X]);
+    L012=(1/(x(3)-x(2)))*det([L01 x(2)-X;L02 x(3)-X]);
+    
+endfunction
+    
+    
+    
+    
+    
+    
+    
+    
+    
+    
+   
+\ No newline at end of file