#include ../data/case14.txt
#include ../lib/idx_gen.txt
#include ../lib/idx_bus.txt
#include ../lib/make_sdzip.txt
#include ../lib/make_sbus.txt

r = make_sbus(baseMVA, bus, gen);
// |a - b| <= max(|a|, |b|) * max_relative(default=1e-8)
assert_relative_eq(r, [
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)],
    [c(1,0)]
]);
return r;