% ***********************************************************************% *                                                                     *% *   HFRSIM (RELAESE 2.1   31/07/2006  ).                              *% *   COPYRIGHT (C)   HIT EIE  2006.                                    *% *                                                                     *% ***********************************************************************% % ================================================================% =   MODIFIED FOR MATLAB Version 7.0.4.365 (R14) Service Pack 2 = % =   FOR WINDOWS PERSONAL COMPUTERS                             =% =   July 2006                                                  =% =   Mr. Zhou Yang                                              =% =   Harbin Institute of Technology                             =% =   mailto:hallychou@hotmail.com                               =% ================================================================function varargout = snrcfg(varargin)%SNRCFG M-file for snrcfg.fig%      SNRCFG, by itself, creates a new SNRCFG or raises the existing%      singleton*.%%      H = SNRCFG returns the handle to a new SNRCFG or the handle to%      the existing singleton*.%%      SNRCFG('Property','Value',...) creates a new SNRCFG using the%      given property value pairs. Unrecognized properties are passed via%      varargin to snrcfg_OpeningFcn.  This calling syntax produces a%      warning when there is an existing singleton*.%%      SNRCFG('CALLBACK') and SNRCFG('CALLBACK',hObject,...) call the%      local function named CALLBACK in SNRCFG.M with the given input%      arguments.%%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one%      instance to run (singleton)".%% See also: GUIDE, GUIDATA, GUIHANDLES% Edit the above text to modify the response to help snrcfg% Last Modified by GUIDE v2.5 31-Jul-2006 22:26:40% Begin initialization code - DO NOT EDITgui_Singleton = 1;gui_State = struct('gui_Name',       mfilename, ...                   'gui_Singleton',  gui_Singleton, ...                   'gui_OpeningFcn', @snrcfg_OpeningFcn, ...                   'gui_OutputFcn',  @snrcfg_OutputFcn, ...                   'gui_LayoutFcn',  [], ...                   'gui_Callback',   []);if nargin && ischar(varargin{1})   gui_State.gui_Callback = str2func(varargin{1});endif nargout    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});else    gui_mainfcn(gui_State, varargin{:});end% End initialization code - DO NOT EDIT% --- Executes just before snrcfg is made visible.function snrcfg_OpeningFcn(hObject, eventdata, handles, varargin)% This function has no output args, see OutputFcn.% hObject    handle to figure% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% varargin   unrecognized PropertyName/PropertyValue pairs from the%            command line (see VARARGIN)% Choose default command line output for snrcfghandles.output = hObject;% Update handles structureguidata(hObject, handles);Mparam=evalin('base','Mparam');ans=Mparam.ans;  % The refractivity of the troposphere at the surface of the earth in N-units.hscale=Mparam.hscale;  % The scale height of the troposphere in kilometres.epslon=Mparam.epslon;    % The relative permittivity of the surface of the earth.sigma=Mparam.sigma;   % The conductivity of the surface of the earth in S/m.hrr=Mparam.hrr; % The receiver height in metres.htt=Mparam.htt;   % The transmitter height in metres.u=Mparam.u;  %The wind speed in m/s.set(handles.ans,'String',ans);set(handles.hscale,'String',hscale);set(handles.epslon,'String',epslon);set(handles.sigma,'String',sigma);set(handles.hrr,'String',hrr);set(handles.htt,'String',htt);set(handles.u,'String',u);PrSigma=Mparam.PrSigma;  % 雷達(dá)目標(biāo)散射面積。Ls=Mparam.Ls; % 雷達(dá)系統(tǒng)損失。Pt=Mparam.Pt; % 峰值發(fā)射功率。Gamma=Mparam.Gamma;   % 發(fā)射信號占空比。Dt=Mparam.Dt; % 發(fā)射天線方向性系數(shù)。Dr=Mparam.Dr; % 接收天線方向性系數(shù)。set(handles.PrSigma,'String',PrSigma);set(handles.Ls,'String',Ls);set(handles.Pt,'String',Pt);set(handles.Gamma,'String',Gamma);set(handles.Dt,'String',Dt);set(handles.Dr,'String',Dr);UD=Mparam.UD; % 風(fēng)向 弧度（海雜波功率譜計算）。DeltaR=Mparam.DeltaR;  % 距離分辨率。ThetaB=Mparam.ThetaB;  % 角度分辨率。OmgB=Mparam.OmgB;  % 多普勒頻率 Hz。set(handles.UD,'String',UD);set(handles.DeltaR,'String',DeltaR);set(handles.ThetaB,'String',ThetaB);set(handles.OmgB,'String',OmgB);season=Mparam.season;    % l=WINTER, 2=SPRING, 3=SUMMER, 4=AUTUMN, 5=ALL SEASONSlat=Mparam.lat;   % LOCATION LATITUDElon=Mparam.lon;  % LOCATION LONGITUDEtime=Mparam.time; % SPECIFIC LOCAL MEAN TIMEbw=Mparam.bw;set(handles.SeasonSel,'Value',season);set(handles.Lat,'String',lat);set(handles.Lon,'String',lon);set(handles.Time,'String',time);set(handles.BW,'Value',bw);% UIWAIT makes snrcfg wait for user response (see UIRESUME)% uiwait(handles.figure1);% --- Outputs from this function are returned to the command line.function varargout = snrcfg_OutputFcn(hObject, eventdata, handles)% varargout  cell array for returning output args (see VARARGOUT);% hObject    handle to figure% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% Get default command line output from handles structurevarargout{1} = handles.output;function ans_Callback(hObject, eventdata, handles)% hObject    handle to ans (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of ans as text%        str2double(get(hObject,'String')) returns contents of ans as a doubleMparam=evalin('base','Mparam');ans = str2double(get(hObject, 'String'));if isnan(ans)    set(hObject, 'String', 0);    errordlg('必須輸入一個數(shù)字','錯誤');end% Save the new ans valueMparam.ans = ans;assignin('base','Mparam',Mparam);% --- Executes during object creation, after setting all properties.function ans_CreateFcn(hObject, eventdata, handles)% hObject    handle to ans (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.%       See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))    set(hObject,'BackgroundColor','white');endfunction hscale_Callback(hObject, eventdata, handles)% hObject    handle to hscale (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of hscale as text%        str2double(get(hObject,'String')) returns contents of hscale as a doubleMparam=evalin('base','Mparam');hscale = str2double(get(hObject, 'String'));if isnan(hscale)    set(hObject, 'String', 0);    errordlg('必須輸入一個數(shù)字','錯誤');end% Save the new hscale valueMparam.hscale = hscale;assignin('base','Mparam',Mparam);% --- Executes during object creation, after setting all properties.function hscale_CreateFcn(hObject, eventdata, handles)% hObject    handle to hscale (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.%       See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))    set(hObject,'BackgroundColor','white');endfunction epslon_Callback(hObject, eventdata, handles)% hObject    handle to epslon (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of epslon as text%        str2double(get(hObject,'String')) returns contents of epslon as a doubleMparam=evalin('base','Mparam');epslon = str2double(get(hObject, 'String'));if isnan(epslon)    set(hObject, 'String', 0);    errordlg('必須輸入一個數(shù)字','錯誤');end% Save the new epslon valueMparam.epslon = epslon;assignin('base','Mparam',Mparam);% --- Executes during object creation, after setting all properties.function epslon_CreateFcn(hObject, eventdata, handles)% hObject    handle to epslon (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.%       See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))    set(hObject,'BackgroundColor','white');endfunction sigma_Callback(hObject, eventdata, handles)% hObject    handle to sigma (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of sigma as text%        str2double(get(hObject,'String')) returns contents of sigma as a doubleMparam=evalin('base','Mparam');sigma = str2double(get(hObject, 'String'));if isnan(sigma)    set(hObject, 'String', 0);    errordlg('必須輸入一個數(shù)字','錯誤');end% Save the new sigma valueMparam.sigma = sigma;assignin('base','Mparam',Mparam);% --- Executes during object creation, after setting all properties.function sigma_CreateFcn(hObject, eventdata, handles)% hObject    handle to sigma (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    empty - handles not created until after all CreateFcns called% Hint: edit controls usually have a white background on Windows.%       See ISPC and COMPUTER.if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))    set(hObject,'BackgroundColor','white');endfunction hrr_Callback(hObject, eventdata, handles)% hObject    handle to hrr (see GCBO)% eventdata  reserved - to be defined in a future version of MATLAB% handles    structure with handles and user data (see GUIDATA)% Hints: get(hObject,'String') returns contents of hrr as text%        str2double(get(hObject,'String')) returns contents of hrr as a doubleMparam=evalin('base','Mparam');hrr = str2double(get(hObject, 'String'));if isnan(hrr)    set(hObject, 'String', 0);    errordlg('必須輸入一個數(shù)字','錯誤');