function [data] = colorplot_1( )
%点の座標値と色値を決める
%座標値はランダム、色値はRGBそれぞれが正規分布

pointNum = 1000;
clusterNum = 3;

totalDataNum = pointNum * clusterNum;
coordVector = [rand(1,totalDataNum)' rand(1,totalDataNum)'];  %座標ベクトル

colorR = [];
colorG = [];
colorB = [];

for count = 1:1:clusterNum;
    colorR = [colorR ; makeGaussian( pointNum, 1, 1 ) + (count - 1)];
    colorG = [colorG ; makeGaussian( pointNum, 3, 0.5 ) + (count - 1)];
    colorB = [colorB ; makeGaussian( pointNum, 2, 1 ) + (count - 1)];
end
colorR = colorR / max(max(colorR));  %最大値を調整
colorG = colorG / max(max(colorG)) * 0.5;
colorB = colorB / max(max(colorB)) * 0.9;

%hist(colorR,30);
%pause();
%hist(colorG,30);
%pause();
%hist(colorB,30);
%pause();

colorVector = [colorR colorG colorB];

plotfigure( coordVector, colorVector );

data = [coordVector colorVector];
csvwrite('data.csv', data);

%----------------------------------
function [ data ] = makeGaussian( datasize, maxNum, centerNum )
data = randn(datasize, 1);      %正規分布を生成（0が平均値）
data = data + centerNum;        %平均値をcenterNumにする
data = data + ( min(min(data)) * -1 );      %負数をなくす
data = data / ( max(max(data)) / maxNum );  %最大値を調整
%hist(data);

%----------------------------------
function [] = plotfigure( coordVector, colorVector )
%coordVector は 横2次元、縦任意の座標ベクトル
%colorVector は 横3次元、縦任意の色ベクトル、もしくは色の略称表記
[dataX, dataY] = size(coordVector);
hold on;
for count = 1:1:dataX
    %disp(colorVector(count,:));
    plot(coordVector(count,1), coordVector(count,2), ...
        'Marker','.', 'MarkerSize',20, 'Color',colorVector(count,:));
end
hold off;