% ***********************************************************************% *                                                                     *% *   HFRSIM (RELAESE 2   17/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 = pscfg(varargin)%PSCFG M-file for pscfg.fig%      PSCFG, by itself, creates a new PSCFG or raises the existing%      singleton*.%%      H = PSCFG returns the handle to a new PSCFG or the handle to%      the existing singleton*.%%      PSCFG('Property','Value',...) creates a new PSCFG using the%      given property value pairs. Unrecognized properties are passed via%      varargin to pscfg_OpeningFcn.  This calling syntax produces a%      warning when there is an existing singleton*.%%      PSCFG('CALLBACK') and PSCFG('CALLBACK',hObject,...) call the%      local function named CALLBACK in PSCFG.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 pscfg% Last Modified by GUIDE v2.5 17-Jul-2006 02:17:30% Begin initialization code - DO NOT EDITgui_Singleton = 1;gui_State = struct('gui_Name',       mfilename, ...                   'gui_Singleton',  gui_Singleton, ...                   'gui_OpeningFcn', @pscfg_OpeningFcn, ...                   'gui_OutputFcn',  @pscfg_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 pscfg is made visible.function pscfg_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 pscfghandles.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;  % 雷達目標散射面積。% Ls=Mparam.Ls; % 雷達系統損失。% Pt=Mparam.Pt; % 峰值發射功率。% Gamma=Mparam.Gamma;   % 發射信號占空比。% Dt=Mparam.Dt; % 發射天線方向性系數。% Dr=Mparam.Dr; % 接收天線方向性系數。% % 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; % 風向 弧度（海雜波功率譜計算）。% 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 SEASONS% lat=Mparam.lat;   % LOCATION LATITUDE% lon=Mparam.lon;  % LOCATION LONGITUDE% time=Mparam.time; % SPECIFIC LOCAL MEAN TIME% % set(handles.SeasonSel,'Value',season);% set(handles.Lat,'String',lat);% set(handles.Lon,'String',lon);% set(handles.Time,'String',time);% UIWAIT makes pscfg wait for user response (see UIRESUME)% uiwait(handles.figure1);% --- Outputs from this function are returned to the command line.function varargout = pscfg_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('必須輸入一個數字','錯誤');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('必須輸入一個數字','錯誤');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('必須輸入一個數字','錯誤');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('必須輸入一個數字','錯誤');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('必須輸入一個數字','錯誤');end% Save the new hrr value