pscfg.m

高频地波雷达完整仿真matlab程序 网上找到的

% ***********************************************************************
% *                                                                     *
% *   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:[e-mail]                               =
% ================================================================
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 EDIT
gui_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});
end

if 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 pscfg
handles.output = hObject;

% Update handles structure
guidata(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 structure
varargout{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 double
Mparam=evalin('base','Mparam');

ans = str2double(get(hObject, 'String'));
if isnan(ans)
    set(hObject, 'String', 0);
    errordlg('必须输入一个数字','错误');
end

% Save the new ans value
Mparam.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');
end



function 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 double
Mparam=evalin('base','Mparam');

hscale = str2double(get(hObject, 'String'));
if isnan(hscale)
    set(hObject, 'String', 0);
    errordlg('必须输入一个数字','错误');
end

% Save the new hscale value
Mparam.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');
end



function 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 double
Mparam=evalin('base','Mparam');

epslon = str2double(get(hObject, 'String'));
if isnan(epslon)
    set(hObject, 'String', 0);
    errordlg('必须输入一个数字','错误');
end

% Save the new epslon value
Mparam.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');
end



function 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 double
Mparam=evalin('base','Mparam');

sigma = str2double(get(hObject, 'String'));
if isnan(sigma)
    set(hObject, 'String', 0);
    errordlg('必须输入一个数字','错误');
end

% Save the new sigma value
Mparam.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');
end



function 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 double
Mparam=evalin('base','Mparam');

hrr = str2double(get(hObject, 'String'));
if isnan(hrr)
    set(hObject, 'String', 0);
    errordlg('必须输入一个数字','错误');
end

% Save the new hrr value