Initial data commit

Task/Pascal-matrix-generation/Stata/pascal-matrix-generation-1.stata

@@ -0,0 +1,28 @@
+mata
+function pascal1(n) {
+	return(comb(J(1,n,0::n-1),J(n,1,0..n-1)))
+}
+
+function pascal2(n) {
+	a = I(n)
+	a[.,1] = J(n,1,1)
+	for (i=3; i<=n; i++) {
+		a[i,2..i-1] = a[i-1,2..i-1]+a[i-1,1..i-2]
+	}
+	return(a)
+}
+
+function pascal3(n) {
+	a = J(n,n,0)
+	for (i=1; i<n; i++) {
+		a[i+1,i] = i
+	}
+	s = p = I(n)
+	k = 1
+	for (i=0; i<n; i++) {
+		p = p*a/k++
+		s = s+p
+	}
+	return(s)
+}
+end

Task/Pascal-matrix-generation/Stata/pascal-matrix-generation-2.stata

@@ -0,0 +1,31 @@
+: a = pascal3(5)
+: a
+       1   2   3   4   5
+    +---------------------+
+  1 |  1   0   0   0   0  |
+  2 |  1   1   0   0   0  |
+  3 |  1   2   1   0   0  |
+  4 |  1   3   3   1   0  |
+  5 |  1   4   6   4   1  |
+    +---------------------+
+
+: a'
+       1   2   3   4   5
+    +---------------------+
+  1 |  1   1   1   1   1  |
+  2 |  0   1   2   3   4  |
+  3 |  0   0   1   3   6  |
+  4 |  0   0   0   1   4  |
+  5 |  0   0   0   0   1  |
+    +---------------------+
+
+: a*a'
+[symmetric]
+        1    2    3    4    5
+    +--------------------------+
+  1 |   1                      |
+  2 |   1    2                 |
+  3 |   1    3    6            |
+  4 |   1    4   10   20       |
+  5 |   1    5   15   35   70  |
+    +--------------------------+