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

%RGB値 省略名 完全名
%[1 1 0] y yellow
%[1 0 1] m magenta 
%[0 1 1] c cyan
%[1 0 0] r red
%[0 1 0] g green
%[0 0 1] b blue
%[1 1 1] w white
%[0 0 0] k black

pointNum = 5000;
clusterNum = 3;

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

colorR = [];
for count = 1:1:pointNum;
    data = 1 + 0.3.*randn(1, 1);%正規分布を生成（標準偏差0,3、平均値1）
    if data <= 1 && data >= 0
        colorR = [colorR ; data];
        %disp(data);
    else
        count = count - 1;
    end
end
for count = 1:1:pointNum;
    data = 0.3.*randn(1, 1);%正規分布を生成（標準偏差0,3、平均値0）
    if data <= 1 && data >= 0
        colorR = [colorR ; data];
        %disp(data);
    else
        count = count - 1;
    end
end
%colorR

colorG = [];
for count = 1:1:pointNum;
    data = 0 + 0.2.*randn(1, 1);%正規分布を生成（標準偏差0,2、平均値0）
    if data <= 1 && data >= 0
        colorG = [colorG ; data];
        %disp(data);
    else
    %    count = count - 1;
    end
    data = 0 + 0.2.*randn(1, 1);%正規分布を生成（標準偏差0,2、平均値0）
    if data <= 1 && data >= 0
        colorG = [colorG ; data];
        %disp(data);
    else
        count = count - 1;
    end
end
%colorG = zeros(pointNum, 1);
%colorG

colorB = [];
for count = 1:1:pointNum;
    data = 1 + 0.3.*randn(1, 1);%正規分布を生成（標準偏差0,3、平均値1）
    if data <= 1 && data >= 0
        colorB = [colorB ; data];
        %disp(data);
    else
        count = count - 1;
    end
end
for count = 1:1:pointNum;
    data = 0.3.*randn(1, 1);%正規分布を生成（標準偏差0,3、平均値0）
    if data <= 1 && data >= 0
        colorB = [colorB ; data];
        %disp(data);
    else
        count = count - 1;
    end
end
%colorB

%coordVector = coordVector(1:3000,:);
coordVector = [coordVector(1:3000,1)+colorR(1:3000,:)-colorB(1:3000,:) coordVector(1:3000,2) ];
colorVector = [colorR(1:3000,:) colorG(1:3000,:) colorB(1:3000,:)];

plotfigure( coordVector, colorVector );

%data = [coordVector colorVector];
%csvwrite('data.csv', 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;