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)
dP=0
do i=1,n
dP=dP+((pp(i)**2+qp(i)**2)*r0*l(i))/(Unom**2*1000*1000)
end do
Write(7,*)' Расчетный ток в кабеле Im=',im,' A'
Write(7,*)' Потеря мощности в линии dP=',dP,' кВт'
if (im.le.id) then
Write(7,*)' Кабель полностью удовлетворяет условиям'
Write(*,*)' Кабель полностью удовлетворяет условиям'
else
Write(7,*)' Необходимо выбрать кабель большего сечения'
Write(*,*)' Необходимо выбрать кабель большего сечения'
end if
else
Write(7,*)' Необходимо выбрать кабель большего сечения'
Write(*,*)' Необходимо выбрать кабель большего сечения'
Goto 1
endif
end
2.1. Производим расчет для двух домов
Данные для расчета:
2 32 0.06 0.4 20
42.045 8.538 40 39.52 6.8025 60
где2-число нагрузок домов;
32-удельная проводимость материала, из которого изготовлен проводник,
м/мм2*Ом;
0,06-индуктивное сопротивление 1 км кабельной линии, Ом;
0,4-номинальное напряжение сети, кВ;
20-допустимая потеря напряжения, В;
В нижней строке приведены нагрузки домов последовательно P, Q, l.
Результаты расчетов:
ИХОДНЫЕ ДАННЫЕ
Число нагрузок
n= 2
Удельная проводимость материала
g=32.000000 См
Индуктивное сопротивление одного км кабельной линии
x1= 6.000000E-02 Ом/км
Номинальное напряжение питающей линии
Unom= 4.000000E-01 кВ
Допустимая величина потери напряжения
Udop=20.000000 В
РЕЗУЛЬТАТЫ РАСЧЕТА
Определяем перетоки активной и реактивной мощности
на каждом участке
PP( 1)=81.565000 кВт
QP( 1)=15.340500 кВАр
PP( 2)=39.520000 кВт
QP( 2)= 6.802500 кВАр
Токи на участках линии
ai( 1)= 119.935100A
Токи на участках линии
ai( 2)=57.949680A
Реактивная составляющая потери напряжения
Up= 1.532655E-01 В
Активная составляющая потери напряжения
Ua=19.846740 В
Экономическое сечение кабеля
S=22.176980
Активное сопротивление одного км кабеля
r0= 1.240000 Ом/км
Индуктивное сопротивление одного км кабеля
x0= 6.600000E-02 Ом/км
Потеря напряжения на участке линии
Ul( 1)=10.215310 В
Потеря напряжения на участке линии
Ul( 2)= 7.418065 В
Потеря напряжения на всей линии
UU=17.633370 В
Выбрать кабель сечением S0=25.000000 мм2
r0= 1.240000 ОМ/км
x0= 6.600000E-02 Ом/км
Допустимый ток в кабеле Id= 115 A
Расчетный ток в кабеле Im= 119 A
Потеря мощности в линии dP= 2.883105 кВт
Необходимо выбрать кабель большего сечения.
ИХОДНЫЕ ДАННЫЕ
Число нагрузок
n= 2
Удельная проводимость материала
g=32.000000 См
Индуктивное сопротивление одного км кабельной линии
x1= 6.000000E-02 Ом/км
Номинальное напряжение питающей линии
Unom= 4.000000E-01 кВ
Допустимая величина потери напряжения
Udop=20.000000 В
РЕЗУЛЬТАТЫ РАСЧЕТА
Определяем перетоки активной и реактивной мощности
на каждом участке
PP( 1)=81.565000 кВт
QP( 1)=15.340500 кВАр
PP( 2)=39.520000 кВт
QP( 2)= 6.802500 кВАр
Токи на участках линии
ai( 1)= 119.935100A
Токи на участках линии
ai( 2)=57.949680A
Реактивная составляющая потери напряжения
Up= 1.532655E-01 В
Активная состовляющая потери напряжения
Ua=19.846740 В
Экономическое сечение кабеля
S=22.176980
Активное сопротивление одного км кабеля
r0= 8.900000E-01 Ом/км
Индуктивное сопротивление одного км кабеля
x0= 6.300000E-02 Ом/км
Потеря напряжения на участке линии
Ul( 1)= 7.355930 В
Потеря напряжения на участке линии
Ul( 2)= 5.340203 В
Потеря напряжения на всей линии
UU=12.696130 В
Выбрать кабель сечением S0=35.000000 мм2
r0= 8.900000E-01 ОМ/км
x0= 6.300000E-02 Ом/км
Допустимый ток в кабеле Id= 135 A
Расчетный ток в кабеле Im= 119 A
Потеря мощности в линии dP= 2.069325 кВт
Кабель полностью удовлетворяет условиям.
2.2. Производим расчет для общественно-коммунальных предприятий и административных зданий
Данные для расчета:
4 32 0.06 0.4 20
32.2 6.786 70 79.8 38.649 60 32 8.02 50 9.57 4.635 70
где4-число нагрузок зданий;
32-удельная проводимость материала, из которого изготовлен проводник, м/мм2*Ом;
0,06-индуктивное сопротивление 1 км кабельной линии, Ом;
0,4-номинальное напряжение сети, кВ;
20-допустимая потеря напряжения, В;
В нижней строке приведены нагрузки зданий последовательно P, Q, l.
Результаты расчетов:
ИХОДНЫЕ ДАННЫЕ
Число нагрузок
n= 4
Удельная проводимость материала
g=32.000000 См
Индуктивное сопротивление одного км кабельной линии
x1= 6.000000E-02 Ом/км
Номинальное напряжение питающей линии
Unom= 4.000000E-01 кВ
Допустимая величина потери напряжения
Udop=20.000000 В
РЕЗУЛЬТАТЫ РАСЧЕТА
Определяем перетоки активной и реактивной мощности
на каждом участке
PP( 1)= 153.570000 кВт
QP( 1)=58.090000 кВАр
PP( 2)= 121.370000 кВт
QP( 2)=51.304000 кВАр
PP( 3)=41.570000 кВт
QP( 3)=12.655000 кВАр
PP( 4)= 9.570000 кВт
QP( 4)= 4.635000 кВАр
Токи на участках линии
ai( 1)= 237.268100A
Токи на участках линии
ai( 2)= 190.416000A
Токи на участках линии
ai( 3)=62.794190A
Токи на участках линии
ai( 4)=15.366110A
Реактивная составляющая потери напряжения
Up= 1.215261 В
Активная состовляющая потери напряжения
Ua=18.784740 В
Экономическое сечение кабеля
S=86.425290
Активное сопротивление одного км кабеля
r0= 3.260000E-01 Ом/км
Индуктивное сопротивление одного км кабеля
x0= 6.000000E-02 Ом/км
Потеря напряжения на участке линии
Ul( 1)= 9.371114 В
Потеря напряжения на участке линии
Ul( 2)= 6.396729 В
Потеря напряжения на участке линии
Ul( 3)= 1.788890 В
Потеря напряжения на участке линии
Ul( 4)= 5.946360E-01 В
Потеря напряжения на всей линии
UU=18.151370 В
Выбрать кабель сечением S0=95.000000 мм2
r0= 3.260000E-01 ОМ/км
x0= 6.000000E-02 Ом/км
Допустимый ток в кабеле Id= 240 A
Расчетный ток в кабеле Im= 236 A
Потеря мощности в линии dP= 6.176000 кВт
Кабель полностью удовлетворяет условиям
2.3. Производим расчет кабеля для коттеджей и парикмахерской
Данные для расчета:
2 32 0.06 0.38 10,629
42 8.4 60 3.9 0.98 40
где2-число нагрузок ;
32-удельная проводимость материала, из которого изготовлен проводник, м/мм2*Ом;
0,06-индуктивное сопротивление 1 км кабельной линии, Ом;
0,4-номинальное напряжение сети, кВ;
10,629-допустимая потеря напряжения на данном присоединении, В;
В нижней строке приведены нагрузки последовательно P, Q, l.
