a4[6]:=0.053;

a4[7]:=0.056;

a4[8]:=0.06;

a4[9]:=0.063;

a4[10]:=0.066;

a4[11]:=0.07;

a4[12]:=0.073;

a4[13]:=0.076;

a4[14]:=0.08;

a4[15]:=0.083;       {Частотная характеристика звукопоглощения стенки}

a4[16]:=0.086;

a4[17]:=0.09;

a4[18]:=0.093;

a4[19]:=0.096;

a4[20]:=0.1;

a4[21]:=0.103;

a4[22]:=0.106;

a4[23]:=0.11;

a4[24]:=0.11;

a4[25]:=0.11;

a4[26]:=0.11;

a4[27]:=0.11;

a4[28]:=0.11;

a4[29]:=0.11;

a4[30]:=0.11;

for i:=1 to N do

   begin    alfasr[i]:=(a1[i]*S1+a2[i]*(S2+S3+S4+S5+S6+S7+S8+S9+S10+S11)+a3[i]*S12+a4[i]*(S13+S14+S15+S16+S17+S18+S19+S20+S21)+0.7)/(S1+S2+S3+S4+S5+S6+S7+S8+S9+S10+S11+S12+S13+S14+S15+S16+S17+S18+S19+S20+S21);   {Расчет среднего коэффициента звукопоглощения в кабине трактора}

   end;

for i:=1 to N do

   begin

   writeln('alfasr[',i,']=',alfasr[i]);

   end;

for i:=1 to N do

   begin

   R[i]:=Lsn[i]-Lvn[i]-10*(ln(alfasr[i])/ln(10));    {Расчет необходимой звукоизоляции панели}

   writeln(fo,f[i],’  ‘,R[i]);

   end;

close(fo);

end.

Уровни шума, воздействующие на панели кабины снаружи, определялись экспериментально с помощью шумомера на стоянке трактора при максимальной частоте вращения коленчатого вала двигателя. Полученные при измерении величины вводились в программу расчета необходимой звукоизоляции панели кабины.