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

endif

enddo

2do i=1,n+1

Pp(i)=abs(Pp(i))

Qp(i)=abs(Qp(i))

enddo

*Определение токов на участках линии

Write(6,*)' Токи на участках линии'

do i=1,n+1

Car(i)=(sqrt(Pp(i)**2+Qp(i)**2))/(Unom*sqrt(3))

Write(6,*)'Car(',i,')=',Car(i),' A'

enddo

*Определим эквивалентный ток

Carl=0

do i=1,n+1

Carl=carl+(Car(i)**2*l(i))/dl

enddo

Carl=sqrt(Carl)

Write(6,*)' Эквивалентныйтокравен'

Write(6,*)'Carl=',Carl,' A'

*Выбираем сечение кабеля

3 s=Carl/ej

Write(6,*)' Предварительный расчет сечения кабеля'

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

Write(*,*)' Сечениекабеля'

Write(*,*)'S=',S

Write(*,*)' Введите сечение кабеля по паспорту'

Write(*,*)'S0='

Read(*,*)S0