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

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,*)' Необходимо выбрать провод больше?