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

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

СКАЧАТЬ edit22_Callback(hObject, eventdata, handles)

      function edit22_CreateFcn(hObject, eventdata, handles)

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

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

      end

      function popupmenu1_Callback(hObject, eventdata, handles)

      contents = get(hObject,'Value');

      global n

      switch contents

      case 1

      n=1;

      case 2

      n = 2;

      case 3

      n = 4;

      end

      function popupmenu1_CreateFcn(hObject, eventdata, handles)

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

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

      end

      function radiobutton5_Callback(hObject, eventdata, handles)

      global tipcan

      if get (handles.radiobutton5,'value') == 1

      set(handles.radiobutton6,'value',0);

      set(handles.uipanel13,'visible','off');

      set(handles.uipanel12,'visible','on');

      tipcan=2;

      end

      function radiobutton6_Callback(hObject, eventdata, handles)

      global tipcan

      if get (handles.radiobutton6,'value') == 1

      set(handles.radiobutton5,'value',0);

      set(handles.uipanel13,'visible','on');

      set(handles.uipanel12,'visible','off');

      tipcan=1;

      end

      function listbox6_Callback(hObject, eventdata, handles)

      global Tm

      contents = get(hObject,'Value');

      switch contents

      case 1

      Tm=1;

      case 2

      Tm = 2;

      case 3

      Tm = 3;

      case 4

      Tm = 4;

      case 5

      Tm = 5;

      otherwise

      end

      function listbox6_CreateFcn(hObject, eventdata, handles)

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

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

      end

      function listbox7_Callback(hObject, eventdata, handles)

      global kan

      contents = get(hObject,'Value');

      switch contents

      case 1

      kan=2;

      case 2

      kan = 1;

      otherwise

      end

      function listbox7_CreateFcn(hObject, eventdata, handles)

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

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

      end

      function listbox10_Callback(hObject, eventdata, handles)

      global Sez

      contents = get(hObject,'Value');

      switch contents

      case 1

      Sez=1;

      case 2

      Sez = 2;

      case 3

      Sez = 3;

      otherwise

      end

      function listbox10_CreateFcn(hObject, eventdata, handles)

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

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

      end

      function listbox11_Callback(hObject, eventdata, handles)

      global Tp

      contents = get(hObject,'Value');

      switch contents

      case 1

      Tp=1;

      case 2

      Tp = 2;

      case 3

      Tp = 3;

      case 4

      Tp = 4;

      otherwise

      end

      function listbox11_CreateFcn(hObject, eventdata, handles)

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

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

      end

      function pushbutton1_Callback(hObject, eventdata, handles)

      global Pvh1vt

      global Lm1z

      global Pvh1med

      global СКАЧАТЬ