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

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

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

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

Скачать книгу

на входе детектора)']);

      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

Скачать книгу