25 lines
		
	
	
		
			942 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			25 lines
		
	
	
		
			942 B
		
	
	
	
		
			Factor
		
	
	
USING: help.markup help.syntax math sequences ;
 | 
						|
 | 
						|
IN: math.matrices
 | 
						|
 | 
						|
HELP: zero-matrix
 | 
						|
{ $values { "m" integer } { "n" integer } { "matrix" sequence } }
 | 
						|
{ $description "Creates a matrix of size " { $snippet "m x n" } ", filled with zeroes." } ;
 | 
						|
 | 
						|
HELP: diagonal-matrix
 | 
						|
{ $values { "diagonal-seq" sequence } { "matrix" sequence } }
 | 
						|
{ $description "Creates a matrix with the specified diagonal values." } ;
 | 
						|
 | 
						|
HELP: identity-matrix
 | 
						|
{ $values { "n" integer } { "matrix" sequence } }
 | 
						|
{ $description "Creates an identity matrix of size " { $snippet "n x n" } ", where the diagonal values are all ones." } ;
 | 
						|
 | 
						|
HELP: kron
 | 
						|
{ $values { "m1" sequence } { "m2" sequence } { "m" sequence } }
 | 
						|
{ $description "Calculates the Kronecker product of two matrices." }
 | 
						|
{ $examples
 | 
						|
    { $example "USING: math.matrices prettyprint ;"
 | 
						|
        "{ { 1 2 } { 3 4 } } { { 0 5 } { 6 7 } } kron ."
 | 
						|
        "{ { 0 5 0 10 } { 6 7 12 14 } { 0 15 0 20 } { 18 21 24 28 } }" }
 | 
						|
} ;
 |