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

open(5,file='rez3.dat')

read (4,*) P,Q,b

read (4,*) (pk(i),i=1,4)

Snag=sqrt(P**2+Q**2)

write(5,*)'Суммарная мощность в местной сети P=',P,' кВт'

write(5,*)' Q=',Q,' кВАр'

write(5,*)' S=',Snag,' кВА'

Str=Snag/1.4

write (5,*)'Мощностьтрансформатора Str=',Str,' кВА'

write (*,*)'Мощность трансформатора Str=',Str,' кВА'

write (*,*)'Введите Snom трансформатора'

read (*,*)Snom

write (*,*)'Введите потери холостого хода Pxx='

read (*,*)Pxx

Write (*,*)'Введите потери короткого замыкания Pkz='

read (*,*)Pkz

tau=(0.124+5000/10000)**2*8760

dAtr=2*Pxx*8760+((Pkz/2)*(Snag/Snom)**2)*tau

do i=1 ,4

dPs=dPs+pk(i)

enddo

dAkab=dPs*tau

dA=dAtr+dAkab

c=b*dA

write(5,*)'Номинальная мощность трансформатора Snom=',Snom,' кВА'

write(5,*)'Потери ХХ Рхх=', Pxx,' кВт'

write(5,*)'Потери КЗ Pkz=', Pkz,' кВт'

write(5,*)'Потери энергии в трансформаторе dAtr=', dAtr,' кВт*ч'

write(5,*)'Потери энергии в кабеле dAkab=', dAkab,' кВт*ч'