Posted to tcl by auriocus at Fri May 30 18:28:27 GMT 2014view raw
- 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
- }