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

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

= str2func(varargin{1});

      end

      if nargout

      [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});

      else

      gui_mainfcn(gui_State, varargin{:});

      end

      function LK_data_AM_OpeningFcn(hObject, eventdata, handles, varargin)

      handles.output = hObject;

      global Pvh1vt

      global Lm1z

      global Pvh1med

      global L2

      global h02

      global Zap2

      global h0t1

      global Lz

      global h01

      global L1

      global Zap1

      global Rpred

      global Lbz

      global Lmz

      global Pvh2medvt

      global Tm

      global m

      global L0r

      global L2med

      global Pvh2vt

      global h0t2

      set(handles.edit1, 'String', L0r);

      set(handles.edit2, 'String', Lbz);

      set(handles.edit3, 'String', Lmz);

      set(handles.edit4, 'String', Lz);

      set(handles.edit5, 'String', Lm1z);

      set(handles.edit6, 'String', L1);

      set(handles.edit7, 'String', Pvh1med);

      set(handles.edit8, 'String', Pvh1vt);

      set(handles.edit9, 'String', h01);

      set(handles.edit11, 'String', Zap1);

      set(handles.edit12, 'String', Rpred);

      set(handles.edit14, 'String', L0r);

      set(handles.edit16, 'String', Lbz);

      set(handles.edit17, 'String', Lmz);

      set(handles.edit18, 'String', Lz);

      set(handles.edit19, 'String', L2med);

      set(handles.edit20, 'String', L2);

      set(handles.edit21, 'String', Pvh2medvt);

      set(handles.edit22, 'String', Pvh2vt);

      set(handles.edit23, 'String', h02);

      set(handles.edit25, 'String', Zap2);

      if Tm~=5

      disp('Аналоговая обработка сигнала');

      if Tm==1

      disp('Амплитудная манипуляция');

      x=sqrt(h01/2);

      Kr1=kramp(x);

      Pk1=(1-Kr1)/2;

      x=sqrt(h02/2);

      Kr2=kramp(x);

      Pk2=(1-Kr2)/2;

      set(handles.edit13, 'String', Pk1);

      set(handles.edit26, 'String', Pk2);

      disp(['Poh1=', num2str(Pk1),' когерентный прием']);

      disp(['Poh2=', num2str(Pk2),' когерентный прием']);

      Pn1=exp(-h01/4)/2;

      Pn2=exp(-h02/4)/2;

      set(handles.edit15, 'String', Pn1);

      set(handles.edit27, 'String', Pn2);

      disp(['Poh1=', num2str(Pn1),' некогерентный прием']);

      disp(['Poh2=', num2str(Pn2),' некогерентный прием']);

      elseif Tm==2

      disp('Частотная манипуляция');

      x=sqrt(h01);

      Kr1=kramp(x);

      Pk1=(1-Kr1)/2;

      x=sqrt(h02);

      Kr2=kramp(x);

      Pk2=(1-Kr2)/2;

      disp(['Poh1=', num2str(Pk1),' когерентный прием']);

      disp(['Poh2=', num2str(Pk2),' когерентный прием']);

      Pn1=exp(-h01/2)/2;

      Pn2=exp(-h02/2)/2;

      disp(['Poh1=', num2str(Pn1),' некогерентный прием']);

      disp(['Poh2=', num2str(Pn2),' некогерентный прием']);

      elseif Tm==3

      disp('Фазовая манипуляция');

      x=sqrt(2*h01);

      Kr1=kramp(x);

      Pk1=(1-Kr1)/2;

      x=sqrt(2*h02);

      Kr2=kramp(x);

      Pk2=(1-Kr2)/2;

      disp(['Poh1=', num2str(Pk1),' когерентный прием']);

      disp(['Poh2=', num2str(Pk2),' когерентный прием']);

      elseif Tm==4

      disp('Относительная фазовая манипуляция');

      x=sqrt(2*h01);

      Kr1=kramp(x);

      Pk1=(1-Kr1)^2/2;

      x=sqrt(2*h02);

      Kr2=kramp(x);

      Pk2=(1-Kr2)^2/2;

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