Posted to tcl by auriocus at Fri May 30 18:28:27 GMT 2014view pretty

proc ::vectcl::mformat m {
	    # pretty print a matrix 
	    set d [numarray dimensions $m]
	    switch $d {
		1 { set strrep "{$m}" }
		2 { set strrep "{{[join $m "}\n {"]}}" }
		default { return -code error "Can't format $d-dimensional array"}
	    }
	if {[string length $strrep] > 1000} { return "Biiig matrix" } 
return $strrep
	}