[Octave-cvsupdate] SF.net SVN: octave:[6753] trunk/octave-forge/main/special-matrix/inst/ arecibo.m

[<hi...@us...>]

Revision: 6753
          http://octave.svn.sourceforge.net/octave/?rev=6753&view=rev
Author:   highegg
Date:     2010-01-12 13:47:57 +0000 (Tue, 12 Jan 2010)

Log Message:
-----------
funny matrix

Added Paths:
-----------
    trunk/octave-forge/main/special-matrix/inst/arecibo.m

Added: trunk/octave-forge/main/special-matrix/inst/arecibo.m
===================================================================
--- trunk/octave-forge/main/special-matrix/inst/arecibo.m	                        (rev 0)
+++ trunk/octave-forge/main/special-matrix/inst/arecibo.m	2010-01-12 13:47:57 UTC (rev 6753)
@@ -0,0 +1,84 @@
+## -*- texinfo -*-
+## @deftypefn {Function File} {@var{a}} = arecibo ()
+## Returns the 73x23 logical matrix corresponding to the Arecibo message.
+## @seealso {ones,zeros,eye}
+function a = arecibo ()
+  persistent aa = [
+    "00000010101010000000000";
+    "00101000001010000000100";
+    "10001000100010010110010";
+    "10101010101010100100100";
+    "00000000000000000000000";
+    "00000000000011000000000";
+    "00000000001101000000000";
+    "00000000001101000000000";
+    "00000000010101000000000";
+    "00000000011111000000000";
+    "00000000000000000000000";
+    "11000011100011000011000";
+    "10000000000000110010000";
+    "11010001100011000011010";
+    "11111011111011111011111";
+    "00000000000000000000000";
+    "00010000000000000000010";
+    "00000000000000000000000";
+    "00001000000000000000001";
+    "11111000000000000011111";
+    "00000000000000000000000";
+    "11000011000011100011000";
+    "10000000100000000010000";
+    "11010000110001110011010";
+    "11111011111011111011111";
+    "00000000000000000000000";
+    "00010000001100000000010";
+    "00000000001100000000000";
+    "00001000001100000000001";
+    "11111000001100000011111";
+    "00000000001100000000000";
+    "00100000000100000000100";
+    "00010000001100000001000";
+    "00001100001100000010000";
+    "00000011000100001100000";
+    "00000000001100110000000";
+    "00000011000100001100000";
+    "00001100001100000010000";
+    "00010000001000000001000";
+    "00100000001100000000100";
+    "01000000001100000000100";
+    "01000000000100000001000";
+    "00100000001000000010000";
+    "00010000000000001100000";
+    "00001100000000110000000";
+    "00100011101011000000000";
+    "00100000001000000000000";
+    "00100000111110000000000";
+    "00100001011101001011011";
+    "00000010011100100111111";
+    "10111000011100000110111";
+    "00000000010100000111011";
+    "00100000010100000111111";
+    "00100000010100000110000";
+    "00100000110110000000000";
+    "00000000000000000000000";
+    "00111000001000000000000";
+    "00111010100010101010101";
+    "00111000000000101010100";
+    "00000000000000101000000";
+    "00000000111110000000000";
+    "00000011111111100000000";
+    "00001110000000111000000";
+    "00011000000000001100000";
+    "00110100000000010110000";
+    "01100110000000110011000";
+    "01000101000001010001000";
+    "01000100100010010001000";
+    "00000100010100010000000";
+    "00000100001000010000000";
+    "00000100000000010000000";
+    "00000001001010000000000";
+    "01111001111101001111000";
+  ] == "1";
+  a = aa;
+endfunction
+
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.