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

Write(*,*)'r0='

Read(*,*)r0

Write(*,*)' Введите инд.сопротивление кабеля x0 Ом/км'

Read(*,*)x0

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

Write(6,*)' Потери напряжения на участках линии'

do i=1,n+1

Ul(i)=Ul(i)+Pp(i)*l(i)*r0/Unom+Qp(i)*l(i)*x0/Unom

Write(6,*)'Ul(',i,')=',Ul(i),' B'

enddo

Определим потери напряжения до точек токораздела

Ua=0

if(ia.le.ir)then

do i=1,ia

Ua=Ua+Ul(i)

enddo

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

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

do i=ir+1,n+1

Ur=Ur+Ul(i)

enddo

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

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

else

do i=ia+1,n+1

Ua=Ua+Ul(i)

enddo

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

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