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

* Полная мощность

ss=sqrt(pnn**2+qnn**2)

write(5,*)' Полная мощность: Ss =',ss,' МВА'

sras=ss/1.4

write(5,*)'Расчетная мощность трансформатора: Sras =', sras,' МВА'

write(*,*)'Расчетная мощность трансформатора: Sras =', sras,' МВА'

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

read(*,*)str

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

write(*,*)' Введите r трансформатора в Ом-х'

read(*,*)rt

write(*,*)' Введите x трансформатора в Ом-х'

read(*,*)xt

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

read(*,*)dpst

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

read(*,*)dqst

write(*,*)' Введите Pкз трансформатора в МВА'

read(*,*)dpk

write(*,*)' Введите Uкз трансформатора в %'

read(*,*)uk

* Потери активной мощности трансформатора

dpt=2*dpst+0.5*dpk*(ss/str)**2

* Потери реактивной мощности

dqt=2*dpst+0.5*(uk*str/100)*(ss/str)**2

write(5,*)' Потери P в тран-ре: dPt =',dpt,' МВт'

write(5,*)' Потери Q в тран-ре: dQt =',dqt,' МВАр'

* Активная и реактивная нагрузка

pnn1=pnn+dpt