Fausto Saporito TheFausap
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ts:{(./!x)!,,/((./.x)*\:(./.y))} | |
| sp:{+/((,/.x)*(,/.y))} | |
| dim:1025#0 | |
| dim[2]:1 | |
| dim[4]:2 | |
| dim[8]:3 | |
| dim[16]:4 | |
| dim[32]:5 | |
| dim[64]:6 | |
| dim[128]:7 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| TITLE PD8SM1 | |
| ^^START: RESET | |
| OPEN 1,FDB1 | |
| HALT . | |
| ENTER 1,ENT1 | |
| HALT . | |
| OPEN 2,FDB2 | |
| HALT . | |
| ENTER 2,ENT2 | |
| HALT . |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| COMMENT ⊗ VALID 00021 PAGES | |
| C REC PAGE DESCRIPTION | |
| C00001 00001 | |
| C00003 00002 β Definition of Terms | |
| C00008 00003 MUMBLE Classes | |
| C00015 00004 MUMBLE Declarations | |
| C00021 00005 | |
| C00024 00006 MUMBLE Statements | |
| C00031 00007 MUMBLE Expression Parsers | |
| C00033 00008 MUMBLE Main Expression Parser |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; -*-MIDAS-*- | |
| TITLE CHESS | |
| DEBUG==1 | |
| IF2,IFN DEBUG,PRINTX \DEBUG VERSION | |
| \ | |
| NW==12 ;NUMBER OF WORDS PER MVT BLOCK | |
| EXPUNGE OPT | |
| DEFINE BUG A1,A2,A3,A4 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* -*-Macsyma-*- | |
| diag.mac | |
| Contains the functions: | |
| (1) diag | |
| (2) JF | |
| (3) jordan | |
| (4) minimalPoly | |
| (5) dispJordan | |
| (6) ModeMatrix |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| kprod(m1,m2) := block([res,t,t1], | |
| if (not matrixp(m1)) or (not matrixp(m2)) then error("Wrong args"), | |
| t : m1[1,1] * m2, | |
| t1 : makelist(0,length(m1)), | |
| for j : 1 thru length(m2) do ( | |
| for i : 2 thru length(m1) do ( | |
| t : addcol(t, m1[j,i]*m2)), | |
| t1[j] : t, | |
| t : m1[j,1]*m2), | |
| res : t1[1], |