# Exemplo do livro: quadro de distribuição trifásico (3F-N), 127/220V, de um local comercial
# Tabela 4.8 (cargas) -> Tabela 4.9 (cálculo) -> Expressões 4.25 a 4.29
# Os arredondamentos intermediários seguem os da Tabela 4.9 do livro, o que
# permite reproduzir exatamente os valores impressos.
UN = 220.0 # V (tensão de linha do circuito trifásico 3F-N, 127/220 V)
t = sqrt(3)
tg(cosf) = round(tan(acos(cosf)), digits=2)
# --- Conjuntos de cargas: (nome, Pinst [kW], g, cosφ) ---
# Obs.: o livro arredonda a potência unitária da iluminação fluorescente
# (4x0,04/0,7 = 0,229 kW) ANTES de multiplicar pela quantidade -- reproduzido
# abaixo para bater exatamente com a Tabela 4.9.
conjuntos = [
("Iluminação fluorescente", 32 * round(4*0.04/0.7, digits=3), 1.0, 0.85),
("Iluminação incandescente", 8 * 0.1, 1.0, 1.00),
("Tomada de uso geral", round(28 * (0.2*0.9), digits=2), 0.3, 0.90),
("Ar-condicionado", round(6 * (2.2*0.8), digits=1), 1.0, 0.80),
]
# --- Cargas isoladas: (nome, PN [kW], cosφ) ---
isoladas = [
("Chuveiro elétrico", 6.0, 1.00),
("Aquecedor de marmita", 2.5, 1.00),
("Máquina copiadora", 2.5, 0.80),
]
PA = 0.0
QA = 0.0
println("Conjuntos de cargas (Tabela 4.9):")
for (nome, Pinst, g, cosf) in conjuntos
tgf = tg(cosf)
Dg = round(Pinst * g, digits=2)
Q = round(Dg * tgf, digits=2)
global PA += Dg
global QA += Q
println(" ", rpad(nome, 28), " Pinst=", Pinst, " kW g=", g, " Pinst.g=", Dg, " kW tgphi=", tgf, " Q=", Q, " kvar")
end
println("Cargas isoladas:")
for (nome, PN, cosf) in isoladas
tgf = tg(cosf)
Q = round(PN * tgf, digits=2)
global PA += PN
global QA += Q
println(" ", rpad(nome, 28), " PN=", PN, " kW tgphi=", tgf, " Q=", Q, " kvar")
end
PA = round(PA, digits=2)
QA = round(QA, digits=2)
SA = round(sqrt(PA^2 + QA^2), digits=2)
cosphi = round(PA / SA, digits=2)
IB = round(PA*1000 / (t * UN * cosphi), digits=1)
# --- Expressões 4.25 a 4.29: duas grandezas por linha, para caber no slide ---
println("--- Expressões 4.25 a 4.29 ---")
col = 24
println(rpad("PA = $(PA) kW", col), "QA = $(QA) kvar")
println(rpad("SA = $(SA) kVA", col), "cos φ = $(cosphi)")
println("IB = $(IB) A")
println("(livro: PA=31,24 kW QA=15,09 kvar SA=34,69 kVA cosφ=0,90 IB=91,1 A)")
