Этап инициализации аппаратных средств

: 250
s = 0;
for k = 1:1:40
flag = 0;
while flag ~= 1
flag = inportb ( '283' );
flag = bitand ( flag, 1 );
end
i ( k ) = inport ( '280' );
s = s + i ( k ) * i ( k );
end
I ( np ) = sqrt ( 0.025 *s ) / 146.21429;