A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Matrix-exponentiation-operator/R/matrix-exponentiation-operator.r
+++ b/Task/Matrix-exponentiation-operator/R/matrix-exponentiation-operator.r
@ -0,0 +1,22 @@
+library(Biodem)
+m <- matrix(c(3,2,2,1), nrow=2)
+mtx.exp(m, 0)
+#      [,1] [,2]
+# [1,]    1    0
+# [2,]    0    1
+mtx.exp(m, 1)
+#      [,1] [,2]
+# [1,]    3    2
+# [2,]    2    1
+mtx.exp(m, 2)
+#      [,1] [,2]
+# [1,]   13    8
+# [2,]    8    5
+mtx.exp(m, 3)
+#      [,1] [,2]
+# [1,]   55   34
+# [2,]   34   21
+mtx.exp(m, 10)
+#         [,1]   [,2]
+# [1,] 1346269 832040
+# [2,]  832040 514229