Курсовая работа: Электрические сети предприятий железнодорожного транспорта

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'