% 烙狼狼 盒器甫 啊瘤綽 單撈磐 X1, X2甫 積己竅絆 弊覆欄肺 焊咯霖促.
N = 100;mu_1 = [380 400]; 
sigma_1 = [300 30; 20 200];
X1 = randn(N,2) * sqrtm(sigma_1) + repmat(mu_1,N,1);
        
mu_2 = [430 350]; 
sigma_2 = [400 100; 50 90];
X2 = randn(N,2) * sqrtm(sigma_2) + repmat(mu_2,N,1);

z=[1 0 0]; %Red
scatter(X1(:,1),X1(:,2), 3,z);

hold on

z=[0 1 0];%Green
scatter(X2(:,1),X2(:,2), 3,z);

plotgaus(mu_1, sigma_1, 'R');
plotgaus(mu_2, sigma_2, 'G');

% ML眠瀝闌 撈儈竅咯 單撈磐俊 措茄 乞閉苞 傍盒魂闌 眠瀝茄促. 
model1 = mlgauss(X1',1); % 1籃 肯傈傍盒魂闌 瘤瀝 
model2 = mlgauss(X2',1); % 1籃 肯傈傍盒魂闌 瘤瀝

plotgaus(model1.Mu', model1.C, 'B');
plotgaus(model2.Mu', model2.C, 'B');

% 撈力 烙狼狼 單撈磐甫 盒幅秦焊磊
model.Mu = [model1.Mu model2.Mu];
model.C = zeros(2,2,2);
model.C(:,:,1) = model1.C;
model.C(:,:,2) = model2.C;
model.P = [1 1]/2; %葷傈 犬伏籃 鞍促(1/2) 

% 烙狼狼 茄 拋撈磐 汲瀝
T = [420 365]';
z=[0 0 0]; % Color Black
scatter(T(1,:),T(2,:), 3,z, 'filled');
[y, like]= bayescls(T, model);
y
like

pause
% 烙狼狼 茄 拋撈磐 汲瀝
T = [430 370]'; %360 380]';
z=[0 0 0]; % Color Black
scatter(T(1,:),T(2,:), 3,z, 'filled');
[y, like]= bayescls(T, model);
y
like

pause
% 烙狼狼 茄 拋撈磐 汲瀝
T = [390 380]';
z=[0 0 0]; % Color Black
scatter(T(1,:),T(2,:), 3,z, 'filled');
[y, like]= bayescls(T, model);
y
like