втрати напруги, яка звичайно вважається рівною 0,05 Uном, лежить слабка залежність питомої реактивного опору дроти від його перетину. Необхідно так само зробити перевірку кабелю по допустимому струму і визначити втрати потужності в лінії для зручності подальших розрахунків.
Розрахунок і вибір кабелів проводиться за допомогою наступної програми, реалізованої на мові FORTRAN:
Program fil2
dimension PN (100), QN (100), l (100), PP (100), QP (100), Ul (100), ai (100)
real l
open (6, file = 'is2.dat')
open (7, file = 'rez2.dat')
read (6, *) n, g, x1, Unom, Udop
read (6, *) (PN (i), QN (i), l (i), i = 1, n)
n - Число навантажень
g - Провідність
x1 - Індуктивне опір одного км. кабельної лінії
Unom - Номінальна напруга 0.38 кВ
Udop - Допустима втрата напруга, для мережі 0.4 кВ дорівнює 19 В
Write (7, *) 'ІХОДНИЕ ДАНІ'
Write (7, *) 'Кількість навантажень'
Write (7, *) 'n =', n
Write (7, *) 'Питомапровідність матеріалу '
Write (7, *) 'g =', g, ' См '
Write (7, *) 'Індуктивний опір одного км кабельної лінії '
Write (7, *) "x1 = ', x1,' Ом/км '
Write (7, *) "Номінальна напруга живильної лінії '
Write (7, *) 'Unom =', Unom, ' кВ '
Write (7, *) 'Допустима величина втрати напруги '
Write (7, *) 'Udop =', Udop, ' В '
do i = 1, n
PP (i) = 0
QP (i) = 0
Ul (i) = 0
enddo
* Визначаємо перетоки активної і реактивної потужності
Write (7, *) "'
Write (7, *) 'РЕЗУЛЬТАТИ РОЗРАХУНКУ'
Write (7, *) ''
Write (7, *) 'Визначаємо перетоки активної і реактивної потужності '
Write (7, *) 'на кожній ділянці'
do j = 1, n
do i = j, n
PP (j) = PP (j) + PN (i)
QP (j) = QP (j) + QN (i)
enddo
Write (7, *) 'PP (', j, ') =', PP (j), ' кВт '
Write (7, *) 'QP (', j, ') =', QP (j), ' кВАр '
enddo
do i = 1, n
ai (i) = sqrt (pp (i) ** 2 + qp (i) ** 2)/(1.73 * Unom)
Write (7, *) "Токі на ділянках лінії '
Write (7, *) 'ai (', i, ') =', ai (i), 'A'
enddo
* Визначення реактивної втрати напруги
Up = 0
do i = 1, n
Up = Up + QP (i) * l (i) * (x1/(Unom * 1000))
enddo
Write (7, *) 'Реактивна складова втрати напруги '
Write (7, *) 'Up =', Up, ' В '
* опреділеніе активної втрати напруги
Ua = Udop-Up
Write (7, *) 'Активна состовляющих втрати напруги '
Write (7, *) 'Ua =', Ua, ' В '
* Визначення перерізу кабелю
S = 0
do i = 1, n
S = S + PP (i) * l (i)
enddo
S = S/(Unom * g * Ua)
1 write (7, *) 'Економічне перетин кабелю'
Write (7, *) 'S =', S
Write (*, *) 'S =', S
Write (*, *) 'Введіть перетин кабелю по паспортом '
Write (*, *) 'S0 ='
Read (*, *) S0
Write (*, *) 'Введіть активний опір кабелю R '
Write (*, *) 'r0 ='
Read (*, *) r0
Write (7, *) 'Активний опір одного км кабелю '
Write (7, *) "r0 = ', r0,' Ом/км '
Write (*, *) 'Індуктивний опір кабелю '
Write (*, *) 'x0 ='
Read (*, *) x0
Write (7, *) 'Індуктивний опір одного км кабелю '
Write (7, *) 'x0 =', x0, ' Ом/км '
Write (*, *) 'Введіть допустимий струм кабелю'
Read (*, *) id
Втрата напруги на ділянці лінії
do i = 1, n
Ul (i) = Ul (i) + PP (i) * l (i) * r0/(Unom * 1000) + QP (i) * l (i) * x0/(Unom * 1000)
Write (7, *) 'Втрата напруги на ділянці лінії '
Write (7, *) 'Ul (', i, ') =', Ul (i), 'В'
enddo
Втрата напруги на всій лінії
UU = 0
do i = 1, n
UU = UU + Ul (i)
enddo
Write (7, *) "Втрата напруги на всій лінії '
Write (7, *) "UU = ', UU,' В '
if (UU.le.Udop) then
Write (7, *) 'Вибрати кабель перетином S0 = ', S0,' мм2 '
Write (7, *) 'r0 =', r0, ' ОМ/км '
Write (7, *) 'x0 =', x0, ' Ом/км '
Write (7, *) 'Допустимий струм в кабелі Id =', id, 'A'
Im = sqrt (pp (1) * pp (1) + qp (1) * qp (1))/(sqrt (3) * Unom) p> dP = 0
do i = 1, n
dP = dP + ((pp (i) ** 2 + qp (i) ** 2) * r0 * l (i))/(Unom ** 2 * 1000 * 1000)
...
