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

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),' дБ (отношение с/ш на выходе тлф канала)']);

      elseif kan==2 && tipcan==2

      Pch2=4e-21*10^(Fe/10)*V*1000;

      h02=(10^(Pvh2/10))/Pch2;

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

      end

      Zap2=Lpred-L2;

      disp(['Zap2=', num2str(Zap2),' дБ (энергетический запас трассы)']);

      error=0;

      if error==0

      if f <600 || f>6000

      msgbox('Рабочая частота введена некорректно')

      error= error+1

      end

      if P<0 || P >20000

      msgbox('Мощность ПРД введена некорректно')

      error= error+1

      end

      if Pfr>0 || Pfr <-10

      msgbox('Потери в ПРД фидере введены некорректно')

      error= error+1

      end

      if Gr <0 || Gr>70

      msgbox('Усиление антенны введено некорректно')

      error= error+1

      end

      if a<0 || a >10

      msgbox('Ширина ДН антенны введена некорректно')

      error= error+1

      end

      if h<0 || h >20

      msgbox('Высота подъёма антенны введена некорректно')

      error= error+1

      end

      if Ugr<0 || Ugr >5

      msgbox('Угол горизонта введён некорректно')

      error= error+1

      end

      if n<1 || n>2 && n<4 || n>4

      msgbox('Краткость разнесения введена некорректно')

      error= error+1

      end

      if Fe <0 || Fe > 20

      msgbox('Коэффициент шума введен некорректно')

      error= error+1

      end

      if Pfp>0 || Pfp <-10

      msgbox('Потери в ПРМ введены некорректно')

      error= error+1

      end

      if Gp <0 || Gp>70

      msgbox('Усиление антенны введено некорректно')

      error= error+1

      end

      if Ugp<0 || Ugp >5

      msgbox('Угол горизонта введен некорректно')

      error= error+1

      end

      end

      if error==0;

      if tipcan==2;

      if Tm==1

      LK_data_AM();

      elseif Tm==2

      LK_data_ChM();

      elseif Tm==3

      LK_data_FM();

      elseif Tm==4

      LK_data_OFT();

      elseif Tm==5

      LK_data_OFDM();

      end

      elseif tipcan==1;

      LK_data_v02();

      end

      end

      function edit19_Callback(hObject, eventdata, handles)

      function edit19_CreateFcn(hObject, eventdata, handles)

      if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

      set(hObject,'BackgroundColor','white');

      end

      function edit20_Callback(hObject, eventdata, handles)

      function edit20_CreateFcn(hObject, eventdata, handles)

      if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

      set(hObject,'BackgroundColor','white');

      end

      function listbox2_Callback(hObject, eventdata, handles)

      function listbox2_CreateFcn(hObject, eventdata, handles)

      if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

      set(hObject,'BackgroundColor','white');

      end

      function edit15_Callback(hObject, eventdata, handles)

      function edit15_CreateFcn(hObject, eventdata, handles)

      if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

      set(hObject,'BackgroundColor','white');

      end

      function edit16_Callback(hObject, eventdata, handles)

      function edit16_CreateFcn(hObject, eventdata, handles)

      if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

      set(hObject,'BackgroundColor','white');

      end

      function listbox3_Callback(hObject, eventdata, handles)

      function listbox3_CreateFcn(hObject, eventdata, handles)

      if