radarsim2.m

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

            grPs=CData.grPs;
            M = ['频率(MHz)',num2cell(grFreq');'距离(KM)',num2cell(grDis');'谱密度(DB,W)',num2cell(grPs')]';    % 数据
            FillGrid(handles.spreadsheet,M);    % 写入数据
        case 9  % 回波信噪（干）比曲线。
            grSCR=CData.grSCR;
            M = ['频率(MHz)',num2cell(grFreq');'距离(KM)',num2cell(grDis');'信噪比(DB)',num2cell(grSCR')]';   % 数据
            FillGrid(handles.spreadsheet,M);    % 写入数据
    end
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    guidata(hObject,handles);
    set(handles.spreadsheet,'AutoFit',1);            % not 'true'
    set(handles.spreadsheet,'DisplayOfficeLogo',0);  % not 'true'
end

% --- Executes on button press in grPlotBrowser.
function grPlotBrowser_Callback(hObject, eventdata, handles)
% hObject    handle to grPlotBrowser (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% 关闭ActiveX控件。
if isfield(handles,'spreadsheet') && ishandle(handles.spreadsheet)
    delete(handles.spreadsheet);
end

viewmenufcn(handles.figure1,'PlotBrowser');


function Pt_Callback(hObject, eventdata, handles)
% hObject    handle to Pt (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 Pt as text
%        str2double(get(hObject,'String')) returns contents of Pt as a double
Mparam=evalin('base','Mparam');

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

% Save the new Pt value
Mparam.Pt = Pt;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Pt_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Pt (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 Dt_Callback(hObject, eventdata, handles)
% hObject    handle to Dt (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 Dt as text
%        str2double(get(hObject,'String')) returns contents of Dt as a double
Mparam=evalin('base','Mparam');

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

% Save the new Dt value
Mparam.Dt = Dt;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Dt_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Dt (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 Dr_Callback(hObject, eventdata, handles)
% hObject    handle to Dr (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 Dr as text
%        str2double(get(hObject,'String')) returns contents of Dr as a double
Mparam=evalin('base','Mparam');

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

% Save the new Dr value
Mparam.Dr = Dr;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Dr_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Dr (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 Po_Callback(hObject, eventdata, handles)
% hObject    handle to Po (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 Po as text
%        str2double(get(hObject,'String')) returns contents of Po as a double
Mparam=evalin('base','Mparam');

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

% Save the new Po value
Mparam.Po = Po;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Po_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Po (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 Gamma_Callback(hObject, eventdata, handles)
% hObject    handle to Gamma (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 Gamma as text
%        str2double(get(hObject,'String')) returns contents of Gamma as a double
Mparam=evalin('base','Mparam');

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

% Save the new Gamma value
Mparam.Gamma = Gamma;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Gamma_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Gamma (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 PrSigma_Callback(hObject, eventdata, handles)
% hObject    handle to PrSigma (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 PrSigma as text
%        str2double(get(hObject,'String')) returns contents of PrSigma as a double
Mparam=evalin('base','Mparam');

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

% Save the new PrSigma value
Mparam.PrSigma = PrSigma;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function PrSigma_CreateFcn(hObject, eventdata, handles)
% hObject    handle to PrSigma (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 Ls_Callback(hObject, eventdata, handles)
% hObject    handle to Ls (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 Ls as text
%        str2double(get(hObject,'String')) returns contents of Ls as a double
Mparam=evalin('base','Mparam');

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

% Save the new Ls value
Mparam.Ls = Ls;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Ls_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Ls (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 Do_Callback(hObject, eventdata, handles)
% hObject    handle to Do (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 Do as text
%        str2double(get(hObject,'String')) returns contents of Do as a double
Mparam=evalin('base','Mparam');

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

% Save the new Do value
Mparam.Do = Do;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function Do_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Do (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 FMin_Callback(hObject, eventdata, handles)
% hObject    handle to FMin (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 FMin as text
%        str2double(get(hObject,'String')) returns contents of FMin as a double
Mparam=evalin('base','Mparam');

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

% Save the new FMin value
Mparam.FMin = FMin;
assignin('base','Mparam',Mparam);

% --- Executes during object creation, after setting all properties.
function FMin_CreateFcn(hObject, eventdata, handles)
% hObject    handle to FMin (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 FMax_Callback(hObject, eventdata, handles)
% hObject    handle to FMax (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 FMax as text
%        str2double(get(hObject,'String')) returns contents of FMax as a double
Mparam=evalin('base','Mparam');

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

% Save the new FMax value
Mparam.FMax = FMax;
assignin('base','Mparam',Mparam);