end% Save the new DeltaR valueMparam.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');endfunction 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 doubleMparam=evalin('base','Mparam');ThetaB = str2double(get(hObject, 'String'));if isnan(ThetaB)    set(hObject, 'String', 0);    errordlg('必須輸入一個數字','錯誤');end% Save the new ThetaB valueMparam.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');endfunction 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 doubleMparam=evalin('base','Mparam');OmgB = str2double(get(hObject, 'String'));if isnan(OmgB)    set(hObject, 'String', 0);    errordlg('必須輸入一個數字','錯誤');end% Save the new OmgB valueMparam.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');endfunction 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 doubleMparam=evalin('base','Mparam');UD = str2double(get(hObject, 'String'));% if isnan(UD)%     set(hObject, 'String', 0);%     errordlg('必須輸入一個數字','錯誤');% end% Save the new UD valueMparam.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');endfunction 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 doubleMparam=evalin('base','Mparam');lon = str2double(get(hObject, 'String'));if isnan(lon)    set(hObject, 'String', 0);    errordlg('必須輸入一個數字','錯誤');end% Save the new lon valueMparam.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 SeasonSelMparam=evalin('base','Mparam');season = get(hObject,'Value');% Save the new season valueMparam.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');endfunction 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 doubleMparam=evalin('base','Mparam');lat = str2double(get(hObject, 'String'));if isnan(lat)    set(hObject, 'String', 0);    errordlg('必須輸入一個數字','錯誤');end% Save the new lat valueMparam.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');endfunction 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 doubleMparam=evalin('base','Mparam');bw = str2double(get(hObject, 'String'));if isnan(bw)    set(hObject, 'String', 0);    errordlg('必須輸入一個數字','錯誤');end% Save the new bw valueMparam.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');endfunction 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 doubleMparam=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 valueMparam.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;