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 }