. Чемберлин Э. Теория монополистической конкуренции. М.: Изд-во ин. лит-ры, 1959. С. 393.
. Черковец В.Н. Общетеоретические и российские проблемы воспроизводства // Воспроизводство и экономический рост/ Под ред. проф. В.Н. Чер-ковца, доц. В.А. Бирюкова. М.: Экономический факультет, ТЕИС, 2001. С. 31.
. Четыркин В.М. Проблемные вопросы экономического районирования. Ташкент, 1967.
. Шарыгин М.Д. Дробное районирование и локальные территориально-производственные комплексы. Пермь, 1975
. Шерешева М.Ю. О кластерах / М.Ю. Шерешева //Сетевые формы межфирменной кооперации: стратегические вызовы и конкурентные преимущества новых организаций XXI века. Интернет-ресурс: www.ecsocman.edu.ru/db/msg/154728.
19. Шмитц X. Маленькие обувщики и гиганты Форда: рассказ о суперкластере //Интернет-ресурс: www.ideas.repec.org/a/eee/wdevel/v23yl995ilp9-28.html <http://www.ideas.repec.org/a/eee/wdevel/v23yl995ilp9-28.html>
. Jain A., Murty M., Flynn P. Data clustering: A
Review.// ACM Computing Surveys. 1999. Vol. 31, no. 3.
ДОДАТОК
Програма реалізації алгоритму ідентифікації складних ОМ на основі нечітких алгоритмів кластерного аналізу
function varargout = Forma_Claster(varargin)
% FORMA_CLASTER M-file for Forma_claster.fig
% singleton*.
% H = FORMA_CLASTER returns the handle to a new FORMA_CLASTER or the handle to
% the existing singleton*.
% FORMA_CLASTER('CALLBACK',hObject,eventData,handles,...) calls the local
% function named CALLBACK in FORMA_CLASTER.M with the given input arguments.
% FORMA_CLASTER('Property','Value',...) creates a new FORMA_CLASTER or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before Forma_claster_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to Forma_claster_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 Forma_claster
% Last Modified by GUIDE v2.5 30-Jun-2013 11:41:58
% Begin initialization code - DO NOT EDIT_Singleton = 1;_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @Forma_claster_OpeningFcn, ...
'gui_OutputFcn', @Forma_claster_OutputFcn, ...
'gui_LayoutFcn', [] , ...
'gui_Callback', []);nargin && ischar(varargin{1})_State.gui_Callback = str2func(varargin{1});nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});_mainfcn(gui_State, varargin{:});
% End initialization code - DO NOT EDIT
% --- Executes just before Forma_claster is made visible.Forma_claster_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 Forma_claster (see VARARGIN)
% Choose default command line output for Forma_claster.output = hObject;
% Update handles structure(hObject, handles);
% UIWAIT makes Forma_claster wait for user response (see UIRESUME)
% uiwait(handles.figure1);
% --- Outputs from this function are returned to the command line.varargout = Forma_claster_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{1} = handles.output;
% --- Executes during object creation, after setting all properties.axes1_CreateFcn(hObject, eventdata, handles)
% hObject handle to axes1 (see GCBO)pushbutton1_Callback(hObject, eventdata, handles)=handles.data1;=[pointc(:,1),point(:,2)];;(pointcl(:,1), pointcl(:,2),'o','markersize',7,'MarkerFaceColor','g','color','m');('ПОЧАТКОВЕ РОЗТАШУВАННЯ ДРВп')
% --- Executes on selection change in popupmenu1.popupmenu1_Callback(hObject, eventdata, handles)('D:\\Паньків_Кваліфікаційна_робота\\Forma_Claster\\point1.mat');('D:\\Паньків_Кваліфікаційна_робота\\Forma_Claster\\point2.mat');('D:\\Паньків_Кваліфікаційна_робота\\Forma_Claster\\point3.mat');('D:\\Паньків_Кваліфікаційна_робота\\Forma_Claster\\point4.mat');('D:\\Паньків_Кваліфікаційна_робота\\Forma_Claster\\point5.mat');('D:\\Паньків_Кваліфікаційна_робота\\Forma_Claster\\point6.mat');=get(hObject,'Value');val1.data1=point1;2.data1=point2;3.data1=point3;4.data1=point4;5.data1=point5;6.data1=point6;(hObject,handles);
% --- Executes during object creation, after setting all properties.popupmenu1_CreateFcn(hObject, eventdata, handles)ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))(hObject,'BackgroundColor','white');
% --- Executes on selection change in popupmenu2.popupmenu2_Callback(hObject, eventdata, handles)=get(hObject,'Value');val1.data2=1;2.data2=0.9;3.data2=0.8;4.data2=0.7;5.data2=0.6;6.data2=0.5;7.data2=0.4;8.data2=0.3;9.data2=0.2;10.data2=0.15;(hObject,handles);
% --- Executes during object creation, after setting all properties.popupmenu2_CreateFcn(hObject, eventdata, handles)ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))(hObject,'BackgroundColor','white');
% --- Executes on button press in pushbutton12.pushbutton12_Callback(hObject, eventdata, handles)=handles.data1;(point);
% --- Executes on button press in pushbutton13.pushbutton13_Callback(hObject, eventdata, handles)=handles.data1;=handles.data2;(point,g);
% --- Executes on button press in checkbox3.checkbox3_Callback(hObject, eventdata, handles)(get(hObject,'Value'))onoff
% --- Executes on button press in checkbox5.checkbox5_Callback(hObject, eventdata, handles)(get(hObject,'Value'))onoff
% --- Executes on button press in checkbox6.checkbox6_Callback(hObject, eventdata, handles)(get(hObject,'Value'))on
elseoff
Основна функція програми
function clustering(point,g)=[point(:,1),point(:,2)];=subclust(pointcl,g);
[c,U,obj]=fcm(pointcl,size(matrix,1));=max(U);i=1:size(matrix,1)=find(U(i,:)==maxU);{i}=pointcl(B(1,:),:);
% позначення виду зв'язку та інтенсивностіon;l=1:(size(point))point(l,3)>30 && point(l,4)>500(pointcl(l,1), pointcl(l,2),'ko','markersize',13,'MarkerFaceColor','c');point(l,3)>30 && point(l,4)<100(pointcl(l,1), pointcl(l,2),'ko','markersize',13,'MarkerFaceColor','y');point(l,3)>30 && point(l,4)<500 && point(l,4)>100(pointcl(l,1), pointcl(l,2),'ko','markersize',13,'MarkerFaceColor','g');point(l,3)<30 && point(l,4)>500(pointcl(l,1), pointcl(l,2),'k^','markersize',13,'MarkerFaceColor','c');point(l,3)<30 && point(l,4)<100(pointcl(l,1), pointcl(l,2),'k^','markersize',13,'MarkerFaceColor','y');point(l,3)<30 && point(l,4)<500 && point(l,4)>100(pointcl(l,1), pointcl(l,2),'k^','markersize',13,'MarkerFaceColor','g');
end
% надання окремим ДРВп номера кластеру
for i=1:(size(d,2))(d{i}(:,1), d{i}(:,2),ToString(i),'color','k','FontSize',9);
end
% визначення координат вектора від центра кластера
for f=1:(size(d,2))=(c(f,1)-d{f}(:,1));2=(c(f,2)-d{f}(:,2));
% знаходження значення вектора по модулю "x"i=1:1:(size(am1,1))=am1(i,1)*am1(i,1);(i)=am11;
end
% знаходження значення вектора по модулю "y"i=1:1:(size(am2,1))=am2(i,1)*am2(i,1);(i)=am22;
% абсолютний модуль_modul=sqrt(masyv1+masyv2);
% масив найдовших векторів_obvedennya=max(absolute_modul);
% коло=0:pi/100:2*pi;=c(f,1);=c(f,2);=2*masyv_obvedennya;=2*masyv_obvedennya;=v0+A/2*sin(t);=u0+B/2*cos(t);g>0.1 && g<0.3(u0,v0,'rx','markersize',7,'LineWidth', 2);(v,u,'-c','LineWidth',2);g>0.2 && g<0.4(u0,v0,'rx','markersize',8,'LineWidth', 2);(v,u,':m','LineWidth',2);g>0.3 && g<0.5(u0,v0,'r+','markersize',9,'LineWidth', 2);(v,u,'-.r','LineWidth',2);g>0.4 && g<0.6(u0,v0,'r*','markersize',10,'LineWidth', 2);(v,u,'--y','LineWidth',2);g>0.5 && g<0.7(u0,v0,'rd','markersize',11,'LineWidth', 2);(v,u,'-k','LineWidth',2);g>0.6 && g<0.8(u0,v0,'r>','markersize',12,'LineWidth', 2);(v,u,':g','LineWidth',2);g>0.7 && g<0.9(u0,v0,'rh','markersize',13,'LineWidth', 2);(v,u,'-.b','LineWidth',2);g>0.8 && g<1(u0,v0,'rp','markersize',14,'LineWidth', 2);(v,u,'--m','LineWidth',2);g>0.9 && g<1.1(u0,v0,'r>','markersize',15,'LineWidth', 2);(v,u,'-r','LineWidth',2);equal('КЛАСТЕРНИЙ АНАЛІЗ')
end