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

Ur=Ur+Ul(i)

enddo

Write(6,*)' Потеря напряжения до реактивной точки токораздела'

Write(6,*)'Ur=',Ur,' B'

endif

if(Ua.ge.Ur)then

UU=Ua

else

UU=Ur

endif

if(UU.le.Udop)then

Write(6,*)' Выбратьпроводсечением '

Write(6,*)'S0=',S0,' мм2'

else

Write(*,*)' Выбрать провод большего сечения'

Goto 3

endif

*Расчет для Аварийного режима

*Авария в начале линии

UU=0

do i=1,n

do j=i+1,n+1

UU=UU+Pn(i)*l(j)*r0/Unom+Qn(i)*l(j)*x0/Unom

enddo

enddo

Write(6,*)' При аварии в начале линии:'

Write(6,*)' UU=',UU,' В'

if(UU.gt.Udopa)then

Write(6,*)' UU>',Udopa