КОМПЛЕКС ПРОГРАММ РЕШЕНИЯ ЭКОНОМИЧЕСКИХ ЗАДАЧ

function popupmenu1_CreateFcn(hObject, eventdata, handles)
% hObject handle to popupmenu1 (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 b0_Callback(hObject, eventdata, handles)
global b0;
% hObject handle to b0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
b0=str2double(get(hObject,'String'));
if isnan(b0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of b0 as text
% str2double(get(hObject,'String')) returns contents of b0 as a double


% --- Executes during object creation, after setting all properties.
function b0_CreateFcn(hObject, eventdata, handles)
% hObject handle to b0 (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 yp0_Callback(hObject, eventdata, handles)
global yp0;
% hObject handle to yp0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
yp0=str2double(get(hObject,'String'));
if isnan(yp0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of yp0 as text
% str2double(get(hObject,'String')) returns contents of yp0 as a double


% --- Executes during object creation, after setting all properties.
function yp0_CreateFcn(hObject, eventdata, handles)
% hObject handle to yp0 (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 d0_Callback(hObject, eventdata, handles)
global d0;
% hObject handle to d0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
d0=str2double(get(hObject,'String'));
if isnan(d0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of d0 as text
% str2double(get(hObject,'String')) returns contents of d0 as a double


% --- Executes during object creation, after setting all properties.
function d0_CreateFcn(hObject, eventdata, handles)
% hObject handle to d0 (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 p0_Callback(hObject, eventdata, handles)
global p0;
% hObject handle to p0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
p0=str2double(get(hObject,'String'));
if isnan(p0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of p0 as text
% str2double(get(hObject,'String')) returns contents of p0 as a double


% --- Executes during object creation, after setting all properties.
function p0_CreateFcn(hObject, eventdata, handles)
% hObject handle to p0 (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 T_Callback(hObject, eventdata, handles)
global T;
% hObject handle to T (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
T=str2double(get(hObject,'String'));
if isnan(T)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of T as text
% str2double(get(hObject,'String')) returns contents of T as a double



function k0_Callback(hObject, eventdata, handles)
global k0;
% hObject handle to k0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
k0=str2double(get(hObject,'String'));
if isnan(k0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of k0 as text
% str2double(get(hObject,'String')) returns contents of k0 as a double


% --- Executes during object creation, after setting all properties.
function k0_CreateFcn(hObject, eventdata, handles)
% hObject handle to k0 (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 Profit0_Callback(hObject, eventdata, handles)
global Profit0;
% hObject handle to Profit0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Profit0=str2double(get(hObject,'String'));
if isnan(Profit0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of Profit0 as text
% str2double(get(hObject,'String')) returns contents of Profit0 as a double


% --- Executes during object creation, after setting all properties.
function Profit0_CreateFcn(hObject, eventdata, handles)
% hObject handle to Profit0 (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 Income0_Callback(hObject, eventdata, handles)
global Income0;
% hObject handle to Income0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Income0=str2double(get(hObject,'String'));
if isnan(Income0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of Income0 as text
% str2double(get(hObject,'String')) returns contents of Income0 as a double


% --- Executes during object creation, after setting all properties.
function Income0_CreateFcn(hObject, eventdata, handles)
% hObject handle to Income0 (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 Tempt0_Callback(hObject, eventdata, handles)
global Tempt0;
% hObject handle to Tempt0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Tempt0=str2double(get(hObject,'String'));
if isnan(Tempt0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of Tempt0 as text
% str2double(get(hObject,'String')) returns contents of Tempt0 as a double


% --- Executes during object creation, after setting all properties.
function Tempt0_CreateFcn(hObject, eventdata, handles)
% hObject handle to Tempt0 (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 during object creation, after setting all properties.
function uitable1_CreateFcn(hObject, eventdata, handles)
% hObject handle to uitable1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called


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


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


% --- Executes during object creation, after setting all properties.
function T_CreateFcn(hObject, eventdata, handles)
% hObject handle to T (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 varargout = ModelDrawingOreMixtureWindow(varargin)
% MODELDRAWINGOREMIXTUREWINDOW MATLAB code for ModelDrawingOreMixtureWindow.fig
% MODELDRAWINGOREMIXTUREWINDOW, by itself, creates a new MODELDRAWINGOREMIXTUREWINDOW or raises the existing
% singleton*.
%
% H = MODELDRAWINGOREMIXTUREWINDOW returns the handle to a new MODELDRAWINGOREMIXTUREWINDOW or the handle to
% the existing singleton*.
%
% MODELDRAWINGOREMIXTUREWINDOW('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in MODELDRAWINGOREMIXTUREWINDOW.M with the given input arguments.
%
% MODELDRAWINGOREMIXTUREWINDOW('Property','Value',...) creates a new MODELDRAWINGOREMIXTUREWINDOW or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before ModelDrawingOreMixtureWindow_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to ModelDrawingOreMixtureWindow_OpeningFcn via varargin.
%
% *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 ModelDrawingOreMixtureWindow

% Last Modified by GUIDE v2.5 20-Apr-2015 19:18:57

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @ModelDrawingOreMixtureWindow_OpeningFcn, ...
'gui_OutputFcn', @ModelDrawingOreMixtureWindow_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 ModelDrawingOreMixtureWindow is made visible.
function ModelDrawingOreMixtureWindow_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 command line arguments to ModelDrawingOreMixtureWindow (see VARARGIN)

% Choose default command line output for ModelDrawingOreMixtureWindow
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes ModelDrawingOreMixtureWindow wait for user response (see UIRESUME)
% uiwait(handles.ModelDrawingOreMixtureWindow);


% --- Outputs from this function are returned to the command line.
function varargout = ModelDrawingOreMixtureWindow_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 A1_Callback(hObject, eventdata, handles)
global A1;
% hObject handle to A1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A1=str2double(get(hObject,'String'));
if isnan(A1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A1 as text
% str2double(get(hObject,'String')) returns contents of A1 as a double


% --- Executes during object creation, after setting all properties.
function A1_CreateFcn(hObject, eventdata, handles)
% hObject handle to A1 (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 B1_Callback(hObject, eventdata, handles)
global B1;
% hObject handle to B1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B1=str2double(get(hObject,'String'));
if isnan(B1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B1 as text
% str2double(get(hObject,'String')) returns contents of B1 as a double


% --- Executes during object creation, after setting all properties.
function B1_CreateFcn(hObject, eventdata, handles)
% hObject handle to B1 (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 C1_Callback(hObject, eventdata, handles)
global C1;
% hObject handle to C1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C1=str2double(get(hObject,'String'));
if isnan(C1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of C1 as text
% str2double(get(hObject,'String')) returns contents of C1 as a double


% --- Executes during object creation, after setting all properties.
function C1_CreateFcn(hObject, eventdata, handles)
% hObject handle to C1 (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 edit2_Callback(hObject, eventdata, handles)
% hObject handle to edit2 (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 edit2 as text
% str2double(get(hObject,'String')) returns contents of edit2 as a double


% --- Executes during object creation, after setting all properties.
function edit2_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit2 (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 edit3_Callback(hObject, eventdata, handles)
% hObject handle to edit3 (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 edit3 as text
% str2double(get(hObject,'String')) returns contents of edit3 as a double


% --- Executes during object creation, after setting all properties.
function edit3_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit3 (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 edit4_Callback(hObject, eventdata, handles)
% hObject handle to edit4 (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 edit4 as text
% str2double(get(hObject,'String')) returns contents of edit4 as a double


% --- Executes during object creation, after setting all properties.
function edit4_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit4 (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 edit5_Callback(hObject, eventdata, handles)
% hObject handle to edit5 (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 edit5 as text
% str2double(get(hObject,'String')) returns contents of edit5 as a double


% --- Executes during object creation, after setting all properties.
function edit5_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit5 (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 edit6_Callback(hObject, eventdata, handles)
% hObject handle to edit6 (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 edit6 as text
% str2double(get(hObject,'String')) returns contents of edit6 as a double


% --- Executes during object creation, after setting all properties.
function edit6_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit6 (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 edit7_Callback(hObject, eventdata, handles)
% hObject handle to edit7 (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 edit7 as text
% str2double(get(hObject,'String')) returns contents of edit7 as a double


% --- Executes during object creation, after setting all properties.
function edit7_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit7 (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 edit8_Callback(hObject, eventdata, handles)
% hObject handle to edit8 (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 edit8 as text
% str2double(get(hObject,'String')) returns contents of edit8 as a double


% --- Executes during object creation, after setting all properties.
function edit8_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit8 (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 edit9_Callback(hObject, eventdata, handles)
% hObject handle to edit9 (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 edit9 as text
% str2double(get(hObject,'String')) returns contents of edit9 as a double


% --- Executes during object creation, after setting all properties.
function edit9_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit9 (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 edit10_Callback(hObject, eventdata, handles)
% hObject handle to edit10 (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 edit10 as text
% str2double(get(hObject,'String')) returns contents of edit10 as a double


% --- Executes during object creation, after setting all properties.
function edit10_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit10 (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 edit11_Callback(hObject, eventdata, handles)
% hObject handle to edit11 (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 edit11 as text
% str2double(get(hObject,'String')) returns contents of edit11 as a double


% --- Executes during object creation, after setting all properties.
function edit11_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit11 (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 edit12_Callback(hObject, eventdata, handles)
% hObject handle to edit12 (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 edit12 as text
% str2double(get(hObject,'String')) returns contents of edit12 as a double


% --- Executes during object creation, after setting all properties.
function edit12_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit12 (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 edit13_Callback(hObject, eventdata, handles)
% hObject handle to edit13 (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 edit13 as text
% str2double(get(hObject,'String')) returns contents of edit13 as a double


% --- Executes during object creation, after setting all properties.
function edit13_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit13 (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 edit14_Callback(hObject, eventdata, handles)
% hObject handle to edit14 (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 edit14 as text
% str2double(get(hObject,'String')) returns contents of edit14 as a double


% --- Executes during object creation, after setting all properties.
function edit14_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit14 (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 edit15_Callback(hObject, eventdata, handles)
% hObject handle to edit15 (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 edit15 as text
% str2double(get(hObject,'String')) returns contents of edit15 as a double


% --- Executes during object creation, after setting all properties.
function edit15_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit15 (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 edit16_Callback(hObject, eventdata, handles)
% hObject handle to edit16 (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 edit16 as text
% str2double(get(hObject,'String')) returns contents of edit16 as a double


% --- Executes during object creation, after setting all properties.
function edit16_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit16 (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 A2_Callback(hObject, eventdata, handles)
global A2;
% hObject handle to A2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A2=str2double(get(hObject,'String'));
if isnan(A2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A2 as text
% str2double(get(hObject,'String')) returns contents of A2 as a double


% --- Executes during object creation, after setting all properties.
function A2_CreateFcn(hObject, eventdata, handles)
% hObject handle to A2 (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 B2_Callback(hObject, eventdata, handles)
global B2;
% hObject handle to B2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B2=str2double(get(hObject,'String'));
if isnan(B2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B2 as text
% str2double(get(hObject,'String')) returns contents of B2 as a double


% --- Executes during object creation, after setting all properties.
function B2_CreateFcn(hObject, eventdata, handles)
% hObject handle to B2 (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 edit21_Callback(hObject, eventdata, handles)
% hObject handle to B2 (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 B2 as text
% str2double(get(hObject,'String')) returns contents of B2 as a double


% --- Executes during object creation, after setting all properties.
function edit21_CreateFcn(hObject, eventdata, handles)
% hObject handle to B2 (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 C2_Callback(hObject, eventdata, handles)
global C2;
% hObject handle to C2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C2=str2double(get(hObject,'String'));
if isnan(C2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of C2 as text
% str2double(get(hObject,'String')) returns contents of C2 as a double



function A3_Callback(hObject, eventdata, handles)
global A3;

% hObject handle to A3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A3=str2double(get(hObject,'String'));
if isnan(A3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A3 as text
% str2double(get(hObject,'String')) returns contents of A3 as a double


% --- Executes during object creation, after setting all properties.
function A3_CreateFcn(hObject, eventdata, handles)
% hObject handle to A3 (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 B3_Callback(hObject, eventdata, handles)
global B3;
% hObject handle to B3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B3=str2double(get(hObject,'String'));
if isnan(B3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B3 as text
% str2double(get(hObject,'String')) returns contents of B3 as a double


% --- Executes during object creation, after setting all properties.
function B3_CreateFcn(hObject, eventdata, handles)
% hObject handle to B3 (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 C3_Callback(hObject, eventdata, handles)
global C3;
% hObject handle to C3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C3=str2double(get(hObject,'String'));
if isnan(C3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of C3 as text
% str2double(get(hObject,'String')) returns contents of C3 as a double


% --- Executes during object creation, after setting all properties.
function C3_CreateFcn(hObject, eventdata, handles)
% hObject handle to C3 (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 A4_Callback(hObject, eventdata, handles)
global A4;
% hObject handle to A4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A4=str2double(get(hObject,'String'));
if isnan(A4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A4 as text
% str2double(get(hObject,'String')) returns contents of A4 as a double


% --- Executes during object creation, after setting all properties.
function A4_CreateFcn(hObject, eventdata, handles)
% hObject handle to A4 (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 B4_Callback(hObject, eventdata, handles)
global B4;
% hObject handle to B4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B4=str2double(get(hObject,'String'));
if isnan(B4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B4 as text
% str2double(get(hObject,'String')) returns contents of B4 as a double


% --- Executes during object creation, after setting all properties.
function B4_CreateFcn(hObject, eventdata, handles)
% hObject handle to B4 (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 C4_Callback(hObject, eventdata, handles)
global C4;
% hObject handle to C4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C4=str2double(get(hObject,'String'));
if isnan(C4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of C4 as text
% str2double(get(hObject,'String')) returns contents of C4 as a double


% --- Executes during object creation, after setting all properties.
function C4_CreateFcn(hObject, eventdata, handles)
% hObject handle to C4 (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 A5_Callback(hObject, eventdata, handles)
global A5;
% hObject handle to A5 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A5=str2double(get(hObject,'String'));
if isnan(A5)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A5 as text
% str2double(get(hObject,'String')) returns contents of A5 as a double


% --- Executes during object creation, after setting all properties.
function A5_CreateFcn(hObject, eventdata, handles)
% hObject handle to A5 (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 B5_Callback(hObject, eventdata, handles)
global B5;
% hObject handle to B5 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B5=str2double(get(hObject,'String'));
if isnan(B5)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B5 as text
% str2double(get(hObject,'String')) returns contents of B5 as a double


% --- Executes during object creation, after setting all properties.
function B5_CreateFcn(hObject, eventdata, handles)
% hObject handle to B5 (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 C5_Callback(hObject, eventdata, handles)
global C5;
% hObject handle to C5 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C5=str2double(get(hObject,'String'));
if isnan(C5)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of C5 as text
% str2double(get(hObject,'String')) returns contents of C5 as a double


% --- Executes during object creation, after setting all properties.
function C5_CreateFcn(hObject, eventdata, handles)
% hObject handle to C5 (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 pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
global A1;
global B1;
global C1;
%========
global A2
global B2;
global C2;
%========
global A3;
global B3;
global C3;
%========
global A4;
global B4;
global C4;
%========
global A5;
global B5;
global C5;
%========
global S1;
global S2;
global S3;
global S4;
%========
% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A1=str2double(get(handles.A1,'string'));
B1=str2double(get(handles.B1,'string'));
C1=str2double(get(handles.C1,'string'));
%===========================
A2=str2double(get(handles.A2,'string'));
B2=str2double(get(handles.B2,'string'));
C2=str2double(get(handles.C2,'string'));
%===========================
A3=str2double(get(handles.A3,'string'));
B3=str2double(get(handles.B3,'string'));
C3=str2double(get(handles.C3,'string'));
%===========================
A4=str2double(get(handles.A4,'string'));
B4=str2double(get(handles.B4,'string'));
C4=str2double(get(handles.C4,'string'));
%===========================
A5=str2double(get(handles.A5,'string'));
B5=str2double(get(handles.B5,'string'));
C5=str2double(get(handles.C5,'string'));
%===========================
S1=str2double(get(handles.S1,'string'));
S2=str2double(get(handles.S2,'string'));
S3=str2double(get(handles.S3,'string'));
S4=str2double(get(handles.S4,'string'));
%===========================
axes(handles.axes1);
cla(handles.axes1);

%======Формирование векторов
CC = [S1 S2 S3 S4];
DD = [A2 A3 A4 A5;B2 B3 B4 B5;C2 C3 C4 C5];
BB = [A1 B1 C1];
Aeq = [1 1 1 1];
Beq = [1];
lb = zeros(4,1);
ub = [1 1 1 1];
f = CC;
A = -DD;
B = -BB;
[x,Fx] = linprog(f,A,B,Aeq,Beq,lb,ub);
%====================Результаты
set(handles.T1,'string',num2str(x(1)));
set(handles.T2,'string',num2str(x(2)));
set(handles.T3,'string',num2str(x(3)));
set(handles.T4,'string',num2str(x(4)));
set(handles.CF,'string',num2str(Fx));
pie(x,[1 1 1 1]);



% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
set(handles.A1,'String','8');
set(handles.B1,'String','100');
set(handles.C1,'String','30');
%===========================
set(handles.A2,'String','10');
set(handles.B2,'String','90');
set(handles.C2,'String','45');
%===========================
set(handles.A3,'String','6');
set(handles.B3,'String','150');
set(handles.C3,'String','30');
%===========================
set(handles.A4,'String','8');
set(handles.B4,'String','75');
set(handles.C4,'String','20');
%===========================
set(handles.A5,'String','2');
set(handles.B5,'String','175');
set(handles.C5,'String','37');
%===========================
set(handles.S1,'String','800');
set(handles.S2,'String','400');
set(handles.S3,'String','600');
set(handles.S4,'String','500');
%===========================
set(handles.T1,'String','');
set(handles.T2,'String','');
set(handles.T3,'String','');
set(handles.T4,'String','');
set(handles.CF,'String','');
%===========================

cla(handles.axes1);
legend('off');


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



function S1_Callback(hObject, eventdata, handles)
global S1;
% hObject handle to S1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
S1=str2double(get(hObject,'String'));
if isnan(S1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% Hints: get(hObject,'String') returns contents of S1 as text
% str2double(get(hObject,'String')) returns contents of S1 as a double


% --- Executes during object creation, after setting all properties.
function S1_CreateFcn(hObject, eventdata, handles)
% hObject handle to S1 (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 S2_Callback(hObject, eventdata, handles)
global S2;
% hObject handle to S2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
S2=str2double(get(hObject,'String'));
if isnan(S2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% Hints: get(hObject,'String') returns contents of S2 as text
% str2double(get(hObject,'String')) returns contents of S2 as a double


% --- Executes during object creation, after setting all properties.
function S2_CreateFcn(hObject, eventdata, handles)
% hObject handle to S2 (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 S3_Callback(hObject, eventdata, handles)
global S3;
% hObject handle to S3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
S3=str2double(get(hObject,'String'));
if isnan(S3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% Hints: get(hObject,'String') returns contents of S3 as text
% str2double(get(hObject,'String')) returns contents of S3 as a double


% --- Executes during object creation, after setting all properties.
function S3_CreateFcn(hObject, eventdata, handles)
% hObject handle to S3 (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 S4_Callback(hObject, eventdata, handles)
global S4;
% hObject handle to S4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
S4=str2double(get(hObject,'String'));
if isnan(S4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% Hints: get(hObject,'String') returns contents of S4 as text
% str2double(get(hObject,'String')) returns contents of S4 as a double


% --- Executes during object creation, after setting all properties.
function S4_CreateFcn(hObject, eventdata, handles)
% hObject handle to S4 (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 T1_Callback(hObject, eventdata, handles)
% hObject handle to T1 (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 T1 as text
% str2double(get(hObject,'String')) returns contents of T1 as a double


% --- Executes during object creation, after setting all properties.
function T1_CreateFcn(hObject, eventdata, handles)
% hObject handle to T1 (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 T2_Callback(hObject, eventdata, handles)
% hObject handle to T2 (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 T2 as text
% str2double(get(hObject,'String')) returns contents of T2 as a double


% --- Executes during object creation, after setting all properties.
function T2_CreateFcn(hObject, eventdata, handles)
% hObject handle to T2 (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 T3_Callback(hObject, eventdata, handles)
% hObject handle to T3 (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 T3 as text
% str2double(get(hObject,'String')) returns contents of T3 as a double


% --- Executes during object creation, after setting all properties.
function T3_CreateFcn(hObject, eventdata, handles)
% hObject handle to T3 (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 T4_Callback(hObject, eventdata, handles)
% hObject handle to T4 (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 T4 as text
% str2double(get(hObject,'String')) returns contents of T4 as a double


% --- Executes during object creation, after setting all properties.
function T4_CreateFcn(hObject, eventdata, handles)
% hObject handle to T4 (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 CF_Callback(hObject, eventdata, handles)
% hObject handle to CF (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 CF as text
% str2double(get(hObject,'String')) returns contents of CF as a double


% --- Executes during object creation, after setting all properties.
function CF_CreateFcn(hObject, eventdata, handles)
% hObject handle to CF (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 during object creation, after setting all properties.
function C2_CreateFcn(hObject, eventdata, handles)
% hObject handle to C2 (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 pushbutton4.
function pushbutton4_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)


Модель выбора средств массовой информации
function varargout = ModelSelectionMediaWindow(varargin)
% MODELSELECTIONMEDIAWINDOW MATLAB code for ModelSelectionMediaWindow.fig
% MODELSELECTIONMEDIAWINDOW, by itself, creates a new MODELSELECTIONMEDIAWINDOW or raises the existing
% singleton*.
%
% H = MODELSELECTIONMEDIAWINDOW returns the handle to a new MODELSELECTIONMEDIAWINDOW or the handle to
% the existing singleton*.
%
% MODELSELECTIONMEDIAWINDOW('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in MODELSELECTIONMEDIAWINDOW.M with the given input arguments.
%
% MODELSELECTIONMEDIAWINDOW('Property','Value',...) creates a new MODELSELECTIONMEDIAWINDOW or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before ModelSelectionMediaWindow_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to ModelSelectionMediaWindow_OpeningFcn via varargin.
%
% *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 ModelSelectionMediaWindow

% Last Modified by GUIDE v2.5 20-Apr-2015 21:30:15

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @ModelSelectionMediaWindow_OpeningFcn, ...
'gui_OutputFcn', @ModelSelectionMediaWindow_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 ModelSelectionMediaWindow is made visible.
function ModelSelectionMediaWindow_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 command line arguments to ModelSelectionMediaWindow (see VARARGIN)

% Choose default command line output for ModelSelectionMediaWindow
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes ModelSelectionMediaWindow wait for user response (see UIRESUME)
% uiwait(handles.ModelSelectionMediaWindow);


% --- Outputs from this function are returned to the command line.
function varargout = ModelSelectionMediaWindow_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 A1_Callback(hObject, eventdata, handles)
global A1;
% hObject handle to A1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A1=str2double(get(hObject,'String'));
if isnan(A1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A1 as text
% str2double(get(hObject,'String')) returns contents of A1 as a double


% --- Executes during object creation, after setting all properties.
function A1_CreateFcn(hObject, eventdata, handles)
% hObject handle to A1 (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 A2_Callback(hObject, eventdata, handles)
global A2;
% hObject handle to A2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A2=str2double(get(hObject,'String'));
if isnan(A2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A2 as text
% str2double(get(hObject,'String')) returns contents of A2 as a double


% --- Executes during object creation, after setting all properties.
function A2_CreateFcn(hObject, eventdata, handles)
% hObject handle to A2 (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 B1_Callback(hObject, eventdata, handles)
global B1;
% hObject handle to B1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B1=str2double(get(hObject,'String'));
if isnan(B1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B1 as text
% str2double(get(hObject,'String')) returns contents of B1 as a double


% --- Executes during object creation, after setting all properties.
function B1_CreateFcn(hObject, eventdata, handles)
% hObject handle to B1 (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 B2_Callback(hObject, eventdata, handles)
global B2;
% hObject handle to B2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B2=str2double(get(hObject,'String'));
if isnan(B2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B2 as text
% str2double(get(hObject,'String')) returns contents of B2 as a double


% --- Executes during object creation, after setting all properties.
function B2_CreateFcn(hObject, eventdata, handles)
% hObject handle to B2 (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 C1_Callback(hObject, eventdata, handles)
global C1;
% hObject handle to C1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C1=str2double(get(hObject,'String'));
if isnan(C1)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end
% Hints: get(hObject,'String') returns contents of C1 as text
% str2double(get(hObject,'String')) returns contents of C1 as a double


% --- Executes during object creation, after setting all properties.
function C1_CreateFcn(hObject, eventdata, handles)
% hObject handle to C1 (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 C2_Callback(hObject, eventdata, handles)
global C2;
% hObject handle to C2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C2=str2double(get(hObject,'String'));
if isnan(C2)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of C2 as text
% str2double(get(hObject,'String')) returns contents of C2 as a double


% --- Executes during object creation, after setting all properties.
function C2_CreateFcn(hObject, eventdata, handles)
% hObject handle to C2 (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 A3_Callback(hObject, eventdata, handles)
global A3;
% hObject handle to A3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A3=str2double(get(hObject,'String'));
if isnan(A3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A3 as text
% str2double(get(hObject,'String')) returns contents of A3 as a double


% --- Executes during object creation, after setting all properties.
function A3_CreateFcn(hObject, eventdata, handles)
% hObject handle to A3 (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 A4_Callback(hObject, eventdata, handles)
global A4;
% hObject handle to A4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A4=str2double(get(hObject,'String'));
if isnan(A4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of A4 as text
% str2double(get(hObject,'String')) returns contents of A4 as a double


% --- Executes during object creation, after setting all properties.
function A4_CreateFcn(hObject, eventdata, handles)
% hObject handle to A4 (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 B3_Callback(hObject, eventdata, handles)
global B3;
% hObject handle to B3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B3=str2double(get(hObject,'String'));
if isnan(B3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of B3 as text
% str2double(get(hObject,'String')) returns contents of B3 as a double


% --- Executes during object creation, after setting all properties.
function B3_CreateFcn(hObject, eventdata, handles)
% hObject handle to B3 (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 B4_Callback(hObject, eventdata, handles)
global B4;
% hObject handle to B4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
B4=str2double(get(hObject,'String'));
if isnan(B4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end
% Hints: get(hObject,'String') returns contents of B4 as text
% str2double(get(hObject,'String')) returns contents of B4 as a double


% --- Executes during object creation, after setting all properties.
function B4_CreateFcn(hObject, eventdata, handles)
% hObject handle to B4 (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 C3_Callback(hObject, eventdata, handles)
global C3;
% hObject handle to C3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C3=str2double(get(hObject,'String'));
if isnan(C3)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end
% Hints: get(hObject,'String') returns contents of C3 as text
% str2double(get(hObject,'String')) returns contents of C3 as a double


% --- Executes during object creation, after setting all properties.
function C3_CreateFcn(hObject, eventdata, handles)
% hObject handle to C3 (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 C4_Callback(hObject, eventdata, handles)
global C4;
% hObject handle to C4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
C4=str2double(get(hObject,'String'));
if isnan(C4)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end
% Hints: get(hObject,'String') returns contents of C4 as text
% str2double(get(hObject,'String')) returns contents of C4 as a double


% --- Executes during object creation, after setting all properties.
function C4_CreateFcn(hObject, eventdata, handles)
% hObject handle to C4 (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 pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
global A1;
global B1;
global C1;
%========
global A2
global B2;
global C2;
%========
global A3;
global B3;
global C3;
%========
global A4;
global B4;
global C4;
%========
% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
A1=str2double(get(handles.A1,'string'));
B1=str2double(get(handles.B1,'string'));
C1=str2double(get(handles.C1,'string'));
%===========================
A2=str2double(get(handles.A2,'string'));
B2=str2double(get(handles.B2,'string'));
C2=str2double(get(handles.C2,'string'));
%===========================
A3=str2double(get(handles.A3,'string'));
B3=str2double(get(handles.B3,'string'));
C3=str2double(get(handles.C3,'string'));
%===========================
A4=str2double(get(handles.A4,'string'));
B4=str2double(get(handles.B4,'string'));
C4=str2double(get(handles.C4,'string'));
%===========================
axes(handles.axes1);
cla(handles.axes1);

%======Формирование векторов
CC = [A3 A4 B3 B4 C3 C4]; %Целевая функция
DD = [A2 A2 B2 B2 C2 C2;-A1 -A1 -B1 -B1 -C1 -C1;1 1 0 0 0 0;
0 0 1 1 0 0;0 0 0 0 1 1;1 0 0 0 0 0;0 0 1 0 0 0;0 0 0 0 1 0;1 1 -3 -3 1 1];
BB = [72000 -1800000 25 25 25 10 10 10 0];
lb = zeros(4,1);
f = -CC;%Целевая функция
A = DD;
B = BB;
[xy,Fx] = linprog(f,A,B,[],[],lb,[]);
%====================Результаты
set(handles.X1,'string',num2str(xy(1)));
set(handles.X2,'string',num2str(xy(2)));
set(handles.X3,'string',num2str(xy(3)));
set(handles.Y1,'string',num2str(xy(4)));
set(handles.Y2,'string',num2str(xy(5)));
set(handles.Y3,'string',num2str(xy(6)));
set(handles.CF,'string',num2str(-Fx));
pie(xy,[1 1 1 1 1 1]);



% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
set(handles.A1,'String','30000');
set(handles.B1,'String','60000');
set(handles.C1,'String','90000');
%===========================
set(handles.A2,'String','1700');
set(handles.B2,'String','2800');
set(handles.C2,'String','1000');
%===========================
set(handles.A3,'String','60');
set(handles.B3,'String','80');
set(handles.C3,'String','70');
%===========================
set(handles.A4,'String','40');
set(handles.B4,'String','55');
set(handles.C4,'String','35');
%===========================
set(handles.X1,'String','');
set(handles.X2,'String','');
set(handles.X3,'String','');
set(handles.Y1,'String','');
set(handles.Y2,'String','');
set(handles.Y3,'String','');
set(handles.CF,'String','');
%===========================
cla(handles.axes1);
legend('off');


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



function X1_Callback(hObject, eventdata, handles)
% hObject handle to X1 (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 X1 as text
% str2double(get(hObject,'String')) returns contents of X1 as a double


% --- Executes during object creation, after setting all properties.
function X1_CreateFcn(hObject, eventdata, handles)
% hObject handle to X1 (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 X2_Callback(hObject, eventdata, handles)
% hObject handle to X2 (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 X2 as text
% str2double(get(hObject,'String')) returns contents of X2 as a double


% --- Executes during object creation, after setting all properties.
function X2_CreateFcn(hObject, eventdata, handles)
% hObject handle to X2 (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 X3_Callback(hObject, eventdata, handles)
% hObject handle to X3 (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 X3 as text
% str2double(get(hObject,'String')) returns contents of X3 as a double


% --- Executes during object creation, after setting all properties.
function X3_CreateFcn(hObject, eventdata, handles)
% hObject handle to X3 (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 Y1_Callback(hObject, eventdata, handles)
% hObject handle to Y1 (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 Y1 as text
% str2double(get(hObject,'String')) returns contents of Y1 as a double


% --- Executes during object creation, after setting all properties.
function Y1_CreateFcn(hObject, eventdata, handles)
% hObject handle to Y1 (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 Y2_Callback(hObject, eventdata, handles)
% hObject handle to Y2 (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 Y2 as text
% str2double(get(hObject,'String')) returns contents of Y2 as a double


% --- Executes during object creation, after setting all properties.
function Y2_CreateFcn(hObject, eventdata, handles)
% hObject handle to Y2 (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 Y3_Callback(hObject, eventdata, handles)
% hObject handle to Y3 (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 Y3 as text
% str2double(get(hObject,'String')) returns contents of Y3 as a double


% --- Executes during object creation, after setting all properties.
function Y3_CreateFcn(hObject, eventdata, handles)
% hObject handle to Y3 (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 CF_Callback(hObject, eventdata, handles)
% hObject handle to CF (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 CF as text
% str2double(get(hObject,'String')) returns contents of CF as a double


% --- Executes during object creation, after setting all properties.
function CF_CreateFcn(hObject, eventdata, handles)
% hObject handle to CF (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 varargout = BondYieldAtMaturityAtTheEndOfWindow(varargin)
% BONDYIELDATMATURITYATTHEENDOFWINDOW MATLAB code for BondYieldAtMaturityAtTheEndOfWindow.fig
% BONDYIELDATMATURITYATTHEENDOFWINDOW, by itself, creates a new BONDYIELDATMATURITYATTHEENDOFWINDOW or raises the existing
% singleton*.
%
% H = BONDYIELDATMATURITYATTHEENDOFWINDOW returns the handle to a new BONDYIELDATMATURITYATTHEENDOFWINDOW or the handle to
% the existing singleton*.
%
% BONDYIELDATMATURITYATTHEENDOFWINDOW('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in BONDYIELDATMATURITYATTHEENDOFWINDOW.M with the given input arguments.
%
% BONDYIELDATMATURITYATTHEENDOFWINDOW('Property','Value',...) creates a new BONDYIELDATMATURITYATTHEENDOFWINDOW or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before BondYieldAtMaturityAtTheEndOfWindow_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to BondYieldAtMaturityAtTheEndOfWindow_OpeningFcn via varargin.
%
% *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 BondYieldAtMaturityAtTheEndOfWindow

% Last Modified by GUIDE v2.5 20-Apr-2015 15:34:41

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @BondYieldAtMaturityAtTheEndOfWindow_OpeningFcn, ...
'gui_OutputFcn', @BondYieldAtMaturityAtTheEndOfWindow_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 BondYieldAtMaturityAtTheEndOfWindow is made visible.
function BondYieldAtMaturityAtTheEndOfWindow_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 command line arguments to BondYieldAtMaturityAtTheEndOfWindow (see VARARGIN)

% Choose default command line output for BondYieldAtMaturityAtTheEndOfWindow
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes BondYieldAtMaturityAtTheEndOfWindow wait for user response (see UIRESUME)
% uiwait(handles.BondYieldAtMaturityAtTheEndOfWindow);


% --- Outputs from this function are returned to the command line.
function varargout = BondYieldAtMaturityAtTheEndOfWindow_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 k_Callback(hObject, eventdata, handles)
global k;
% hObject handle to k (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
k=str2double(get(hObject,'String'));
if isnan(k)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of k as text
% str2double(get(hObject,'String')) returns contents of k as a double


% --- Executes during object creation, after setting all properties.
function k_CreateFcn(hObject, eventdata, handles)
% hObject handle to k (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 n_Callback(hObject, eventdata, handles)
global n;
% hObject handle to n (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
n=str2double(get(hObject,'String'));
if isnan(n)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of n as text
% str2double(get(hObject,'String')) returns contents of n as a double


% --- Executes during object creation, after setting all properties.
function n_CreateFcn(hObject, eventdata, handles)
% hObject handle to n (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 a0_Callback(hObject, eventdata, handles)
global a0;
% hObject handle to a0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
a0=str2double(get(hObject,'String'));
if isnan(a0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of a0 as text
% str2double(get(hObject,'String')) returns contents of a0 as a double


% --- Executes during object creation, after setting all properties.
function a0_CreateFcn(hObject, eventdata, handles)
% hObject handle to a0 (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 An_Callback(hObject, eventdata, handles)
global An;
% hObject handle to An (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
An=str2double(get(hObject,'String'));
if isnan(An)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of An as text
% str2double(get(hObject,'String')) returns contents of An as a double


% --- Executes during object creation, after setting all properties.
function An_CreateFcn(hObject, eventdata, handles)
% hObject handle to An (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 P_Callback(hObject, eventdata, handles)
global P;
% hObject handle to P (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
P=str2double(get(hObject,'String'));
if isnan(P)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of P as text
% str2double(get(hObject,'String')) returns contents of P as a double


% --- Executes during object creation, after setting all properties.
function P_CreateFcn(hObject, eventdata, handles)
% hObject handle to P (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 b0_Callback(hObject, eventdata, handles)
global b0;
% hObject handle to b0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
b0=str2double(get(hObject,'String'));
if isnan(b0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of b0 as text
% str2double(get(hObject,'String')) returns contents of b0 as a double


% --- Executes during object creation, after setting all properties.
function b0_CreateFcn(hObject, eventdata, handles)
% hObject handle to b0 (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 L_Callback(hObject, eventdata, handles)
global L;
% hObject handle to L (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
L=str2double(get(hObject,'String'));
if isnan(L)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of L as text
% str2double(get(hObject,'String')) returns contents of L as a double


% --- Executes during object creation, after setting all properties.
function L_CreateFcn(hObject, eventdata, handles)
% hObject handle to L (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 N0_Callback(hObject, eventdata, handles)
global N0;
% hObject handle to N0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
N0=str2double(get(hObject,'String'));
if isnan(N0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of N0 as text
% str2double(get(hObject,'String')) returns contents of N0 as a double


% --- Executes during object creation, after setting all properties.
function N0_CreateFcn(hObject, eventdata, handles)
% hObject handle to N0 (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 edit9_Callback(hObject, eventdata, handles)
% hObject handle to edit9 (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 edit9 as text
% str2double(get(hObject,'String')) returns contents of edit9 as a double


% --- Executes during object creation, after setting all properties.
function edit9_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit9 (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 edit10_Callback(hObject, eventdata, handles)
% hObject handle to edit10 (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 edit10 as text
% str2double(get(hObject,'String')) returns contents of edit10 as a double


% --- Executes during object creation, after setting all properties.
function edit10_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit10 (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 edit11_Callback(hObject, eventdata, handles)
% hObject handle to edit11 (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 edit11 as text
% str2double(get(hObject,'String')) returns contents of edit11 as a double


% --- Executes during object creation, after setting all properties.
function edit11_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit11 (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 edit12_Callback(hObject, eventdata, handles)
% hObject handle to edit12 (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 edit12 as text
% str2double(get(hObject,'String')) returns contents of edit12 as a double


% --- Executes during object creation, after setting all properties.
function edit12_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit12 (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 edit13_Callback(hObject, eventdata, handles)
% hObject handle to edit13 (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 edit13 as text
% str2double(get(hObject,'String')) returns contents of edit13 as a double


% --- Executes during object creation, after setting all properties.
function edit13_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit13 (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 edit14_Callback(hObject, eventdata, handles)
% hObject handle to edit14 (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 edit14 as text
% str2double(get(hObject,'String')) returns contents of edit14 as a double


% --- Executes during object creation, after setting all properties.
function edit14_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit14 (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 edit15_Callback(hObject, eventdata, handles)
% hObject handle to edit15 (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 edit15 as text
% str2double(get(hObject,'String')) returns contents of edit15 as a double


% --- Executes during object creation, after setting all properties.
function edit15_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit15 (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 edit16_Callback(hObject, eventdata, handles)
% hObject handle to edit16 (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 edit16 as text
% str2double(get(hObject,'String')) returns contents of edit16 as a double


% --- Executes during object creation, after setting all properties.
function edit16_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit16 (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 pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
global k;
global P;
global n;
global An;
global a0;
global b0;
global L;
global N0;
% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
k=str2double(get(handles.k,'string'));
P=str2double(get(handles.P,'string'));
n=str2double(get(handles.n,'string'));
An=str2double(get(handles.An,'string'));
a0=str2double(get(handles.a0,'string'));
b0=str2double(get(handles.b0,'string'));
L=str2double(get(handles.L,'string'));
N0=str2double(get(handles.N0,'string'));
set(handles.uitable1,'data',[]);
axes(handles.axes1);
cla(handles.axes1);
if (a0==0)||(b0==0)||(An<=0)||(P<=0)||(k<=0)
errordlg('Ошибка. Условие a0<>0, b0<>0, An>0,P>0,k>0. Вычисления прерваны!','Error');
return;
end
if (a0==0)||(b0==0)||(An<=0)||(P<=0)||(k<=0)
errordlg('Ошибка. Условие a0<>0, b0<>0, An>0,P>0,k>0. Вычисления прерваны!','Error');
return;
end
I=P*k;%величина купонных платежей
Ya=(I+P)*a0^(-n)-P*a0^(-n+1)+An*a0-(An+I);%значение функции в начале отрезка
Yb=(I+P)*b0^(-n)-P*b0^(-n+1)+An*b0-(An+I);%значение функции в конце отрезка
if Ya*Yb>=0
errordlg('Ошибка. Произведение значений функции на концах отрезка должно быть отрицательным. Вычисления прерваны!','Error');
return;
end
Eps=0.001; %Точность решения цравнения
Yc=Ya;
c=a0;
while abs(Yc)>=Eps
Ya=(I+P)*a0^(-n)-P*a0^(-n+1)+An*a0-(An+I);%значение функции в начале отрезка
Yb=(I+P)*b0^(-n)-P*b0^(-n+1)+An*b0-(An+I);%значение функции в конце отрезка
c=(a0+b0)/2;
Yc=(I+P)*c^(-n)-P*c^(-n+1)+An*c-(An+I);
if Ya*Yc<0
b0=c;
end
if Yb*Yc<0
a0=c;
end
end
set(handles.x,'string',num2str(c));%корень уравнения
y=c-1;
set(handles.y,'string',num2str(y));%процентная ставка
set(handles.I,'string',num2str(I));%корень уравнения
%=====================Начальные значения
Ns=4;%кол-во шагов
res(1,1)=0; %Счетчик шагов
res(1,2)=N0; %N0
res(1,3)=I*(1-(1+y)^(-n+N0))/y+P*(1+y)^(-n+N0);%Ak0
res(1,4)=1/res(1,3);%dt0
res(1,5)=((An-res(1,3))/An)*100;%dch0
res(1,6)=((I+An-res(1,3))/An)*100;%Np0
for i=2:(Ns+1)
res(i,1)=i-1;%Счетчик
res(i,2)=N0+(i-1)*L;%N
res(i,3)=I*(1-(1+y)^(-n+res(i,2)))/y+P*(1+y)^(-n+res(i,2));%Ak
res(i,4)=1/res(i,3);%dt
res(i,5)=((An-res(i,3)))*100/An;%dch
res(i,6)=((I+An-res(i,3))/An)*100;%Np
end
set(handles.uitable1,'data',res);
popup_sel_index = get(handles.popupmenu1, 'Value');
switch popup_sel_index
case 1
gr = plot(res(:,1),res(:,2),'b');
title('Период времени после выпуска облигации');
grid on;
xlabel('Период');
ylabel('Период');
set(gr,'LineWidth',2);
case 2
gr = plot(res(:,1),res(:,3),'b');
title('Текущая стоимость облигации');
grid on;
xlabel('Период');
ylabel('Денежные единицы');
set(gr,'LineWidth',2);
case 3
gr = plot(res(:,1),res(:,4),'b');
title('Текущая доходность облигации');
grid on;
xlabel('Период');
ylabel('Денежные единицы');
set(gr,'LineWidth',2);
case 4
gr = plot(res(:,1),res(:,5),'b');
title('Доходность облигации за счет изменения цены');
grid on;
xlabel('Период');
ylabel('%');
set(gr,'LineWidth',2);
case 5
gr = plot(res(:,1),res(:,6),'b');
title('Норма прибыли облигации');
grid on;
xlabel('Период');
ylabel('%');
set(gr,'LineWidth',2);
end

% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
set(handles.k,'String','0.15');
set(handles.P,'String','1000');
set(handles.n,'String','14');
set(handles.An,'String','1368.33');
set(handles.a0,'String','1.05');
set(handles.b0,'String','1.15');
set(handles.L,'String','3');
set(handles.N0,'String','1');
set(handles.x,'String','');
set(handles.y,'String','');
set(handles.I,'String','');
%===========================
set(handles.uitable1,'data',[]);
cla(handles.axes1);
legend('off');


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


% --- Executes on selection change in popupmenu1.
function popupmenu1_Callback(hObject, eventdata, handles)
% hObject handle to popupmenu1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
set(handles.uitable1,'data',[]);
cla(handles.axes1);
legend off;

% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu1 contents as cell array
% contents{get(hObject,'Value')} returns selected item from popupmenu1


% --- Executes during object creation, after setting all properties.
function popupmenu1_CreateFcn(hObject, eventdata, handles)
% hObject handle to popupmenu1 (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 x_Callback(hObject, eventdata, handles)
% hObject handle to x (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 x as text
% str2double(get(hObject,'String')) returns contents of x as a double


% --- Executes during object creation, after setting all properties.
function x_CreateFcn(hObject, eventdata, handles)
% hObject handle to x (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 y_Callback(hObject, eventdata, handles)
% hObject handle to y (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 y as text
% str2double(get(hObject,'String')) returns contents of y as a double


% --- Executes during object creation, after setting all properties.
function y_CreateFcn(hObject, eventdata, handles)
% hObject handle to y (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 I_Callback(hObject, eventdata, handles)
% hObject handle to I (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 I as text
% str2double(get(hObject,'String')) returns contents of I as a double


% --- Executes during object creation, after setting all properties.
function I_CreateFcn(hObject, eventdata, handles)
% hObject handle to I (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 varargout = ModelProfitabilityOfBankingOperationsWindow(varargin)
% MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW MATLAB code for ModelProfitabilityOfBankingOperationsWindow.fig
% MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW, by itself, creates a new MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW or raises the existing
% singleton*.
%
% H = MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW returns the handle to a new MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW or the handle to
% the existing singleton*.
%
% MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW.M with the given input arguments.
%
% MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW('Property','Value',...) creates a new MODELPROFITABILITYOFBANKINGOPERATIONSWINDOW or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before ModelProfitabilityOfBankingOperationsWindow_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to ModelProfitabilityOfBankingOperationsWindow_OpeningFcn via varargin.
%
% *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 ModelProfitabilityOfBankingOperationsWindow

% Last Modified by GUIDE v2.5 20-Apr-2015 17:29:59

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @ModelProfitabilityOfBankingOperationsWindow_OpeningFcn, ...
'gui_OutputFcn', @ModelProfitabilityOfBankingOperationsWindow_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 ModelProfitabilityOfBankingOperationsWindow is made visible.
function ModelProfitabilityOfBankingOperationsWindow_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 command line arguments to ModelProfitabilityOfBankingOperationsWindow (see VARARGIN)

% Choose default command line output for ModelProfitabilityOfBankingOperationsWindow
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes ModelProfitabilityOfBankingOperationsWindow wait for user response (see UIRESUME)
% uiwait(handles.ModelProfitabilityOfBankingOperationsWindow);


% --- Outputs from this function are returned to the command line.
function varargout = ModelProfitabilityOfBankingOperationsWindow_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 Np_Callback(hObject, eventdata, handles)
global Np;
% hObject handle to Np (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Np=str2double(get(hObject,'String'));
if isnan(Np)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of Np as text
% str2double(get(hObject,'String')) returns contents of Np as a double


% --- Executes during object creation, after setting all properties.
function Np_CreateFcn(hObject, eventdata, handles)
% hObject handle to Np (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 D_Callback(hObject, eventdata, handles)
global D;
% hObject handle to D (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
D=str2double(get(hObject,'String'));
if isnan(D)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of D as text
% str2double(get(hObject,'String')) returns contents of D as a double


% --- Executes during object creation, after setting all properties.
function D_CreateFcn(hObject, eventdata, handles)
% hObject handle to D (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 a0_Callback(hObject, eventdata, handles)
global a0;
% hObject handle to a0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
a0=str2double(get(hObject,'String'));
if isnan(a0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of a0 as text
% str2double(get(hObject,'String')) returns contents of a0 as a double


% --- Executes during object creation, after setting all properties.
function a0_CreateFcn(hObject, eventdata, handles)
% hObject handle to a0 (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 Ns_Callback(hObject, eventdata, handles)
global Ns;
% hObject handle to Ns (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Ns=str2double(get(hObject,'String'));
if isnan(Ns)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of Ns as text
% str2double(get(hObject,'String')) returns contents of Ns as a double


% --- Executes during object creation, after setting all properties.
function Ns_CreateFcn(hObject, eventdata, handles)
% hObject handle to Ns (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 b0_Callback(hObject, eventdata, handles)
global b0;
% hObject handle to b0 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
b0=str2double(get(hObject,'String'));
if isnan(b0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

% Hints: get(hObject,'String') returns contents of b0 as text
% str2double(get(hObject,'String')) returns contents of b0 as a double


% --- Executes during object creation, after setting all properties.
function b0_CreateFcn(hObject, eventdata, handles)
% hObject handle to b0 (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 pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
global Np;
global Ns;
global D;
global a0;
global b0

% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
Np=str2double(get(handles.Np,'string'));
Ns=str2double(get(handles.Ns,'string'));
D=str2double(get(handles.D,'string'));
a0=str2double(get(handles.a0,'string'));
b0=str2double(get(handles.b0,'string'));
if (a0==0)||(b0==0)
errordlg('Ошибка. Условие a0<>0, b0<>0. Вычисления прерваны!','Error');
return;
end

Ya=-1000*a0^(Np)+412*a0^(Ns)+D;%значение функции в начале отрезка
Yb=-1000*b0^(Np)+412*b0^(Ns)+D;%значение функции в конце отрезка
if Ya*Yb>=0
errordlg('Ошибка. Произведение значений функции на концах отрезка должно быть отрицательным. Вычисления прерваны!','Error');
return;
end
Eps=0.001; %Точность решения цравнения
Yc=Ya;
c=a0;
while abs(Yc)>=Eps
Ya=-1000*a0^(Np)+412*a0^(Ns)+D;%значение функции в начале отрезка
Yb=-1000*b0^(Np)+412*b0^(Ns)+D;%значение функции в конце отрезка
c=(a0+b0)/2;
Yc=-1000*c^(Np)+412*c^(Ns)+D;
if Ya*Yc<0
b0=c;
end
if Yb*Yc<0
a0=c;
end
end
set(handles.x,'string',num2str(c));%корень уравнения
y=c-1;
PrPr=y*100;
set(handles.Pr,'string',num2str(y));%процентная ставка
set(handles.PrPr,'string',num2str(PrPr));%корень уравнения


% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
set(handles.Np,'String','8');
set(handles.Ns,'String','4');
set(handles.D,'String','1412');
set(handles.a0,'String','0.96');
set(handles.b0,'String','1.22');
set(handles.x,'String','');
set(handles.Pr,'String','');
set(handles.PrPr,'String','');


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



function x_Callback(hObject, eventdata, handles)
% hObject handle to x (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 x as text
% str2double(get(hObject,'String')) returns contents of x as a double


% --- Executes during object creation, after setting all properties.
function x_CreateFcn(hObject, eventdata, handles)
% hObject handle to x (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 Pr_Callback(hObject, eventdata, handles)
% hObject handle to Pr (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 Pr as text
% str2double(get(hObject,'String')) returns contents of Pr as a double


% --- Executes during object creation, after setting all properties.
function Pr_CreateFcn(hObject, eventdata, handles)
% hObject handle to Pr (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 PrPr_Callback(hObject, eventdata, handles)
% hObject handle to PrPr (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 PrPr as text
% str2double(get(hObject,'String')) returns contents of PrPr as a double


% --- Executes during object creation, after setting all properties.
function PrPr_CreateFcn(hObject, eventdata, handles)
% hObject handle to PrPr (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 varargout = ModelSettlement(varargin)
% MODELSETTLEMENT MATLAB code for ModelSettlement.fig
% MODELSETTLEMENT, by itself, creates a new MODELSETTLEMENT or raises the existing
% singleton*.
%
% H = MODELSETTLEMENT returns the handle to a new MODELSETTLEMENT or the handle to
% the existing singleton*.
%
% MODELSETTLEMENT('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in MODELSETTLEMENT.M with the given input arguments.
%
% MODELSETTLEMENT('Property','Value',...) creates a new MODELSETTLEMENT or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before ModelSettlement_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to ModelSettlement_OpeningFcn via varargin.
%
% *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 ModelSettlement

% Last Modified by GUIDE v2.5 16-Apr-2015 22:43:08

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @ModelSettlement_OpeningFcn, ...
'gui_OutputFcn', @ModelSettlement_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 ModelSettlement is made visible.
function ModelSettlement_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 command line arguments to ModelSettlement (see VARARGIN)

% Choose default command line output for ModelSettlement
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes ModelSettlement wait for user response (see UIRESUME)
% uiwait(handles.ModelSettlementWindow);


% --- Outputs from this function are returned to the command line.
function varargout = ModelSettlement_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 P0_Callback(hObject, eventdata, handles)
global P0;
% hObject handle to P0 (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 P0 as text
% str2double(get(hObject,'String')) returns contents of P0 as a double
% --- Executes during object creation, after setting all properties.
P0=str2double(get(hObject,'String'));
if isnan(P0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end

function P0_CreateFcn(hObject, eventdata, handles)
% hObject handle to P0 (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 V0_Callback(hObject, eventdata, handles)
global V0;
% hObject handle to V0 (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 V0 as text
% str2double(get(hObject,'String')) returns contents of V0 as a double
V0=str2double(get(hObject,'String'));
if isnan(V0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function V0_CreateFcn(hObject, eventdata, handles)
% hObject handle to V0 (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 T_Callback(hObject, eventdata, handles)
global T;
% hObject handle to T (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 T as text
% str2double(get(hObject,'String')) returns contents of T as a double
T=str2double(get(hObject,'String'));
if isnan(T)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function T_CreateFcn(hObject, eventdata, handles)
% hObject handle to T (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 Delta_Callback(hObject, eventdata, handles)
global Delta;
% hObject handle to Delta (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 Delta as text
% str2double(get(hObject,'String')) returns contents of Delta as a double
Delta=str2double(get(hObject,'String'));
if isnan(Delta)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function Delta_CreateFcn(hObject, eventdata, handles)
% hObject handle to Delta (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 Di_Callback(hObject, eventdata, handles)
global Di;
% hObject handle to Di (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 Di as text
% str2double(get(hObject,'String')) returns contents of Di as a double
Di=str2double(get(hObject,'String'));
if isnan(Di)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function Di_CreateFcn(hObject, eventdata, handles)
% hObject handle to Di (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 Dk_Callback(hObject, eventdata, handles)
global Dk;
% hObject handle to Dk (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 Dk as text
% str2double(get(hObject,'String')) returns contents of Dk as a double
Dk=str2double(get(hObject,'String'));
if isnan(Dk)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function Dk_CreateFcn(hObject, eventdata, handles)
% hObject handle to Dk (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 I0_Callback(hObject, eventdata, handles)
global I0;
% hObject handle to I0 (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 I0 as text
% str2double(get(hObject,'String')) returns contents of I0 as a double
I0=str2double(get(hObject,'String'));
if isnan(I0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function I0_CreateFcn(hObject, eventdata, handles)
% hObject handle to I0 (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 K0_Callback(hObject, eventdata, handles)
global K0;
% hObject handle to K0 (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 K0 as text
% str2double(get(hObject,'String')) returns contents of K0 as a double
K0=str2double(get(hObject,'String'));
if isnan(K0)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function K0_CreateFcn(hObject, eventdata, handles)
% hObject handle to K0 (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 a_Callback(hObject, eventdata, handles)
global a;
% hObject handle to a (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 a as text
% str2double(get(hObject,'String')) returns contents of a as a double
a=str2double(get(hObject,'String'));
if isnan(a)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function a_CreateFcn(hObject, eventdata, handles)
% hObject handle to a (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 l_Callback(hObject, eventdata, handles)
global l;
% hObject handle to l (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 l as text
% str2double(get(hObject,'String')) returns contents of l as a double
l=str2double(get(hObject,'String'));
if isnan(l)
set(hObject, 'String', 0);
errordlg('Значение должно быть числовым','Error');
end


% --- Executes during object creation, after setting all properties.
function l_CreateFcn(hObject, eventdata, handles)
% hObject handle to l (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 pushbuttonCalculate.
function pushbuttonCalculate_Callback(hObject, eventdata, handles)
% hObject handle to pushbuttonCalculate (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
global P0;
global V0;
global T;
global Delta;
global Di;
global Dk;
global I0;
global K0;
global a;
global l;
P0=str2double(get(handles.P0,'string'));
V0=str2double(get(handles.V0,'string'));
T=str2double(get(handles.T,'string'));
Delta=str2double(get(handles.Delta,'string'));
Di=str2double(get(handles.Di,'string'));
Dk=str2double(get(handles.Dk,'string'));
I0=str2double(get(handles.I0,'string'));
K0=str2double(get(handles.K0,'string'));
a=str2double(get(handles.a,'string'));
l=str2double(get(handles.l,'string'));

if (l<=1)||(K0==0)||(T==0)
errordlg('Ошибка. Условие l>1, K0<>0, T<>0. Вычисления прерваны!','Error');
return;
end

for i=1:l
Result(i,1)=I0+Di*(i);%I
Result(i,2)=K0+Dk*(i);%%K
Result(i,3)=Result(i,2)/Result(i,1);%Alpha
Result(i,4)=Result(i,2)/(Result(i,1)*K0);%Beta
end
Result(1,5)=1.1313*P0-P0/T;
Result(1,6)=1.133*V0-V0/T;
for i=2:l
Result(i,5)=1.1313*Result(i-1,5)-Result(i-1,5)/T;%P
Result(i,6)=1.132*Result(i-1,6)-Result(i-1,6)/T;%V
end
for i=1:l
Result(i,7) = 0;
Result(i,8) = 0;
for j=1:l
Result(i,7)=Result(i,7) + Result(i,5)*Result(i,3)*exp(-Delta*j);%S1
Result(i,8)=Result(i,8) + Result(i,6)*Result(i,4)*exp(-Delta*j);%S2
end
Result(i,9)=Result(i,8)+Result(i,7);%S
end
h=(T-a)/l;
for i=1:l
Result(i,11)=(Result(i,7)+(Result(i,5)*Result(i,3))*(exp(-Delta*a)+exp(-Delta*T))/2)*h;%A1
Result(i,12)=(Result(i,8)+(Result(i,6)*Result(i,4))*(exp(-Delta*a)+exp(-Delta*T))/2)*h;%A2
Result(i,10)=Result(i,11)-Result(i,12);
end;
set(handles.uitable1,'data',Result); %Результаты в таблице
%Рисуем графики
axes(handles.axes1);
cla(handles.axes1);
popup_sel_index = get(handles.popupmenu1, 'Value');
switch popup_sel_index
case 1
kk=0:1:T-1;
gr = plot(kk,Result(:,5));
title('Поток поступлений');
grid on;
xlabel('Периоды договора');
ylabel('Деньги в условных единицах');
set(gr,'LineWidth',3);
case 2
kk=0:1:T-1;
gr = plot(kk,Result(:,6));
title('Поток выплат');
grid on;
xlabel('Периоды договора');
ylabel('Деньги в рублях');
set(gr,'LineWidth',3);

case 3
kk=0:1:T-1;
gr = plot(kk,Result(:,11),'b');
set(gr,'LineWidth',3);
hold on;
gr = plot(kk,Result(:,12),'r');
set(gr,'LineWidth',3);
hold on;
gr = plot(kk,Result(:,10),'g');
set(gr,'LineWidth',3);
title('Договор');
grid on;
xlabel('Периоды договора');
ylabel('Денежные потоки (рублей)');
set(gr,'LineWidth',3);
legend('Суммы поступлений по периодам договора','Суммы выплат по периодам', 'Суммы наличности по периодам договора');

end












% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
set(handles.P0,'String','10000');
set(handles.V0,'String','50000');
set(handles.T,'String','8');
set(handles.Delta,'String','0.1');
set(handles.Di,'String','0.1763');
set(handles.Dk,'String','0.85');
set(handles.I0,'String','1');
set(handles.K0,'String','27.8');
set(handles.a,'String','0');
set(handles.l,'String','8');
axes(handles.axes1);
cla(handles.axes1);
set(handles.uitable1,'data',[]);


% --- Executes on selection change in popupmenu1.
function popupmenu1_Callback(hObject, eventdata, handles)
axes(handles.axes1);
cla(handles.axes1);
set(handles.uitable1,'data',[]);

% hObject handle to popupmenu1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu1 contents as cell array
% contents{get(hObject,'Value')} returns selected item from popupmenu1


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


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

% --- Executes during object deletion, before destroying properties.
function l_DeleteFcn(hObject, eventdata, handles)
% hObject handle to l (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)













93


1