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

QP(i)=0

Ul(i)=0

enddo

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

Write(7,*)' '

Write(7,*)' РЕЗУЛЬТАТЫ РАСЧЕТА '

Write(7,*)' '

Write(7,*)' Определяем перетоки активной и реактивной мощности '

Write(7,*)' на каждом участке '

do j=1,n

do i=j,n

PP(j)=PP(j)+PN(i)

QP(j)=QP(j)+QN(i)

enddo

Write(7,*)' PP(',j,')=',PP(j),' кВт'

Write(7,*)' QP(',j,')=',QP(j),' кВАр'

enddo

do i=1,n

ai(i)=sqrt(pp(i)**2+qp(i)**2)/(1.73*Unom)

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

Write(7,*)' ai(',i,')=',ai(i),'A'

enddo

*Определение реактивной потери напряжения

Up=0

do i=1,n

Up=Up+QP(i)*l(i)*(x1/(Unom*1000))

enddo

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

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