initial commit / add all books

1 files changed, 22 insertions, 0 deletions

diff --git a/2048/DEPENDENCIES/putin.sci b/2048/DEPENDENCIES/putin.sci
new file mode 100755
index 000000000..706898856
--- /dev/null
+++ b/2048/DEPENDENCIES/putin.sci
@@ -0,0 +1,22 @@
+// function [A,degA] = putin(A,degA,B,degB,i,j)

+// PUTS IN THE POLYNOMIAL B INTO THE MATRIX A AT (i,j)TH POSITION

+// Modified by Kannan Moudgalya on 8 November 1992

+

+function [A,degA] = putin(A,degA,B,degB,i,j)

+

+[rA,cA] = polsize(A,degA);

+if degB > degA

+  A = [A zeros(rA,(degB-degA)*cA)]; 

+  degA = degB;

+end  

+

+for k = 0:degB

+  A(i,(k*cA)+j) = B(1,k+1);

+end

+if degA > degB

+   for k = degB+1:degA

+       A(i,(k*cA)+j) = 0;

+   end

+   [A,degA] = clcoef(A,degA);

+end

+endfunction;