print instances with lpad instead of rpad

Author: franckgaga

src/predictive_control.jl

@@ -1002,16 +1002,16 @@ function Base.show(io::IO, mpc::PredictiveController)
     Hp, Hc = mpc.Hp, mpc.Hc
     nu, nd = mpc.estim.model.nu, mpc.estim.model.nd
     nx̂, nym, nyu = mpc.estim.nx̂, mpc.estim.nym, mpc.estim.nyu
-    n = maximum(ndigits.((Hp, Hc, nu, nx̂, nym, nyu, nd)))
+    n = maximum(ndigits.((Hp, Hc, nu, nx̂, nym, nyu, nd))) + 1
     println(io, "$(typeof(mpc).name.name) controller with a sample time Ts = "*
                 "$(mpc.estim.model.Ts) s, $(typeof(mpc.estim).name.name) estimator and:")
-    println(io, " $(rpad(Hp, n)) prediction steps Hp")
-    println(io, " $(rpad(Hc, n)) control steps Hc")
-    println(io, " $(rpad(nu, n)) manipulated inputs u")
-    println(io, " $(rpad(nx̂, n)) states x̂")
-    println(io, " $(rpad(nym, n)) measured outputs ym")
-    println(io, " $(rpad(nyu, n)) unmeasured outputs yu")
-    print(io,   " $(rpad(nd, n)) measured disturbances d")
+    println(io, "$(lpad(Hp, n)) prediction steps Hp")
+    println(io, "$(lpad(Hc, n)) control steps Hc")
+    println(io, "$(lpad(nu, n)) manipulated inputs u")
+    println(io, "$(lpad(nx̂, n)) states x̂")
+    println(io, "$(lpad(nym, n)) measured outputs ym")
+    println(io, "$(lpad(nyu, n)) unmeasured outputs yu")
+    print(io,   "$(lpad(nd, n)) measured disturbances d")
 end
 
 "Verify that the solver termination status means 'no solution available'."

src/sim_model.jl

@@ -89,13 +89,13 @@ end
 function Base.show(io::IO, model::SimModel)
     nu, nd = model.nu, model.nd
     nx, ny = model.nx, model.ny
-    n = maximum(ndigits.((nu, nx, ny, nd)))
+    n = maximum(ndigits.((nu, nx, ny, nd))) + 1
     println(io, "Discrete-time $(typestr(model)) model with "*
                 "a sample time Ts = $(model.Ts) s and:")
-    println(io, " $(rpad(nu, n)) manipulated inputs u")
-    println(io, " $(rpad(nx, n)) states x")
-    println(io, " $(rpad(ny, n)) outputs y")
-    print(io,   " $(rpad(nd, n)) measured disturbances d")
+    println(io, "$(lpad(nu, n)) manipulated inputs u")
+    println(io, "$(lpad(nx, n)) states x")
+    println(io, "$(lpad(ny, n)) outputs y")
+    print(io,   "$(lpad(nd, n)) measured disturbances d")
 end
 
 """

src/state_estim.jl

@@ -36,14 +36,14 @@ end
 function Base.show(io::IO, estim::StateEstimator)
     nu, nd = estim.model.nu, estim.model.nd
     nx̂, nym, nyu = estim.nx̂, estim.nym, estim.nyu
-    n = maximum(ndigits.((nu, nx̂, nym, nyu, nd)))
+    n = maximum(ndigits.((nu, nx̂, nym, nyu, nd))) + 1
     println(io, "$(typeof(estim).name.name) estimator with a sample time "*
                 "Ts = $(estim.model.Ts) s, $(typeof(estim.model).name.name) and:")
-    println(io, " $(rpad(nu, n)) manipulated inputs u")
-    println(io, " $(rpad(nx̂, n)) states x̂")
-    println(io, " $(rpad(nym, n)) measured outputs ym")
-    println(io, " $(rpad(nyu, n)) unmeasured outputs yu")
-    print(io,   " $(rpad(nd, n)) measured disturbances d")
+    println(io, "$(lpad(nu, n)) manipulated inputs u")
+    println(io, "$(lpad(nx̂, n)) states x̂")
+    println(io, "$(lpad(nym, n)) measured outputs ym")
+    println(io, "$(lpad(nyu, n)) unmeasured outputs yu")
+    print(io,   "$(lpad(nd, n)) measured disturbances d")
 end
 
 """