pscfg.m

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

Mparam.hrr = hrr;
assignin('base','Mparam',Mparam);

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

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

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

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

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

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

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

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