pscfg.m

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

end

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

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

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

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

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

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

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

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

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

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

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

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

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

% --- Executes during object creation, after setting all properties.
function Lon_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Lon (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


% --- Executes on selection change in SeasonSel.
function SeasonSel_Callback(hObject, eventdata, handles)
% hObject    handle to SeasonSel (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns SeasonSel contents as cell array
%        contents{get(hObject,'Value')} returns selected item from SeasonSel
Mparam=evalin('base','Mparam');

season = get(hObject,'Value');

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

% --- Executes during object creation, after setting all properties.
function SeasonSel_CreateFcn(hObject, eventdata, handles)
% hObject    handle to SeasonSel (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

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

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

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

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

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

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

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

time = str2double(get(hObject, 'String'));
if isnan(time)
    set(hObject, 'String', 0);
    errordlg('必须输入一个数字','错误');
elseif (time>24)|(time<0)
    set(hObject, 'String', 0);
    errordlg('输入的数字必须在0到24之间','错误');
end

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

% --- Executes during object creation, after setting all properties.
function Time_CreateFcn(hObject, eventdata, handles)
% hObject    handle to Time (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


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