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

*Авария в конце линии

UU=0

do i=1,n

do j=1,i

UU=UU+Pn(i)*l(j)*r0/Unom+Qn(i)*l(j)*x0/Unom

enddo

enddo

Write(6,*)' При аварии в конце линии:'

Write(6,*)' UU=',UU,' В'

if(UU.gt.Udopa)then

Write(6,*)' UU>',Udopa

endif

*Уточнение мощности в кольцевой сети

Write(6,*)'Уточненый расчет мощности кольцевой сети '

Write(6,*)' '

Do i=2,n+1

Pkon(i)=Pp(i)

Qkon(i)=Qp(i)

enddo

Pn(0)=0

Qn(0)=0

Do i=1,ia

ii=ia+1-i

dP(ii)=(Pkon(ii)**2+Qkon(ii)**2)*r0*l(ii)/(Unom*Unom*1000)

dQ(ii)=(Pkon(ii)**2+Qkon(ii)**2)*x0*l(ii)/(Unom*Unom*1000)

Pnach(ii)=dP(ii)+Pkon(ii)

Qnach(ii)=dQ(ii)+Qkon(ii)

Pkon(ii-1)=Pnach(ii)+Pn(ii-1)

Qkon(ii-1)=Qnach(ii)+Qn(ii-1)