ється за розрахунковою потужності трансформатора з урахуванням 40%-й перевантаження аналогічно п.3.:
Program fil5
open (4, file = 'is5.dat')
open (5, file = 'rez5.dat')
read (4, *) pnn, qnn, unom, un, dl, ej, udop
pnn-сумарна активна навантаження (Ра + Рв + Рс + Ртр10/0.4)
qnn-сумарнареактивна навантаження (Q а + Qв + Q з + Qтр10/0.4)
unom-номінальне напруга мережі
dl-довжина лінії
rt-активний опір трансформатора
xt-індуктивне опір трансформатора
dpst-активні втрати в трансформаторі
dqst-реактивні втрати в трансформаторі
str-номінальна потужність трансформатора
udop-допустима втрата напруги
dpk-втрати короткого замикання
uk-напруга короткого замикання
* Повна потужність
ss = sqrt (pnn ** 2 + qnn ** 2)
write (5, *) 'Повна потужність: Ss = ', ss,' МВА '
sras = ss/1.4
write (5, *) 'Розрахункова потужністьтрансформатора: Sras = ', sras,' МВА '
write (*, *) 'Розрахункова потужність трансформатора: Sras = ', sras,' МВА '
write (*, *) 'Введіть Sном трансформатора в МВА '
read (*, *) str
write (5, *) 'Номінальна потужність трансформатора: Str = ', str,' МВА '
write (*, *) 'Введіть r трансформатора в Ом-х '
read (*, *) rt
write (*, *) 'Введіть x трансформатора в Ом-х '
read (*, *) xt
write (*, *) 'Введіть Pxx трансформатора в МВА '
read (*, *) dpst
write (*, *) 'Введіть Qxx трансформатора в МВА '
read (*, *) dqst
write (*, *) 'Введіть Pкз трансформатора в МВА '
read (*, *) dpk
write (*, *) 'Введіть Uкз трансформатора в% '
read (*, *) uk
* Втрати активної потужності трансформатора
dpt = 2 * dpst +0.5 * dpk * (ss/str) ** 2
* Втрати реактивної потужності
dqt = 2 * dpst +0.5 * (uk * str/100) * (ss/str) ** 2
write (5, *) 'Втрати P в тран-ре: dPt = ', dpt,' МВт '
write (5, *) 'Втрати Q в тран-ре: dQt = ', dqt,' МВАр '
* Активна і реактивна навантаження
pnn1 = pnn + dpt
qnn1 = qnn + dqt
write (5, *) 'Активна навантаження лінії: Pnn1 = ', pnn1,' МВт '
write (5, *) 'Реактивна навантаження лінії: Qnn1 = ', qnn1,' МВАр '
* Повне навантаження
ds = sqrt (pnn1 ** 2 + qnn1 ** 2)
write (5, *) 'Повна потужність: dS = ', ds,' MВА '
* Розрахунковий струм
rabi = ds/(2 * sqrt (3) * unom) * 1000
write (5, *) 'Розрахунковий струм лінії: rabi = ', rabi,' A '
* Перетин дроту
s = rabi/ej
write (*, *) 'Економічне переріз проводу: S = ', s,' мм2 '
write (*, *) 'Введіть переріз проводу за паспортом '
read (*, *) s0
write (5, *) 'Економічне переріз проводу: S = ', s,' мм2 '
write (5, *) 'Cеченіе обраного проводу за паспортом: S0 = ', s0,' мм2 '
write (*, *) 'Введіть значення r0 =? '
read (*, *) r0
write (*, *) 'Введіть значення x0 =? '
read (*, *) x0
write (*, *) 'Введіть питому ємнісну провідність b0 =? '
read (*, *) b0
write (*, *) 'Введіть тривало допустимий струм Idop =? '
read (*, *) Idop
write (5, *) 'Тривало допустимий струм в лінії: Idop = ', Idop,' A '
* Перевірка по втраті напруги
* Вважаємо втрату напруги в лінії
uu = pnn1 * 1000 * dl * r0/(2 * unom) + qnn1 * 1000 * dl * x0/(2 * unom)
write (5, *) 'Втрата напруги: UU = ', uu,' B '
write (5, *) 'Втрата напруги при відкл. одній лінії UU = ', uu * 2,' B '
write (5, *) 'Розрахунковий струм в лінії: rabi = ', rabi,' A '
write (5, *) 'Розрахунковий струм при відкл. одній лінії rabi = ', rabi * 2,' A '
* Перевіримо втрату напруги для аварійного режиму коли одна лінія виходить з буд
if (Uu * 2.le.udop.and.rabi * 2.le.Idop) then
write (5, *) 'Вибрати провід перетином: S0 = ', s0,' мм2 '
write (5, *) 'r0 =', r0, 'Ом/км'
write (5, *) 'x0 = ', X0,' Ом/км '
write (5, *) 'b0 = ', B0,' См/км '
else
write (5, *) 'Необхідно вибрати провід більшого перетину '
endif
* Наведене напруга
Upr = Un * (Unom/Un)
write (5, *) 'Наведене напруга: Upr = ', Upr,' кВ '
* Втрати активної потужності в трансформаторі
ptrr = (pnn ** 2 + qnn ** 2) * 0.5 * rt/Upr ** ...
