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

do i=1,n

do j=i+1,n+1

Pp(1)=Pp(1)+Pn(i)*l(j)/dl

Qp(1)=Qp(1)+Qn(i)*l(j)/dl

enddo

enddo

Write(6,*)' Ристочникапитания Pp(1)=',Pp(1),' кВт'

Write(6,*)' Q источника питания Qp(1)=',Qp(1),' кВАр'

*Определим перетоки мощности ветви

do i=2,n+1

Pp(i)=Pp(i-1)-Pn(i-1)

Qp(i)=Qp(i-1)-Qn(i-1)

Write(6,*)'Pp(',i,')=',Pp(i)

Write(6,*)'Qp(',i,')=',Qp(i)

enddo

*Найдем точки токораздела активных и реактивных мощностей

do i=1,n

if(Pp(i+1).lt.0)then

Write(6,*)' Точка токораздела активных мощностей'

ia=i

Write(6,*)'ia=',ia

Goto 1

endif

enddo

1do i=1,n

if(Qp(i+1).lt.0)then

Write(6,*)' Точка токораздела реактивных мощностей'

ir=i

Write(6,*)'ir=',ir