Энергетический расчет канала дальней тропосферной радиосвязи (Программа для ЭВМ). Владимир Иванович Шлома

Чтение книги онлайн.

СКАЧАТЬ style="font-size:15px;">      p1=-4.238e-7;

      p2=-0.0008043;

      p3=4.185;

      elseif q==90

      p1=3.111e-7;

      p2=-0.001963;

      p3=4.108;

      elseif q==95

      p1=7.556e-7;

      p2=-0.002476;

      p3=3.956;

      elseif q==99

      p1=4.225e-7;

      p2=-0.002412;

      p3=3.701;

      elseif q==99.9

      p1=-3.766e-8;

      p2=-0.00114;

      p3=3.072;

      end

      elseif Nk==2 || Nk==3

      if q==50

      p1=2.506e-6;

      p2=-0.006031;

      p3=7.07;

      elseif q==90

      p1=2.376e-6;

      p2=-0.005205;

      p3=5.933;

      elseif q==95

      p1=1.857e-6;

      p2=-0.004377;

      p3=5.44;

      elseif q==99

      p1=1.009e-6;

      p2=-0.003069;

      p3=4.821;

      elseif q==99.9

      p1=2.279e-7;

      p2=-0.001305;

      p3=3.59;

      end

      elseif Nk==4

      if q==50

      p1=4.952e-6;

      p2=-0.01447;

      p3=12.99;

      elseif q==90

      p1=4.596e-6;

      p2=-0.01175;

      p3=10.12;

      elseif q==95

      p1=4.776e-6;

      p2=-0.01076;

      p3=8.707;

      elseif q==99

      p1=2.23e-6;

      p2=-0.00675;

      p3=6.837;

      elseif q==99.9

      p1=2.229e-6;

      p2=-0.005639;

      p3=5.548;

      end

      elseif Nk==5||Nk==6||Nk==7

      if q==50

      p1=5.358e-6;

      p2=-0.1255;

      p3=10.25;

      elseif q==90

      p1=5.507e-6;

      p2=-0.0118;

      p3=9.033;

      elseif q==95

      p1=3.981e-6;

      p2=-0.00935;

      p3=7.91;

      elseif q==99

      p1=3.349e-6;

      p2=-0.008022;

      p3=7.169;

      elseif q==99.9

      p1=2.489e-7;

      p2=-0.006297;

      p3=6.122;

      end

      end

      dL=p1*dq^2+p2*dq+p3;

      L2m=L2g+dL;

      L2c=L2m+4.676*exp(-((R-124.9)/332.4)^2)+3.165*exp(-((R-3828)/508.3)^2);

      if Tp==4

      L2med=L2g;

      elseif Tp==3

      L2med=L2m;

      else

      L2med=L2c;

      end

      [Lbz]=Lbzam(Tpr,n);

      L2=L2med+Lbz;

      Pvh2med=10*log10(P)-L2med;

      Pvh2medvt=10^(Pvh2med/10);

      Pvh2=10*log10(P)-L2;

      Pvh2vt=10^(Pvh2/10);

      disp(['L2med=', num2str(L2med),' дБ (медианные потери для заданного периода)']);

      disp(['L2=', num2str(L2),' дБ (полные потери для заданного периода с учетом релеевских замираний)']);

      disp(['Pvh2med=', num2str(Pvh2medvt),' Вт (медианная мощность сигнала на входе)']);

      disp(['Pvh2=', num2str(Pvh2vt),' Вт (мощность сигнала на входе)']);

      if kan==1|| tipcan==1

      Pch2=4e-21*10^(Fe/10)*nk*3100

      Pcht2=6975e-24*10^(Fe/10)*(Fk/dfk)^2/Pvh2vt;

      h0t2=10*log10(1e-3/Pcht2);

      h02=1e-3/Pcht2;

      disp(['h02=', num2str(h02)]),'(отношение с/ш на входе детектора)';

      disp(['h0t2=', num2str(h0t2),' дБ (отношение с/ш на выходе тлф СКАЧАТЬ