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

Ua=Udop-Up

Write(7,*)' Активная состовляющая потери напряжения'

Write(7,*)' Ua=',Ua,' В'

*Определение сечения кабеля

S=0

doi=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