Less verbose printing

Co-authored-by: "Shashi Gowda" <[email protected]>

Author: YingboMa

src/systems/abstractsystem.jl

@@ -319,11 +319,13 @@ end
 
 function Base.show(io::IO, sys::AbstractSystem)
     eqs = equations(sys)
-    Base.printstyled(io, "Equations ($(length(eqs))):\n"; bold=true)
-    Base.print_matrix(io, eqs)
-    println(io)
+    Base.printstyled(io, "Model $(nameof(sys)) with $(length(eqs)) equations\n"; bold=true)
+    # The reduced equations are usually very long. It's not that useful to print
+    # them.
+    #Base.print_matrix(io, eqs)
+    #println(io)
 
-    rows = first(displaysize(io)) ÷ 3
+    rows = first(displaysize(io)) ÷ 5
     limit = get(io, :limit, false)
 
     vars = states(sys); nvars = length(vars)

test/reduction.jl

@@ -41,6 +41,22 @@ eqs = [
 lorenz1 = ODESystem(eqs,t,name=:lorenz1)
 
 lorenz1_aliased = alias_elimination(lorenz1)
+io = IOBuffer(); show(io, lorenz1_aliased); str = String(take!(io))
+@test str == """
+Model lorenz1 with 4 equations
+States (3):
+  x(t)
+  y(t)
+  z(t)
+Parameters (3):
+  σ
+  ρ
+  β
+Incidence matrix:
+ ×  ×  ×  ⋅  ⋅
+ ×  ×  ⋅  ×  ×
+ ×  ×  ⋅  ⋅  ×
+ ×  ×  ⋅  ⋅  ⋅"""
 reduced_eqs = [
                D(x) ~ σ*(y - x)
                D(y) ~ β + x*(ρ - z) - y