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

Расчетныйток

aip=sp/(sqrt(3)*unom)

aa=0

do i=1,n

if(a(i).gt.aa) aa=a(i)

end do

write(5,*)' Расчетныйток '

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

Ток стонка, у которого максимальная мощность

ainommax=aa/(sqrt(3)*unom*cosf)

WRITE(5,*)' Ток станка у которого max мощность '

WRITE(5,*)' ainommax=',ainommax

Пусковой максимольный ток

В момент запуска двигателя возникает максимальный пусковой ток

aipusmax=ainommax*akri

WRITE(5,*)' Максимальный пуск. ток двигателя '

WRITE(5,*)' aipusmax=',aipusmax

Пиковыйток

aipik=aipusmax+(aip-aki*aipusmax)

WRITE(5,*)' Пиковыйток '

WRITE(5,*)' aipik=',aipik

Ток предохранителя

aiplvst=aipik/akrez

WRITE(5,*)' Ток плавкой вставки '

WRITE(5,*)' aiplvst=',aiplvst

end

Исходные данные для расчета по программе необходимо вводить в следующем виде:

6 0.16 0.6 0.4 2,5 3

22 4,8 11,6 10,5 2,3 12,2