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

Write(7,*)' Потеря напряжения на участке линии'

Write(7,*)' Ul(',i,')=',Ul(i),' В'

enddo

Потеря напряжения на всей линии

UU=0

do i=1,n

UU=UU+Ul(i)

enddo

Write(7,*)' Потеря напряжения на всей линии'

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

if(UU.le.Udop)then

Write(7,*)' Выбрать кабель сечением S0=',S0,' мм2'

Write(7,*)' r0=',r0,' ОМ/км'

Write(7,*)' x0=',x0,' Ом/км'

Write(7,*)' Допустимый ток в кабеле Id=',id,' A'

Im=sqrt(pp(1)*pp(1)+qp(1)*qp(1))/(sqrt(3)*Unom)

dP=0

do i=1,n

dP=dP+((pp(i)**2+qp(i)**2)*r0*l(i))/(Unom**2*1000*1000)

end do

Write(7,*)' Расчетный ток в кабеле Im=',im,' A'

Write(7,*)' Потерямощностивлинии dP=',dP,' кВт'

if (im.le.id) then

Write(7,*)' Кабель полностью удовлетворяет условиям'

Write(*,*)' Кабель полностью удовлетворяет условиям'

else

Write(7,*)' Необходимо выбрать кабель большего сечения'

Write(*,*)' Необходимо выбрать кабель большего сечения'

endif