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

ss=s1**2

write(5,*)' Квадрат суммы мощности'

write(5,*)' s1=',ss,'кВт'

anek-эффективное число электроприемников

anek=s1*s1/s

write(5,*)' Эффективное число электроприемников '

write(5,*)' anek=',anek

akm-коэффициент максимума

akm=sqrt((4.4*aki**2-12.7*aki+8.235)/((aki+0.05)*anek**(1.04-0.4*

*aki)))

write(5,*)' Коэффициентмаксимума'

write(5,*)' akm=',akm

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

p=akm*aki*s1

write(5,*)' Активная расчетная нагрузка'

write(5,*)' P=',p

tgf=sqrt(1-cosf**2)/cosf

write(5,*)' tgf=',tgf

if(anek.le.10)then

Реактивная расчетная нагрузка :

q=1.1*aki*s1*tgf

else

q=aki*s1*tgf

end if

write(5,*)' Реактивная расчетная нагрузка'

write(5,*)' Q=',q

Полная расчетная мощность

sp=sqrt(p*p+q*q)

write(5,*)' Полная расчетная нагрузка '